AIDE AUX DÉBUTANTS EN VB6
cs_NISANDSYSTEMS
Messages postés
178
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010
-
28 mars 2005 à 18:33
sogesalex Messages postés 5 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 14 juin 2012 - 9 mai 2008 à 13:54
sogesalex Messages postés 5 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 14 juin 2012 - 9 mai 2008 à 13:54
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/30387-aide-aux-debutants-en-vb6
https://codes-sources.commentcamarche.net/source/30387-aide-aux-debutants-en-vb6
9 mai 2008 à 13:54
Il aurait fallu utiliser End et non Exit Sub dans le cas d'une réponse positive.
9 mai 2008 à 13:52
Il me semble qu'un If est plus optimisé dans le cas présent qu'un Select Case :
Private Sub Form_Unload(Cancel As Integer)
'Utilisation d'un MsgBox avec les boutons vbYesNo
Dim mReponse As Integer
mReponse = MsgBox("Voulez-vous quitter ce Programme?", vbYesNo, "Quitter?")
If mReponse = VBYes Then
Exit Sub
Else
Cancel = 1
end if
end sub
De toute façon il n'y a pas 36 possibilité ici la réponse et Oui ou Non mais rien d'autre...
20 mars 2008 à 18:10
exemple: bouton "outlook" et quand je clic dessus, je voudrais qu'il m'ouvre outlook. C'est quoi la bonne synthaxe svp????
désolé je débute :(
5 oct. 2007 à 00:20
merci
16 mars 2006 à 17:13
7 avril 2005 à 21:05
Premierement: je ne juge personne sur ce site
donc il y va de meme pour toi, tu ne me juges pas.
Si pour toi ânerie est blessant alors on n'est pas sorti de l'auberge...
Si tu prends parti pour defendre un code qui reellement n'ayons pas peur des mots, et horrible niveau programmation mais pas au niveau du fonctionnement
car il marche,mais bon vas-y si cela peux t'occuper la journée pourquoi pas....
Je suis ouvert à toute proposition....
@+ Nisand-Systems
Un grand merci BruNews
@+ Nisand-Systems
7 avril 2005 à 20:07
5 avril 2005 à 17:21
merci à tous
3 avril 2005 à 23:45
personne n'a attaqué la personne (KifKif ici), si ça avait été le cas j'aurais supprimé le commentaire.
Dire qu'il y a une ânerie dans le code n'a rien d'injurieux envers personne, surtout quand c'est le cas.
Retourner 2 fois lire la valeur d'un checkbox dans la même procédure est improductif.
Un String vb est une alloc mémoire par SysAllocString() et appellera un SysFreeString() en sortie, c'est très lourd en traitement surtout quand c'est strictement inutile. Tout cela pour y mettre un entier et le reconvertir en entier ensuite, on n'y croit pas... Le terme 'ânerie' me semble même très léger ici, sur d'autres sites CS on aurait été nettement plus cru et imagé.
Pour conclure:
Je rappelle que la critique des sources est LIBRE tant qu'il n'y a pas de propos orduriers ni d'attaques envers les personnes, c'est stricto sensu le cas ici et il n'y a donc rien à redire. Une mauvaise critique a au moins un effet bénéfique immédiat, le débutant passera son chemin et ne sera pas induit en erreur.
Bonne continuation.
3 avril 2005 à 22:16
3 avril 2005 à 18:15
Point final.
3 avril 2005 à 17:55
Bonjour kifkif,
J'ai regardé et testé ton code, selon moi, je dirai qu'il est bien fait et qu'il conviendra certainement à d'autres débutants comme moi. Ne te décourage surtout pas et continue à mettre tes codes sur VbFrance.
En règle générale, je suis quelqu'un qui tolère beaucoup de choses, par ailleurs, j'aime la critique positive, constructive, civilisée mais surtout courtoise et respectueuse de l'autre.
Malheureusement, je remarque avec regret qu'il y a certaines personnes qui ne cherchent qu'à dévaloriser et casser les autres en utilisant des termes inacceptables. A observer sur le site de VbFrance, ces mêmes personnes utilisent parfois des commentaires très peu conforme à la politesse, je m'adresse précisément à NISANDSYSTEMS pour ne pas le citer, en lui disant ceci :
Je me dois, même si cela ne me regarde pas, de te dire que tu n'as nullement le droit d'utiliser le mot "annerie" en parlant du code de KIFKIF, je te rappelle au passage que la courtoisie signifie que nous essayons d'éviter les propos déplacés et que nous nous efforçons de développer des grâces sociales qui reflètent la maturité et l'intégrité.
Je te remarque au passage que dans le mot "annerie" il y a deux fautes d'orthographe, il manque un accent circonflexe sur le "a", en plus "annerie" s'écrit avec un seul "n", à moins que les ânes de ton côté ont huit pattes.
Il serait peut être judicieux, à mon humble avis, que des excuses pour ton vocabulaire inadéquat envers le programme et la personne de Kifkif, soient présentées. Sache que le fait de faire ce geste te fera sortir plus grand de cette affaire.
Si ta réponse est positive et courtoise, tu gagneras mon estime, même si cela t'indiffère probablement. Si par contre tu me réponds à moi aussi dans le même genre qu'auparavant, je répondrai par le silence.
J'espère que tu auras l'intelligence d'accepter mes propos.
Salutations.
31 mars 2005 à 20:34
@+ Nisand-Systems
31 mars 2005 à 14:22
En fait je pensais que tu parlais de la structure du code (if machin = vbyes tu l'avais remplacé par un select case)
Désolé ^^
31 mars 2005 à 12:15
29 mars 2005 à 21:03
C'est le terme ânnerie qui va mal
29 mars 2005 à 12:37
On t'apporte qlqes solutions pour bien programmer, caril est vrai que ton prog marche mais, imagine toi avec un gros projet.
Si tu codes comme cela alors beaucoup d'erreurs il y aura et beaucoup de memoire usée pour rien.
A toi de tirer parti de ceux que nous, nous pouvons t'apporter.
J'ai été debutant comme tout le monde et surtout j'ai appris, j'apprend et j'apprendrai encore beaucoup de choses car pour bien programmer il ne te suffit pas des connaissances, il faut surtout savoir comment les employer ou et comment...
@Nisand-Systems
29 mars 2005 à 10:33
'*****************************
'* Programme pour débutants *
'* de Philip Beam *
'*****************************
'TOUT LE CODE SOURCE A ETE ECRIT EN ANGLAIS PAR PHILIP BEAM
'ET TRADUIT PLUS OU MOINS BIEN PAR KIFKIF
'-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~
De plus la capture donne une assez bonne indication des différentes possibilités en plus du titre pour ********DEBUTANTS*********
28 mars 2005 à 21:03
28 mars 2005 à 18:33
Regarde ceci par rapport à ton code:
Private Sub Check1_Click()
' met le label5 en Gras si check1 est pointé (valeur = 1)
Label5.FontBold = CBool(Check1.Value)
Exit Sub
End Sub
valable pour le reste des ckecks
pour cette grosse annerie:
Private Sub Form_Unload(Cancel As Integer)
'Utilisation d'un MsgBox avec les boutons vbYesNo
Dim yesno As String
yesno = MsgBox("Voulez-vous quitter ce Programme?", vbYesNo, "Quitter?")
If yesno = vbYes Then
Exit Sub
End If
Cancel = 1
End Sub
corrigé:
Private Sub Form_Unload(Cancel As Integer)
'Utilisation d'un MsgBox avec les boutons vbYesNo
Dim mReponse As Integer
mReponse = MsgBox("Voulez-vous quitter ce Programme?", vbYesNo, "Quitter?")
select case mReponse
case VBYes
Exit Sub
Case VBNo
Cancel = 1
end select
end sub
De plus, je ne vois pas l'interet d'une aide pour débutant dans cette source mais plutot de mauvaises
habitudes a programmer.
Il y a encore beaucoup de boulot a fournir...
@+ Nisand-Systems