Si c'est possible

Question

Est-t'il possible de mettre une form avec un BORDER STYLE a 0 (None) dans une feuille mdi et pourvoir la bouger seulement en cliquant dessus et en tenant le bouton de la souris. SI c'est possible, réponder moi svp!!

ZTPdiffusion · Answer

Salut

Tu ajoutes le code qui suit dans le code de la feuille à déplacer :

'
'Configuration déplacement formulaire
'
Private ExtenderMove As Boolean
Private dX As Integer
Private dY As Integer
'
'Déplacement du formulaire
'
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = vbLeftButton Then
    dX = x
    dY = y
    ExtenderMove = True
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  MousePointer = 1
  If Button = vbLeftButton And ExtenderMove Then
    Form1.Left = Form1.Left + x - dX 'Form1 est le nom de la feuille à déplacer
    Form1.Top = Form1.Top + y - dY 'Form1 est le nom de la feuille à déplacer
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  ExtenderMove = False
End Sub

 :) 

a+