PROGRAMME DE CONJUGAISON D'UN VERBE EN PREMIER GROUPE (VB)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
30 mars 2011 à 09:08
mruserkarim Messages postés 91 Date d'inscription lundi 28 février 2011 Statut Membre Dernière intervention 18 août 2011 - 29 avril 2011 à 17:42
mruserkarim Messages postés 91 Date d'inscription lundi 28 février 2011 Statut Membre Dernière intervention 18 août 2011 - 29 avril 2011 à 17:42
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/53010-programme-de-conjugaison-d-un-verbe-en-premier-groupe-vb
https://codes-sources.commentcamarche.net/source/53010-programme-de-conjugaison-d-un-verbe-en-premier-groupe-vb
29 avril 2011 à 17:42
au fait bonne idée
31 mars 2011 à 21:13
http://pastebin.com/xdqFt3NT
31 mars 2011 à 11:37
31 mars 2011 à 11:34
30 mars 2011 à 20:54
J'ai uploadé le fichier Zip , l'autre fois ça n'a pas été uploadé car l'extension était .rar !! :p
Mercii encore une fois!
30 mars 2011 à 20:35
30 mars 2011 à 20:34
30 mars 2011 à 11:29
* 6ème ligne : récupère le contenu du champ via txtVerbe.Text !
Private Sub cmdConjug_Click()
Dim Radical As String, Verbe As String
Verbe = Me.txtVerbe.Text If Len(Verbe) >4 And Right(Verbe, 2) "er" Then
Radical = Left(Verbe, Len(Verbe) - 2)
lblje.Caption = "Je " & Radical & "e"
[...]
Else
MsgBox "Vous devez entrer un verbe du premier groupe !", vbOKOnly, "Erreur!"
End If
End Sub
30 mars 2011 à 09:20
puisque tu n'exploites pas le résultat de la fonction, a savoir le bouton pressé dans la MsgBox...
et puisque de doute facon le resultat est connu d'avance, la MsgBox ne comprenant qu'un seul bouton...
il est inutile de placer
rep =
en tete de ta ligne et faire :
MsgBox "Vous devez entrer un verbe en premier groupe!", vbOKOnly Or vbExclamation, "Erreur!"
de toute facon, tu as déclaré cette variable (rep) A en tant que String, ce qui est incohérent avec le type de donnée renvoyé par MsgBox (vbMsgboxResult)
"Vous trouverez le programme en Zip!"
quel Zip ?
30 mars 2011 à 09:08
utilises
Unload Me
dans ce programme ca ne change rien, mais c'est une bonne habitude a prendre que de l'oublier.
30 mars 2011 à 09:08
Left(verb, Len(verb) - 2)