Bouton qui bouge

Question

Salut à tous,

je débute sur VBA6 Pro, et souhaiterais qu'au passage de la souris
un bouton "cmdvalide" se mette à bouger afin que l'utlilisateur ne puisse 
cliquer que sur l'autre bouton "cmd annuler";
merci d'avande votre aide

Amonbofis · Answer

Essaie ceci, ce n'est pas parfait, tu pourra le raffiner...

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim Gauche As Integer
  Dim Haut As Integer
   
  Gauche = Command1.Left + (Command1.Width * 1.5)
  If (Gauche > (Form1.Width - Command1.Width)) Then Gauche = 0
  
  Haut = Command1.Top + (Command1.Height * 1.5)
  If (Haut > (Form1.Height - Command1.Height)) Then Haut = 0
  
  Command1.Move Gauche, Haut
End Sub

Bouton qui bouge

1 réponse

Discussions similaires