Tutoriel 41 : La feuille frmParent - saisie du code

Gilbert Miralles

- Titre : Tutoriel 41 : La feuille frmParent - saisie du code

- Auteur : Gilbert Miralles

- Parution : 24 septembre 2004

- Licence : Copyright ® 2000 Gilmir. Aucune reproduction, même partielle, ne peut être faite de ce site et 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.

Sommaire

- Exercice 9 - La feuille frmParent - saisie du code ♪

- Prochain tutoriel

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 » :

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)

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

'
'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

'
'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 »

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)