GESTION ECOLAGE

VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form FeuillePrincipale 
   BorderStyle     =   0  'None
   Caption         =   "0 rendez-vous"
   ClientHeight    =   420
   ClientLeft      =   -90
   ClientTop       =   -660
   ClientWidth     =   9840
   Icon            =   "Alarme.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   420
   ScaleWidth      =   9840
   Begin VB.Timer TimerRéduire 
      Interval        =   60000
      Left            =   1440
      Top             =   0
   End
   Begin VB.Timer TimerProgramme 
      Enabled         =   0   'False
      Interval        =   60000
      Left            =   960
      Top             =   0
   End
   Begin VB.Timer TimerPosition 
      Interval        =   100
      Left            =   480
      Top             =   0
   End
   Begin VB.Timer TimerHeure 
      Interval        =   1000
      Left            =   0
      Top             =   0
   End
   Begin VB.TextBox TexteEvènements 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Height          =   285
      Index           =   0
      Left            =   1440
      Locked          =   -1  'True
      MousePointer    =   1  'Arrow
      TabIndex        =   1
      ToolTipText     =   "Cliquez ici pour entrer un nouvel évènement ..."
      Top             =   75
      Width           =   1095
   End
   Begin VB.TextBox TexteEvènements 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Height          =   285
      Index           =   1
      Left            =   2880
      Locked          =   -1  'True
      MousePointer    =   1  'Arrow
      TabIndex        =   2
      ToolTipText     =   "Cliquez ici pour entrer un nouvel évènement ..."
      Top             =   75
      Width           =   3015
   End
   Begin ComCtl2.UpDown HBTE 
      Height          =   285
      Index           =   1
      Left            =   5895
      TabIndex        =   3
      Top             =   75
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   327681
      Value           =   1
      Max             =   32767
      Min             =   1
      Enabled         =   -1  'True
   End
   Begin MCI.MMControl MMControl 
      Height          =   330
      Left            =   6360
      TabIndex        =   4
      Top             =   0
      Visible         =   0   'False
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   582
      _Version        =   393216
      DeviceType      =   ""
      FileName        =   ""
   End
   Begin ComCtl2.UpDown HBTE 
      Height          =   285
      Index           =   0
      Left            =   2535
      TabIndex        =   5
      Top             =   75
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   327681
      Value           =   1
      Max             =   32767
      Min             =   1
      Wrap            =   -1  'True
      Enabled         =   -1  'True
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   2
      X1              =   0
      X2              =   9840
      Y1              =   390
      Y2              =   390
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00C00000&
      BorderWidth     =   4
      X1              =   0
      X2              =   9840
      Y1              =   390
      Y2              =   390
   End
   Begin VB.Label LabelHeure 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      ToolTipText     =   "Double-cliquez pour sélectionner un fuseau horaire"
      Top             =   83
      Width           =   900
   End
   Begin VB.Image ImageExe 
      Height          =   360
      Left            =   1050
      Tag             =   "0"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   6
      Left            =   6120
      ToolTipText     =   "Fermer VisualAlarm"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   5
      Left            =   5640
      ToolTipText     =   "Réduire dans la barre des tâches"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   4
      Left            =   5040
      ToolTipText     =   "Options de VisualAlarme"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   3
      Left            =   4440
      ToolTipText     =   "Supprimer l'évènement actif"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   2
      Left            =   3960
      ToolTipText     =   "Modifier l'évènement actif"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   1
      Left            =   3480
      ToolTipText     =   "Créer un nouvel évènement"
      Top             =   30
      Width           =   360
   End
   Begin VB.Image ImageBouton 
      Height          =   360
      Index           =   0
      Left            =   2880
      ToolTipText     =   "Voir la liste de tous les évènements"
      Top             =   30
      Width           =   360
   End
End
Attribute VB_Name = "FeuillePrincipale"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Variables paramétrées dans le fichier de configuration
Public CfgFichier As String, CfgRdvDém As Boolean, CfgSupprAncRdv As Boolean, CfgDémExe As Boolean, CfgSonHor As Boolean, CfgTypeSonn As Integer
Public CfgSkinDéfaut As Boolean, CfgSkinActuel As String
Public CfgDépOui As Boolean, CfgDépAimanté As Boolean, CfgToujoursVisible As Boolean, CfgRédTps As Integer, CfgPos As Integer
'Variables actuelles
Public FV As Boolean, OctetsTraités As Long, TempLeft As Integer, TempTop As Integer, TempsTotal, ProchainRdv As Integer, TempsOuverture As Integer, TempsProgramme As Integer
'Variables pour la position du curseur
Dim FPPX As Integer, FPPY As Integer, FPB As Boolean

Private Sub Form_Load()
    If App.PrevInstance = True Then End
    'Lecture des propriétés
    LecturePropriétés
    If CfgToujoursVisible = True Then SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
    Line1.Visible = False
    Line2.Visible = False
    FV = False
    Position (CfgPos)
    'Lecture des skins
    LectureSkinFeuillePrincipale
    'Lecture des Rdv en attente
    LectureRdv
    TimerHeure_Timer
    Load Evènement
    Load ListeEvènements
    Load Options
    TimerPosition.Enabled = True
    ChercherProchainRdv
    Form_Activate
End Sub

Private Sub Form_Activate()
    If TempString = "1" Then Exit Sub
    If CfgToujoursVisible = True Then SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW Else SetWindowPos Me.hWnd, HWND_NOTOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
    If ModuleDéclaration.NbRdv < 2 Then
        HBTE(0).Enabled = False
        HBTE(1).Enabled = False
    Else
        HBTE(0).Enabled = True
        HBTE(1).Enabled = True
    End If
    If ModuleDéclaration.NbRdv <> 0 And ModuleDéclaration.ProchainRdv <> 0 Then
        TexteEvènements(0).Text = ListeEvènements.ListeTousEvènements.ListItems(1).SubItems(1)
        TexteEvènements(1).Text = ListeEvènements.ListeTousEvènements.ListItems(1).SubItems(3)
        TexteEvènements(0).ToolTipText = "Cliquez ici pour modifier cet évènement"
        TexteEvènements(1).ToolTipText = TexteEvènements(0).ToolTipText
    Else
        TexteEvènements(0).Text = "Nlle Alarme ..."
        TexteEvènements(1).Text = "Entrez un nouvel évènement ..."
        TexteEvènements(0).ToolTipText = "Cliquez ici pour entrer un nouvel évènement ..."
        TexteEvènements(1).ToolTipText = TexteEvènements(0).ToolTipText
    End If
End Sub

Private Sub Form_Resize()
    If Me.Height = 420 Then
        TimerPosition.Enabled = True
        FV = False
        Position (CfgPos)
    End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    TimerPosition.Enabled = False
    FPPX = X
    FPPY = Y
    If Me.CfgDépOui = True Then FPB = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    TempsOuverture = 0
    If FPB = True Then
        Move Left + (X - FPPX), Top + (Y - FPPY)
        DoEvents
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Top < 420 And Me.Left > 420 And Me.Left < Screen.Width - 420 Then
        CfgPos = 1
    ElseIf Me.Top > Screen.Height - 420 And Me.Left > 420 And Me.Left < Screen.Width Then
        CfgPos = 2
    ElseIf Me.Left < 420 Then
        CfgPos = 1  'CfgPos = 3
    ElseIf Me.Left > Screen.Width - 420 Then
        CfgPos = 1  'CfgPos = 4
    Else
        CfgPos = 5
        If Me.CfgDépAimanté = False Then
            TempTop = Me.Top
            TempLeft = Me.Left
            If CfgPos = 3 Or CfgPos = 4 Then Position (5)
            Me.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeFond5.gif")
            Me.Top = TempTop
            Me.Left = TempLeft
            FPB = False
            TimerPosition.Enabled = True
            Exit Sub
        End If
    End If
    Position (CfgPos)
    FPB = False
    TimerPosition.Enabled = True
End Sub

Private Sub HBTE_DownClick(Index As Integer)
    If HBTE(Index).Value = 32767 Then HBTE(Index).Value = 1
    If HBTE(Index).Value >= 1 Then
        TexteEvènements(Index).Text = ListeEvènements.ListeTousEvènements.ListItems(HBTE(Index).Value).SubItems(Index * 2 + 1)
        TexteEvènements(Abs(Index - 1)).Text = ListeEvènements.ListeTousEvènements.ListItems(HBTE(Index).Value).SubItems(Abs(Index - 1) * 2 + 1)
    Else
        HBTE(Index).Value = 1
    End If
    HBTE(Abs(Index - 1)).Value = HBTE(Index).Value
End Sub

Private Sub HBTE_UpClick(Index As Integer)
    If HBTE(Index).Value < ListeEvènements.ListeTousEvènements.ListItems.Count + 1 Then
        Me.TexteEvènements(Index).Text = ListeEvènements.ListeTousEvènements.ListItems(HBTE(Index).Value).SubItems(Index * 2 + 1)
        TexteEvènements(Abs(Index - 1)).Text = ListeEvènements.ListeTousEvènements.ListItems(HBTE(Index).Value).SubItems(Abs(Index - 1) * 2 + 1)
    Else
        HBTE(Index).Value = ListeEvènements.ListeTousEvènements.ListItems.Count
    End If
    HBTE(Abs(Index - 1)).Value = HBTE(Index).Value
End Sub

Private Sub ImageBouton_Click(Index As Integer)
    Select Case Index
        Case 0
            ListeEvènements.Show 1
        Case 1
            Evènement.LabelTitre.Caption = "Créer un nouvel évènement"
            Evènement.Show 1
        Case 2
            If TexteEvènements(0) <> "Nlle Alarme ..." Then
                Evènement.LabelTitre.Caption = "Modifier l'évènement"
                Evènement.Show 1
            End If
        Case 3
            If TexteEvènements(0) <> "Nlle Alarme ..." Then
                If MsgBox("Etes-vous sûr(e) de vouloir supprimer cet évènement", vbQuestion + vbYesNo, "Demande de suppression :") = vbYes Then ListeEvènements.ListeTousEvènements.ListItems(1).ListSubItems.Clear
            End If
        Case 4
            Options.Show 1
        Case 5
            TimerPosition.Enabled = False
            Me.WindowState = 1
        Case 6
            EnregistrerRdv
            End
    End Select
    Select Case AfficherFeuilles
        Case 1
            ListeEvènements.Hide
            ListeEvènements.Show 1
        Case 2
            Evènement.Hide
            Evènement.Show 1
        Case 3
            Options.Hide
            Options.Show 1
    End Select
End Sub

Private Sub ImageExe_Click()
    If ImageExe.Tag = 1 Then
        ImageExe.Tag = 0
        ImageExe.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeVoyantEvènement&ExeNon.gif")
        MMControl.Command = "close"
        ImageExe.ToolTipText = ""
    End If
End Sub

Private Sub LabelHeure_DblClick()
    Fuseaux.Show 1
End Sub

Private Sub TexteEvènements_Click(Index As Integer)
    Evènement.Show
    If TexteEvènements(1).Text = "Entrez un nouvel évènement ..." Then Evènement.LabelTitre = "Créer un nouvel évènement" Else Evènement.LabelTitre = "Modifier l'évènement"
End Sub

Private Sub TimerHeure_Timer()
    'Rafraîchissement de l'heure toutes les secondes
    LabelHeure.Caption = Time
    If ModuleDéclaration.NbRdv <> 0 And ModuleDéclaration.ProchainRdv <> 0 Then
        If ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(1) = Time Then TraiterEvènement
    End If
    If Me.CfgSonHor = True Then Sonnerie (CfgTypeSonn)
End Sub

Private Sub TimerPosition_Timer()
    Dim PositionCurseur As POINTAPI
    Dim Retour As Long
    Retour = GetCursorPos(PositionCurseur)
    If FV = False Then
        If CfgPos = 1 And PositionCurseur.Y < 4 And PositionCurseur.X > 70 And PositionCurseur.X < ((Screen.Width / Screen.TwipsPerPixelX) - 70) Then
            Me.Top = 0
            Line1.Visible = False
            Line2.Visible = False
            GoTo Fin1
        ElseIf CfgPos = 2 And PositionCurseur.Y > (Screen.Height / Screen.TwipsPerPixelY) - 4 And PositionCurseur.X > 70 And PositionCurseur.X < ((Screen.Width / Screen.TwipsPerPixelX) - 70) Then
            Me.Top = Screen.Height - 420
            Line1.Visible = False
            Line2.Visible = False
            GoTo Fin1
        ElseIf CfgPos = 3 And PositionCurseur.Y < 4 And PositionCurseur.X > 70 And PositionCurseur.X < ((Screen.Width / Screen.TwipsPerPixelX) - 70) Then
            Me.Top = 0
            Me.Height = 415
            GoTo Fin1
        ElseIf CfgPos = 4 And PositionCurseur.Y < 4 And PositionCurseur.X > 70 And PositionCurseur.X < ((Screen.Width / Screen.TwipsPerPixelX) - 70) Then
            Me.Top = 0
            Me.Height = 415
            GoTo Fin1
        End If
    End If
    If FV = True Then
        If CfgPos = 1 And (PositionCurseur.Y > 30 Or PositionCurseur.X < 68 Or PositionCurseur.X > ((Screen.Width / Screen.TwipsPerPixelX) - 68)) Then
            Me.Top = -360
            Line1.Visible = True
            Line2.Visible = True
            GoTo Fin2
        ElseIf CfgPos = 2 And (PositionCurseur.Y < (Screen.Height / Screen.TwipsPerPixelY) - 30 Or PositionCurseur.X < 68 Or PositionCurseur.X > ((Screen.Width / Screen.TwipsPerPixelX) - 68)) Then
            Me.Top = Screen.Height - 60
            Line1.Visible = True
            Line2.Visible = True
            GoTo Fin2
        ElseIf CfgPos = 3 And (PositionCurseur.Y > 30 Or PositionCurseur.X < 68 Or PositionCurseur.X > ((Screen.Width / Screen.TwipsPerPixelX) - 68)) Then
            Me.Height = 450
            Me.Top = -420
            GoTo Fin2
        ElseIf CfgPos = 4 And (PositionCurseur.Y > 30 Or PositionCurseur.X < 68 Or PositionCurseur.X > ((Screen.Width / Screen.TwipsPerPixelX) - 68)) Then
            Me.Height = 450
            Me.Top = -420
            GoTo Fin2
        End If
    End If
    Exit Sub
Fin1:
    FV = True
    Exit Sub
Fin2:
    FV = False
    Exit Sub
End Sub

Private Sub TimerProgramme_Timer()
    TempsProgramme = TempsProgramme - 1
    If TempsProgramme = 0 Then
        If ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(6) = "Eteindre votre ordinateur" Then Shell "Rundll32.exe Krnl386.exe ,exitkernel" Else OuvrirFichier
    ImageExe_Click
    End If
End Sub

Private Sub TimerRéduire_Timer()
    If CfgRédTps <> 1 Then
        TempsOuverture = TempsOuverture + 1
        If (CfgRédTps = 2 And TempsOuverture = 1) Or (CfgRédTps = 3 And TempsOuverture = 2) Or (CfgRédTps = 4 And TempsOuverture = 5) Or (CfgRédTps = 5 And TempsOuverture = 10) Or (CfgRédTps = 6 And TempsOuverture = 30) Or (CfgRédTps = 7 And TempsOuverture = 60) Or (CfgRédTps = 8 And TempsOuverture = 120) Then
            TimerPosition.Enabled = False
            Me.WindowState = 1
        End If
    End If
End Sub

Sub Position(CfgPos)
    'Réglage des dimensions en fonction de la résolution de l'écran
    'Les différents boutons de la barre de titre d'un programme ouvert en mode agrandi sont tous visibles
    Select Case CfgPos
        Case 1
            Me.Top = 0
            Me.Left = 1080
            Me.Width = Screen.Width - 2160
            TexteEvènements(1).Width = Me.Width - 4320 - TexteEvènements(1).Left
            HBTE(1).Left = TexteEvènements(1).Left + TexteEvènements(1).Width
            Line1.Y1 = 390
            Line1.Y2 = 390
            Line2.Y1 = 390
            Line2.Y2 = 390
            Me.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeFond1.gif")
            For i% = 0 To 6
                ImageBouton(i%).Visible = False
            Next i%
            ImageBouton(0).Left = 2880
            ImageBouton(1).Left = 3480
            ImageBouton(2).Left = 3960
            ImageBouton(3).Left = 4440
            ImageBouton(4).Left = 5040
            ImageBouton(5).Left = 5640
            ImageBouton(6).Left = 6120
            For i% = 0 To 6
                ImageBouton(i%).Left = ImageBouton(i%).Left + TexteEvènements(1).Width + 480
                ImageBouton(i%).Visible = True
            Next i%
        Case 2
            Me.Top = Screen.Height - 420
            Me.Left = 1080
            Me.Width = Screen.Width - 2160
            TexteEvènements(1).Width = Me.Width - 4320 - TexteEvènements(1).Left
            HBTE(1).Left = TexteEvènements(1).Left + TexteEvènements(1).Width
            Line1.Y1 = 30
            Line1.Y2 = 30
            Line2.Y1 = 30
            Line2.Y2 = 30
            Me.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeFond3.gif")
            For i% = 0 To 6
                ImageBouton(i%).Visible = False
            Next i%
            ImageBouton(0).Left = 2880
            ImageBouton(1).Left = 3480
            ImageBouton(2).Left = 3960
            ImageBouton(3).Left = 4440
            ImageBouton(4).Left = 5040
            ImageBouton(5).Left = 5640
            ImageBouton(6).Left = 6120
            For i% = 0 To 6
                ImageBouton(i%).Left = ImageBouton(i%).Left + TexteEvènements(1).Width + 480
                ImageBouton(i%).Visible = True
            Next i%
        Case 3
        Case 4
        Case 5
            Me.Top = Screen.Height / 2 - 480
            Me.Left = 1080
            Me.Width = Screen.Width - 2160
            TexteEvènements(1).Width = Me.Width - 4320 - TexteEvènements(1).Left
            HBTE(1).Left = TexteEvènements(1).Left + TexteEvènements(1).Width
            Line1.Visible = False
            Line2.Visible = False
            Me.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeFond5.gif")
                        For i% = 0 To 6
                ImageBouton(i%).Visible = False
            Next i%
            ImageBouton(0).Left = 2880
            ImageBouton(1).Left = 3480
            ImageBouton(2).Left = 3960
            ImageBouton(3).Left = 4440
            ImageBouton(4).Left = 5040
            ImageBouton(5).Left = 5640
            ImageBouton(6).Left = 6120
            For i% = 0 To 6
                ImageBouton(i%).Left = ImageBouton(i%).Left + TexteEvènements(1).Width + 480
                ImageBouton(i%).Visible = True
            Next i%
            TimerPosition.Enabled = False
    End Select
End Sub

Sub LecturePropriétés()
    NumFich = FreeFile
    Open App.Path + "\Configuration\Configuration.init" For Binary As #NumFich
        Seek #NumFich, 1
        Signature$ = Space(1)
        Get #NumFich, , Signature$
        Seek #NumFich, 2
        Signature$ = Space(Asc(Signature$))
        Get #NumFich, , Signature$
        CfgFichier = Signature$
    Close #NumFich
    OctetsTraités = 0
    Open App.Path + "\Configuration\" + CfgFichier For Binary As #NumFich
        Seek #NumFich, 1
        Signature$ = Space(1)
        Get #NumFich, , Signature$
        OctetsTraités = 2 + Asc(Signature$)
        Seek #NumFich, OctetsTraités
        Signature$ = Space(36)
        Get #NumFich, , Signature$
        CfgTypeSonn = Asc(Mid(Signature$, 1, 1))
        CfgRédTps = Asc(Mid(Signature$, 2, 1))
        CfgPos = Asc(Mid(Signature$, 3, 1))
        CfgRdvDém = Mid(Signature$, 4, 4)
        CfgSupprAncRdv = Mid(Signature$, 8, 4)
        CfgDémExe = Mid(Signature$, 12, 4)
        CfgSonHor = Mid(Signature$, 16, 4)
        CfgDépOui = Mid(Signature$, 20, 4)
        CfgDépAimanté = Mid(Signature$, 24, 4)
        CfgToujoursVisible = Mid(Signature$, 28, 4)
        CfgSkinDéfaut = Mid(Signature$, 32, 4)
        If CfgSkinDéfaut = True Then Exit Sub
        Seek #NumFich, OctetsTraités + 35
        Signature$ = Space(1)
        Get #NumFich, , Signature$
        Seek #NumFich, OctetsTraités + 36
        Signature$ = Space(Asc(Signature$))
        Get #NumFich, , Signature$
        CfgSkinActuel = Signature$
    Close #NumFich
End Sub

Sub LectureSkin()
    ImageExe.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeVoyantEvènement&ExeNon.gif")
    ImageBouton(0).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneListeEvènements.gif")
    ImageBouton(1).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneNouvelEvènement.gif")
    ImageBouton(2).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneModifierEvènement.gif")
    ImageBouton(3).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneSupprimerEvènement.gif")
    ImageBouton(4).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneOptions.gif")
    ImageBouton(5).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneRéduire.gif")
    ImageBouton(6).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneQuitter.gif")
    Me.TimerPosition.Enabled = True
End Sub

Sub LectureRdv()
    NumF = FreeFile
    Open App.Path + "\Configuration\Rendez-vous en attente.save" For Binary As #NumF
        Seek #NumF, 1
        Signature$ = Space(5)
        Get #NumF, , Signature$
        If Signature$ = "Aucun" Then
            HBTE(0).Enabled = False
            HBTE(1).Enabled = False
        Else
            Seek #NumF, 1
            Signature$ = Space(2)
            Get #NumF, , Signature$
            ModuleDéclaration.NbRdv = Asc(Left(Signature$, 1)) * 256 + Asc(Right(Signature$, 1))
            OctetsTraités = 3
            With ListeEvènements.ListeTousEvènements
                For i% = 1 To ModuleDéclaration.NbRdv
                    .ListItems.Add.Text = ""
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(8)
                    Get #NumF, , Signature$
                    .ListItems(i%).SubItems(1) = Signature$
                    Seek #NumF, OctetsTraités + 8
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 9
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + 9 + Len(Signature$)
                    .ListItems(i%).SubItems(2) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(3) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(4) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(5) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(6) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(7) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(2)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 2
                    Signature$ = Space(Asc(Left(Signature$, 1)) * 256 + Asc(Right(Signature$, 1)))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 2
                    .ListItems(i%).SubItems(8) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(9) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(1)
                    Get #NumF, , Signature$
                    Seek #NumF, OctetsTraités + 1
                    Signature$ = Space(Asc(Signature$))
                    Get #NumF, , Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$) + 1
                    .ListItems(i%).SubItems(10) = Signature$
                    Seek #NumF, OctetsTraités
                    Signature$ = Space(4)
                    Get #NumF, , Signature$
                    .ListItems(i%).Checked = Signature$
                    OctetsTraités = OctetsTraités + 4
                Next i%
            End With
        End If
    Close #NumF
End Sub

Sub EnregistrerRdv()
    On Error Resume Next
    Kill App.Path + "\Configuration\Rendez-vous en attente.save"
    NumF = FreeFile
    Open App.Path + "\Configuration\Rendez-vous en attente.save" For Binary As #NumF
        With ListeEvènements.ListeTousEvènements
            If .ListItems.Count = 0 Then
                Seek #NumF, 1
                Signature$ = "Aucun"
                Put #NumF, , Signature$
            Else
                Seek #NumF, 1
                Conversion256 (.ListItems.Count)
                Signature$ = Base256
                If Len(Signature$) = 1 Then Signature$ = Chr(0) & Signature$
                Put #NumF, , Signature$
                OctetsTraités = 3
                For i% = 1 To .ListItems.Count
                    Signature$ = .ListItems(i%).SubItems(1)
                    Put #NumF, OctetsTraités, Signature$
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(2)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(2)
                    Put #NumF, OctetsTraités + 8, Signature$
                    OctetsTraités = OctetsTraités + 8 + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(3)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(3)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(4)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(4)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(5)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(5)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(6)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(6)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(7)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(7)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Conversion256 (Len(.ListItems(i%).SubItems(8)))
                    Signature$ = Base256
                    If Len(Signature$) = 1 Then Signature$ = Chr(0) & Signature$
                    Signature$ = Signature$ & .ListItems(i%).SubItems(8)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(9)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(9)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = Chr(Len(.ListItems(i%).SubItems(10)))
                    Signature$ = Signature$ & .ListItems(i%).SubItems(10)
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + Len(Signature$)
                    Signature$ = .ListItems(i%).Checked
                    Put #NumF, OctetsTraités, Signature$
                    OctetsTraités = OctetsTraités + 4
                Next i%
            End If
        End With
    Close #NumF
End Sub

Sub Sonnerie(CfgTypeSonn)
    Select Case CfgTypeSonn
        Case 1
            If Minute(Time) = 0 Then Beep 1, 1
        Case 2
            If Minute(Time) / 30 = Int(Minute(Time) / 30) Then Beep 1, 1
        Case 3
            If Minute(Time) / 20 = Int(Minute(Time) / 20) Then Beep 1, 1
        Case 4
            If Minute(Time) / 15 = Int(Minute(Time) / 15) Then Beep 1, 1
        Case 5
            If Minute(Time) / 10 = Int(Minute(Time) / 10) Then Beep 1, 1
        Case 6
            If Minute(Time) = 0 Then
                If Hour(Time) = 0 Then
                    For i% = 0 To 46
                        Beep 1, 1
                        Sleep Int(Rnd * 200 + 100)
                    Next i%
                ElseIf Minute(Time) < 12 Then
                    For i% = 0 To Hour(Time)
                        Beep 1, 1
                        Sleep 300
                    Next i%
                Else
                    For i% = 0 To Hour(Time) - 12
                        Beep 1, 1
                        Sleep 300
                    Next i%
                End If
            End If
    End Select
End Sub

Sub TraiterEvènement()
    ImageExe.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeVoyantEvènement&ExeOui.gif")
    ImageExe.Tag = 1
    'Sonnerie
    Select Case ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(4)
        Case "1 sonnerie"
            Beep 1, 1
        Case "2 sonneries"
            For i% = 0 To 2
                Beep 1, 1
                Sleep 500
            Next i%
        Case "5 sonneries"
            For i% = 0 To 5
                Beep 1, 1
                Sleep 500
            Next i%
        Case "10 sonneries"
            For i% = 0 To 10
                Beep 1, 1
                Sleep 500
            Next i%
        Case "sonnerie type Eglise"
            If Hour(Time) = 0 Then
                For i% = 0 To 46
                    Beep 1, 1
                    Sleep Int(Rnd * 200 + 300)
                Next i%
            ElseIf Minute(Time) < 12 Then
                For i% = 0 To Hour(Time)
                    Beep 1, 1
                    Sleep 500
                Next i%
            Else
                For i% = 0 To Hour(Time) - 12
                    Beep 1, 1
                    Sleep 500
                Next i%
            End If
        Case "sonnerie aléatoire"
            For i% = 0 To 12
                Beep 1, 1
                Sleep Int(Rnd * 200 + 300)
            Next i%
    End Select
    'Les musiques dont le nom contient un point ne sont pas jouées
    Sleep 1000
    If ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(7) <> "Aucune musique à charger" Then
        With MMControl
            .Command = "close"
            .FileName = Right(ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(10), Len(ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(10)) - 21) + ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(7)
            .Command = "open"
            .Command = "play"
        End With
    End If
    CréationSkin.Hide
    Fuseaux.Hide
    Options.Hide
    ListeEvènements.Hide
    With Evènement
        .LabelTitre = "Alarme !!"
        .Show 1
        .TexteEvèn.Enabled = True
        .TexteHeure.Enabled = True
        .TexteDate.Enabled = True
        .ImageComboSonnerie.Enabled = True
        .TexteDescription.Locked = False
        .TexteDéclencher.Enabled = True
        .ImageComboTemps.Enabled = True
        .TexteMusique.Enabled = True
        .ImageSupprimer(0).Enabled = True
        .ImageSupprimer(1).Enabled = True
        .TexteDéclencher.ToolTipText = ""
        .TexteMusique.ToolTipText = ""
    End With
    'Programme
    With ListeEvènements.ListeTousEvènements
        If .ListItems(ModuleDéclaration.ProchainRdv).SubItems(5) <> "Aucune tâche à exécuter" Then
            If .ListItems(ModuleDéclaration.ProchainRdv).SubItems(6) = "Exécuter la tâche immédiatement" Then
                If .ListItems(ModuleDéclaration.ProchainRdv).SubItems(5) = "Eteindre votre ordinateur" Then Shell "Rundll32.exe Krnl386.exe ,exitkernel" Else OuvrirFichier
                SupprimerEvènement
            Else
                TempsProgramme = Val(Trim(Mid(.ListItems(ModuleDéclaration.ProchainRdv).SubItems(6), 18, 2)))
                If Mid(.ListItems(ModuleDéclaration.ProchainRdv).SubItems(6), 18, 3) = "1 h" Then TempsProgramme = 60
                TimerProgramme.Enabled = True
            End If
        Else
            SupprimerEvènement
            ImageExe_Click
        End If
    End With
    TimerPosition.Enabled = True
End Sub

Sub OuvrirFichier()
    If CfgRédTps = 9 Then
        TimerPosition.Enabled = False
        Me.WindowState = 1
    End If
    Shell ("rundll32.exe shell32.dll,OpenAs_RunDLL " + ListeEvènements.ListeTousEvènements.ListItems(ModuleDéclaration.ProchainRdv).SubItems(5))
    SupprimerEvènement
    ImageExe_Click
End Sub

Sub SupprimerEvènement()
    ListeEvènements.Show
    ListeEvènements.Hide
    ListeEvènements.ListeTousEvènements.ListItems.Remove (ModuleDéclaration.ProchainRdv)
    ModuleDéclaration.NbRdv = ListeEvènements.ListeTousEvènements.ListItems.Count
    For i% = 1 To ModuleDéclaration.NbRdv
        If ListeEvènements.ListeTousEvènements.ListItems(i%).Checked = True Then
            ModuleDéclaration.ProchainRdv = i%
            Exit For
        Else
            ModuleDéclaration.ProchainRdv = 0
        End If
    Next i%
    ModuleDéclaration.ProchainRdv = ModuleDéclaration.ProchainRdv - 1
    If ListeEvènements.ListeTousEvènements.ListItems.Count = 0 Then
        TexteEvènements(0).Text = "Nlle Alarme ..."
        TexteEvènements(1).Text = "Entrez un nouvel évènement ..."
    End If
End Sub

Sub LectureSkinFeuillePrincipale()
    On Error Resume Next
    NumF = FreeFile
    Open App.Path + "\Skins\Actuel\Skins.cfg" For Binary As #NumF
        Seek #NumF, 7
        Signature$ = Space(48)
        Get #NumF, , Signature$
        Me.BackColor = "&H" + Left(Signature$, 6)
        LabelHeure.BackColor = "&H" + Mid(Signature$, 7, 6)
        TexteEvènements(0).BackColor = "&H" + Mid(Signature$, 13, 6)
        TexteEvènements(0).ForeColor = "&H" + Mid(Signature$, 19, 6)
        TexteEvènements(1).BackColor = "&H" + Mid(Signature$, 25, 6)
        TexteEvènements(1).ForeColor = "&H" + Mid(Signature$, 31, 6)
        Line1.BorderColor = "&H" + Mid(Signature$, 37, 6)
        Line2.BorderColor = "&H" + Right(Signature$, 6)
    Close #NumF
    ImageExe.Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeVoyantEvènement&ExeNon.gif")
    ImageBouton(0).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneListeEvènements.gif")
    ImageBouton(1).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneNouvelEvènement.gif")
    ImageBouton(2).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneModifierEvènement.gif")
    ImageBouton(3).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneSupprimerEvènement.gif")
    ImageBouton(4).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneOptions.gif")
    ImageBouton(5).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneRéduire.gif")
    ImageBouton(6).Picture = LoadPicture(App.Path + "\Skins\Actuel\AlarmeIcôneQuitter.gif")
End Sub