LISTER DE FILMS

---

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

C'est un p'tit logiciel tout con et pas compliqué du tout. Il est censé lister des films ou n'importe quoi. Il peut aussi servir a de traitement de texte (sauvegarder,charger,effacer,imprimer,changement de la police et des couleurs). Y suffit d'un richtextbox, un commondialog et c'est tout.
Pour + d'infos y'a le zip ...

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

Bon ben il est pas super mais soyez pas trop séver, c'est mon premier prog. Si vous avez des questions ou que y'a un probleme alors envoyé un mail à cedric.c14@club-internet.fr

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• MANIPULER LES CHAÎNES ET TRIER UNE LISTE DE NOMS
• AFFICHAGE DES LIGNES D'UN RICHTEXTBOX
• TRI BOYERMOORE
• CONVERTION PS EN NOIR ET BLANC
• MINI TRAITEMENT DE TEXTE