Bouton incliquable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 159 fois - Téléchargée 37 fois

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

Ajouter un commentaire Commentaire
Messages postés
7
Date d'inscription
mardi 28 juillet 2009
Statut
Membre
Dernière intervention
27 octobre 2010
1
arf c'est un peu nul comme blague

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.