Lister de films

Télécharger le projet
Commenter

Description

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

Source / Exemple : 


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

Conclusion :


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.