LISTER DE FILMS

Private Sub Form_Load()
 Menu_load_Click
End Sub

Private Sub Menu_backcolor_Click()
 CommonDialog1.Flags = cdlCCRGBInit
 CommonDialog1.ShowColor
 Rtb1.BackColor = CommonDialog1.Color
End Sub

Private Sub Menu_clear_Click()
 On Error GoTo fin1
 Open "liste.xxx" For Output As #1
 Write #1, "Votre liste de films est vide"
 Close #1
 Rtb1.Text = ""
fin1:
End Sub

Private Sub Menu_end_Click()
 End
End Sub

Private Sub Menu_load_Click()
 On Error GoTo fin3
 Open "liste.xxx" For Input As #1
 Input #1, t1
 Rtb1.Text = t1
 Close #1
fin3:
End Sub

Private Sub Menu_police_Click()
 CommonDialog1.Flags = cdlCFBoth
 CommonDialog1.ShowFont
 Rtb1.Font.Name = CommonDialog1.FontName
 Rtb1.Font.Size = CommonDialog1.FontSize
 Rtb1.Font.Bold = CommonDialog1.FontBold
 Rtb1.Font.Italic = CommonDialog1.FontItalic
End Sub

Private Sub Menu_print_Click()
 CommonDialog1.Flags = cdlPDReturnDC
 CommonDialog1.ShowPrinter
 Rtb1.SelPrint CommonDialog1.hDC
End Sub

Private Sub Menu_save_Click()
 On Error GoTo fin '
 Open "liste.xxx" For Output As #1
 Write #1, Rtb1.Text
 Close #1
fin4:
End Sub

Private Sub Menu_couleurdutxt_Click()
 CommonDialog1.ShowColor
 Rtb1.SelColor = CommonDialog1.Color
End Sub