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

L'auteur

Profil ProSite personnel

Liens sociaux

Viadeo Twitter Facebook Share on Google+   

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

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