PROVERBES - SENTENCES ET MAXIMES VERSION CORRIGÉE
cs_nico1610
Messages postés
395
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
-
4 juin 2005 à 16:51
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 6 juin 2005 à 11:19
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 6 juin 2005 à 11:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31830-proverbes-sentences-et-maximes-version-corrigee
https://codes-sources.commentcamarche.net/source/31830-proverbes-sentences-et-maximes-version-corrigee
6 juin 2005 à 11:19
Ceci est votre source, si vous souhaitez la modifier cliquez ici
6 juin 2005 à 10:59
Merci d'avance.
6 juin 2005 à 10:19
6 juin 2005 à 08:56
Je tiens personnellement à vous remercier pour vos comentaires, Tout pour Liquide, je trouve normal d'être poli, touit dépend de l'éducation que l'on a reçu et c'est vrai que c'est dommage que tout l mond ene l'est pa stoujours.
Pour Saros, Tu as raison, en fait, l'application est prête avec un fichier.txt pour le sproverbes et un autre pour le sdefinitions.
Si j'ai le temps, je mettrai la source (mise à jour) sur le site.
Merci à vous tous pour vos commentaires et à bientôt j'espère.
5 juin 2005 à 13:35
Même remarque que Patrice99
Et tu devrais placer toutes les données dans un fichier texte, pour faciliter les mises à jour.
Et puis commenter quand même un peu :)
Sinon j'ai trouvé super bien... L'interface graphique est bien recherchée :)
9/10
5 juin 2005 à 12:50
lblDefinition.Caption = "Celui qui vient d'un pays lointain peut, sans craindre d'être démenti, raconter des choses fausses."
ElseIf lstProverbe.Text = "A bon chat, bon rat :" Then...
Ca doublonne grave, pas vrai ?
Tu devrais utiliser un tableau en RAM pour afficher la définition :
Private m_vasProverbes ' Variant contenant un tableau de String (vas)
Private Sub Form_Load()
m_vasProverbes = Array("P1", "D1", "P2", "D2", "P3", "D3")
Dim i%, iFin%
iFin = UBound(m_vasProverbes) \ 2
For i = 0 To iFin
Me.lstProverbes.AddItem m_vasProverbes(i * 2)
Next i
End Sub
Private Sub lstProverbes_Click()
Me.lblDefition.Caption = m_vasProverbes(Me.lstProverbes.ListIndex * 2 + 1)
End Sub
Bien sûr ça serait mieux d'utiliser un fichier texte pour charger les proverbes et leur définition, voici un exemple pour lire un fichier dans une listBox :
www.henri-ruch.ch/VB/articles/Nettoyeur/nettoyeur.asp
Public Sub Lire_Fichier(StrNom As String)...
5 juin 2005 à 09:16
- C'est lorsque le Sdan se sent confu ...
- Que la source, enfin, sera revue !
Yop
(que la source soit avec toi ?)
Bonne prog
A+
Afyn Navedac
4 juin 2005 à 20:20
Ps : Ce n'est pas une vanne, juste que ca m'a fait sourire et surtout que j'ai trouvé ca super respectueux vis a vis de tous les gens venant ici, qui, par ailleur pour certains, n'en auront pas autant pour toi ...
4 juin 2005 à 16:51
Sinon pas mal