ESSAYEZ D'ATTRAPER LE BOUTON

Jujufouq Messages postés 254 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 5 mars 2006 - 4 juin 2003 à 23:13
cs_kaalii Messages postés 6 Date d'inscription mercredi 15 octobre 2003 Statut Membre Dernière intervention 5 décembre 2003 - 28 oct. 2003 à 11:32

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/7340-essayez-d-attraper-le-bouton

cs_kaalii Messages postés 6 Date d'inscription mercredi 15 octobre 2003 Statut Membre Dernière intervention 5 décembre 2003
28 oct. 2003 à 11:32

j ai une erreur de ce code.
ca me marque ')' attendu.

morpheus83 Messages postés 7 Date d'inscription dimanche 11 mai 2003 Statut Membre Dernière intervention 13 mai 2010
9 juin 2003 à 23:57

MerciI ICIoBRa , j'y avais pas pensé ...mais bon je débute...alors ...

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
9 juin 2003 à 19:25

Ben tu mets pas de code
+²

morpheus83 Messages postés 7 Date d'inscription dimanche 11 mai 2003 Statut Membre Dernière intervention 13 mai 2010
9 juin 2003 à 19:22

COMMENT FAIRE POUR QUE LE BOUTON RESTE A SA PLACE D ORIGINE ?

Jujufouq Messages postés 254 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 5 mars 2006
7 juin 2003 à 22:16

Pas bourré, mais endormi... Salut et sorry.. ;-)

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
6 juin 2003 à 13:33

T'entend dire k'un bug sert à quelque chose ? Shépa où ta vu ça mé bon ... A mon avis kand ta écris ce message tu devé être bourré c pas possible ... ;)
+²

Jujufouq Messages postés 254 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 5 mars 2006
6 juin 2003 à 11:28

Tiens, c'est la première fois que j'entends dire qu'un bug sert à quleque chose au programmeur (à part pour l'embêter). Vous êtes comiques ;-)

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
5 juin 2003 à 22:19

Wai j'C lol j'Voi pas trop pourkWa mé bon c un p'ti bug de VB ... C pas bien méchant au contraire ;)
+²

Drgn13 Messages postés 86 Date d'inscription vendredi 14 mars 2003 Statut Membre Dernière intervention 26 mars 2007
5 juin 2003 à 21:37

...avec la solution de ICIoBRa.

Drgn13 Messages postés 86 Date d'inscription vendredi 14 mars 2003 Statut Membre Dernière intervention 26 mars 2007
5 juin 2003 à 21:36

c'est cool ca... si tu maintiens espace appuié et que tu bouge la souris, le bouton va partout!!!

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
5 juin 2003 à 18:11

Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Bon Voila kand on met le curseur sur le bouton :
re1:
'On défini un nombre au hasard ne dépassant pas la hauteur du form + la hauteur du bouton biensur :
a = Int(Rnd * Me.ScaleHeight - cmd1.Height)
'Si c'est plus petit ke Zéro le bouton 'on le vérra pas entierrement, donc on r'comminshe :
If a < 0 Then GoTo re1
'Le bouton change maintenant d'hauteur :
cmd1.Top = a
re2:
'On défini un nombre au hasard ne dépassant pas la largeur du form + la largeur du bouton :
b = Int(Rnd * Me.ScaleWidth - cmd1.Width)
If b < 0 Then GoTo re2
'Le bouton change maintenant de largeur !
cmd1.Left = b
End Sub

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
4 juin 2003 à 23:20

Le code est pas très stable, si vous chercheZ ce code je vous conseil : http://www.vbfrance.com/article.aspx?ID=8417
En tout cas bonne chance dans ton prog et j'espère ke ma source as t'aider.
+²

Jujufouq Messages postés 254 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 5 mars 2006
4 juin 2003 à 23:13

J'ai vu un jeu avec un truc comme ça... En fait, c'était un mini questionnaire pour les mecs pour savoir si ce sont de bons mecs envers leurs femmes. Il y avait 5 questions et toujours 2 réponses (vrai ou faux). A chaque fois le bouton qu'un macho cliquerait soit bougeait, soit disparaissait, soit c'était l'autre bouton qui était montré comme cliqué.... Enfin, voilà à quoi cela peut servir par exemple!!!

;-)

Bon courage dans ta prog.

Discussions similaires

Activer un bouton de commande

enlever la protection de cellules d'un feuille protégée

[Excel-VBA] Erreur 1004 Feuille protégée / ôter la protection, modifier contenu

Probleme de feuille protégées et repétition de données

faire grisé un bouton

Votre réponse

Discussions similaires