Tutoriel 38 : La feuille frmInfos.frm - saisie du code

Date de publication : Lundi 10 mai 2004 , Date de mise à jour : Lundi 11 février 2008

Par Gilbert Miralles (gilmir.developpez.com)

Version PDF (Miroir) Version hors-ligne (Miroir)

Exercice 6 La feuille frmInfos.frm - saisie du code

Construisons le fichier : frmInfos.frm

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

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.

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"

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 "N° 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"

Private Sub CtlStatistiques_Click( )
	Unload Me
End Sub

Ecriture du code de la feuille Form

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

Version PDF (Miroir) Version hors-ligne (Miroir)

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'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.