Lister de films

Soyez le premier à donner votre avis sur cette source.

Vue 2 344 fois - Téléchargée 219 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Psykos7
Messages postés
63
Date d'inscription
dimanche 15 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008
-
j'ai fait cette fonction : http://Psykos7.free.fr pour la recherche
cs_peyo22
Messages postés
26
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
9 juillet 2004
-
mieux vaut faire 1 prog ki fait 1 scan du dd à la recherche de *.avi, *.mpg, *.divx .... nop ?
cs_vortexx
Messages postés
10
Date d'inscription
lundi 8 juillet 2002
Statut
Membre
Dernière intervention
24 juillet 2002
1 -
Désolé pour les commentaires mais j'ai pas pu les mettre. Mais je pense pas ke vous ayez besoin de commentaires pour des prog dans ce style

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.