Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 18 janv. 2011 à 18:56
attention aussi la sub display_me retourne un integer et tu le déclare en retour en string ! pas bien ça = convertion implicite choisi au moins un :
...& ret.tostring &....
Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 18 janv. 2011 à 18:53
En revanche :
Obligation de retourner un truc, soit dans un messageBox ou autre, dommage.
Button3 dans la form à virer ne sers plus ;)
++
Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 18 janv. 2011 à 18:51
sympa comme tout cette source !
remarques :
Private Sub CapsNoCaps()
Dim ctl As Control
if caps then
mode maj
else
mode min
End If
caps = Not caps
End Sub
plus lisible je trouve
-le addHanler est bien vue !
-pourquoi le point ne marche pas en majuscule ?
-l'astuce réside en fait à bloquer le retour du .show tant que pas Enter ou exit, faudrait bien l'expliquer car j'ai pas vu cela avant !
-Bienvue aussi la sub avec le owner dans le display_me : Me.ShowDialog(Owner)
je UP ce code car il est trés formateur à mon sens.
cordialement @dn
cs_castagne
Messages postés20Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 9 janvier 2008 27 sept. 2007 à 12:38
Ton logiciel
VB-2005-LOGICIEL-GESTION-PUBLICITAIRE-SITES
sans probleme, j'ai reécris avec ton idée, mais je suis revenu en arriere. Il faudrait que j'ai le temps de decouper en 2 ou 3 sub et partager les handles.Mais l'idée est bonne car en plus je suis in inconditionnel du select case
cs_Kite37
Messages postés242Date d'inscriptionlundi 6 mars 2006StatutMembreDernière intervention17 janvier 2018 26 sept. 2007 à 17:30
oui biensur. mon but n'est pas de te casser ou quoi que se soit, mais de te montrer d'autres méthode qui parfois peuvent être plus apropriée ^^ (quel est mon logiciel avec tPrincipale? que je corrige cela).
cs_castagne
Messages postés20Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 9 janvier 2008 26 sept. 2007 à 17:02
Mais je suis d'accord, je vais rectifier. Mon but n'etait pas de montrer la form clavier mais une interaction entre 2 forms. Mais attention à toi aussi, quand on commente, il faut aussi être logique dans ces progs. j'ai releve 11 fois "tPrincipale" dans un de tes progs.
Une variable c + simple et plus plaisant.
cs_Kite37
Messages postés242Date d'inscriptionlundi 6 mars 2006StatutMembreDernière intervention17 janvier 2018 26 sept. 2007 à 16:29
bah après, c'est vrai qu'il faut choisir entre 3 ligne de handles qui assurent ensuite un code + rapide à écrire (un select case, puis un bon gros copier coller pour chaque possiblité, c'est assez rapide :p) et plus agréable a lire (car une sub, c'est toujours plus rapide et plaisant a lire que 40 qui font quasiment la même chose ) et de nombreuses ligne répétitives.
Mais bon, cela n'engage que moi.
Cordialement, KiTe
cs_castagne
Messages postés20Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 9 janvier 2008 26 sept. 2007 à 16:17
Globalement Ok avec toi, le seul truc c que j'aime pas 3 lignes de handles.
cs_Kite37
Messages postés242Date d'inscriptionlundi 6 mars 2006StatutMembreDernière intervention17 janvier 2018 26 sept. 2007 à 16:04
hum plutôt qu'écrire une sub par bouton, il aurait peut être été plus judicieux (niveau clarté de code et gain de temps lors de son écriture) de faire une UNIQUE sub avec plusieurs handles.
Exemple :
Private Sub test(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
If sender.Equals(Me.Button1) Then
MsgBox("Bouton1")
Else
MsgBox("Bouton2")
End If
End Sub
Comme tu pourras le remarquer en faisant toi-même des tests, que tu appuie sur le bouton1 ou sur le bouton2, dans les deux cas la sub test sera appelée.
En utilisant : sender.Equals(Me.Button1) dans une instruction conditionnel, tu peux vérifier quel bouton a été utilisé (cf exemple) et ainsi gérer ton code, dans ton cas avec un select case !
18 janv. 2011 à 18:56
...& ret.tostring &....
18 janv. 2011 à 18:53
Obligation de retourner un truc, soit dans un messageBox ou autre, dommage.
Button3 dans la form à virer ne sers plus ;)
++
18 janv. 2011 à 18:51
remarques :
Private Sub CapsNoCaps()
Dim ctl As Control
if caps then
mode maj
else
mode min
End If
caps = Not caps
End Sub
plus lisible je trouve
-le addHanler est bien vue !
-pourquoi le point ne marche pas en majuscule ?
-l'astuce réside en fait à bloquer le retour du .show tant que pas Enter ou exit, faudrait bien l'expliquer car j'ai pas vu cela avant !
-Bienvue aussi la sub avec le owner dans le display_me : Me.ShowDialog(Owner)
je UP ce code car il est trés formateur à mon sens.
cordialement @dn
27 sept. 2007 à 12:38
VB-2005-LOGICIEL-GESTION-PUBLICITAIRE-SITES
sans probleme, j'ai reécris avec ton idée, mais je suis revenu en arriere. Il faudrait que j'ai le temps de decouper en 2 ou 3 sub et partager les handles.Mais l'idée est bonne car en plus je suis in inconditionnel du select case
26 sept. 2007 à 17:30
26 sept. 2007 à 17:02
Une variable c + simple et plus plaisant.
26 sept. 2007 à 16:29
Mais bon, cela n'engage que moi.
Cordialement, KiTe
26 sept. 2007 à 16:17
26 sept. 2007 à 16:04
Exemple :
Private Sub test(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
If sender.Equals(Me.Button1) Then
MsgBox("Bouton1")
Else
MsgBox("Bouton2")
End If
End Sub
Comme tu pourras le remarquer en faisant toi-même des tests, que tu appuie sur le bouton1 ou sur le bouton2, dans les deux cas la sub test sera appelée.
En utilisant : sender.Equals(Me.Button1) dans une instruction conditionnel, tu peux vérifier quel bouton a été utilisé (cf exemple) et ainsi gérer ton code, dans ton cas avec un select case !
De cette manière, tout est dans UNE sub unique :)
Voilou, Cordialement, KiTe