Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 18:04:53

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME D'ECRITURE DE CODE par PCPT

LISTVIEW ET TRI par Sator

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

+ de logiciels à télécharger

1 465 402 membres
440 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 303 309 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LISTER DE FILMS

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 24/07/2002 Date de mise à jour : 24/07/2002 02:10:50 Vu / téléchargé: 1 348 / 130

Auteur : vortexx

Ecrire un message privé

Note :

1,00 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

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

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

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