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

Gilbert Miralles

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

- Auteur : Gilbert Miralles

- Parution : 10 mai 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 6 La feuille frmInfos.frm - saisie du code

- Prochain tutoriel

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

Écriture 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

Écriture 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'impression
Printer.EndDoc
Else
'Sortie sans impression
End If
End Sub

Écriture du code du bouton « OK »

Private Sub CtlStatistiques_Click( )
Unload Me
End Sub

Écriture 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