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)