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

Construisons le fichier : frmInfos.frm

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.