Exercice 6 La feuille frmInfos.frm - saisie du code

Construisons le fichier : frmInfos.frm

./images/videok2.jpg Image grandeur nature de la feuille d'infos sur les bases de données

Propriété Name : frmName
Installez 4 Panels "SSPanel" ou autres
Propriété Name Panel3D1 à Panel3D4
Insérez un bouton

Ecriture du code du bouton

 
Sélectionnez
Sub SSCommand1_Click ( )
     Unload frmName
End Sub

Nous procédons à la réalisation de la feuille "frmListe"
Cette feuille nous permettra d'afficher les titres de film disponibles dans la base de données et de pouvoir imprimer la liste affichée.

Image non disponible

Elle se compose d'une Frame qui aura comme :
Propriété Caption : N° d'enregistrement/Titre de film/N° de cassette :"
Dans cette Frame nous incorporons une ListBox
Propriété Name : Liste1

Ecriture du code du bouton de commande "Imprimer"

 
Sélectionnez
Private Sub Command3D1_Click( )
	On Error Resume Next
	If Liste1.List(X%) <> "" Then
		Printer.Print
		Printer.FontSize = 12
		'Imprime la ligne d'information
		Printer.Print " de l'enregistrement/Titre du film/N° cassette:"
		'Envoi de la liste ligne par ligne à l'objet imprimante
		For X% = 1 To Liste1.ListCount
			Printer.Print Liste1.List(X% - 1)
		Next X%
		'Saut de page
		Printer.NewPage
		'Fin de l'impresssion
		Printer.EndDoc
	Else
		'Sortie sans impression
	End If
End Sub

Ecriture du code du bouton "OK"

 
Sélectionnez
Private Sub CtlStatistiques_Click( )
	Unload Me
End Sub

Ecriture du code de la feuille Form

 
Sélectionnez
Private Sub Form_Load( )
	CenterForm Me
End Sub

La semaine prochaine nous réaliserons la feuille devant nous permettre de créer les bases de données indispensables à notre réalisation.

Prochain tutoriel :

Construction de la feuille MKFICH