Bouton incliquable

Commenter

Contenu du snippet

Ces fameux boutons de faux virus ...
Mettez Me.ScaleMode = 3 < en pixel c plus simple :]

Source / Exemple : 


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

Conclusion :


Voila pas plus dur ke ça ! :]
Bon' prog ;)
+²

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ICIoBRa)