|
 |
 |
 |
| |
Jouer au chat et à la souris avec un contrôle 
Voici un code sympa à essayer.
Créez un module et placez-y le code suivant :
Public Sub ControlePeurDeSouris(NomFeuille As Form, CTL As Control)
If CTL.Top = 600 Then 'Deplace vers le bas
For i = 600 To NomFeuille.Height - 2 * CTL.Height Step Screen.TwipsPerPixelY
CTL.Top = i
Next i
Else 'Deplace vers le haut
For i = NomFeuille.Height - 2 * CTL.Height To 600 Step -Screen.TwipsPerPixelY
CTL.Top = i
Next i
End If
End Sub
ensuite placez dans l'évenement Mouse_Move d'un controle ceci :
ControlePeurDeSouris Me, Command1
Dans cet exemple j'ai pris Command1 mais vous devez le remplacer par le nom du contrôle voulu.
|
|
 |
|
 |
|
IDDN Certification
