Tutoriel 41 : La feuille frmParent - saisie du code

L'auteur

Profil Pro

Liens sociaux

Viadeo Twitter Facebook Share on Google+   

Exercice 9 - La feuille frmParent - saisie du code ♪

Saisie du code de la feuille frmParent
'Nous allons saisir dans « Object »/« Général » et dans la procédure « Déclarations » :

 
Sélectionnez
Dim Indicateur                  'Déclaration d'une variable pour l'affichage de l'heure(le nom importe peu)
'Initialisation et ouverture du fichier *.lst
Sub InitFiles ( )
    On Error GoTo ExitInitFiles 'si nous rencontrons une erreur(ex. : fichier déjà créé) nous sortons
    'Initialisation des comptes
    KNum = FreeFile
    Open App.Path + "\datas\fichfilm.lst" For Input As #KNum 'création du fichier fichfilm.lst
    While Not EOF(KNum)
        Input #KNum, K$, KI$
        If K$ <> "" Then
            X% = X% + 1
            BaseDonnees$(X%) = K$
            InfosBDonnees$(X%) = KI$
        End If
    Wend
    Close #KNum
    ExitInitFiles:
    Exit Sub
End Sub
'

Saisie des commandes de boutons du deuxième Panel (5 boutons)

 
Sélectionnez
Sub bnCascade_Click ( )     'Premier bouton
    'Fenêtres superposées et décalées
    frmParent.Arrange 0
End Sub
'
Sub bnTile_Click ( )     'Deuxième bouton
    'Fenêtres en mosaïque verticale
    frmParent.Arrange 2
End Sub
'
Sub bnHorTile_Click ( )     'Troisième bouton
    'Fenêtres en mosaïque verticale
    frmParent.Arrange 1
End Sub
'
Sub bnIconArrange_Click ( )     'Quatrième bouton
    'Arrange les icônes
    frmParent.Arrange 3
End Sub
'
Sub bnClose_Click ( )
    'Appelle la procédure de fermeture
    'de toutes les fenêtres filles
    CloseAll
End Sub
 
Sélectionnez
'
'Saisie de commande du bouton horloge
Sub Command3D3_Click ( )
    If Indicateur = 0 Then     
        Panel3D9.Visible = True
        Indicateur = 1
    Else
        Panel3D9.Visible = False
        Indicateur = 0
    End If
End Sub
 
Sélectionnez
'
'Nous insérons un panel juste après le bouton de l'horloge  avec comme : (Voir cliché leçon N°1)
PropiétéCaption = Panel3D9
'Nous insérons un deuxième Panel avec comme :
PropriétéCaption = Panel3D4
'
Saisie de commande du bouton Help
Sub bnHelp_Click ( )
    'Info
    mnu_Infos_Click
End Sub


Saisie de la procédure « Form »

 
Sélectionnez
Sub MDIForm_Load ( )
    Screen.MousePointer = 0
    'Unload Form3                               'Cette Form n'est pas créée dans cette application
    'Répertoire de travail = répertoire du programme
    ChDir App.Path
    CenterForm frmParent
    Me.WindowState = 2
    'Affichage de l'heure et de la date
    Panel3D9.Caption = Time
    Panel3D4.Caption = Date
    'Initialise base de données et descriptifs
    InitFiles
End Sub

Prochain tutoriel

Le code de la feuille « frmChild » (fenêtre fille)

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

  

Copyright © 2000 Gilmir. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.