Re : VBA-USF: supprimer barre de titre (OK) mais comment deplacer ensuite?!
Ayant lancé un premier SOS avec 3 questions et n'obtenant pas de reponses, j'ai decoupe mon gros PB en sous problemes, dont ce post est le premier.
J'ai obtnenu DEUX codes: HULK + MyDearFriend (Merci encore!)
Voici le comparatif (je ne mets pas le code [que l'on trouve aisémenent] pour supprimer la barre de titre)
HULK
DECLARATION de l'USF:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Puis:
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ReleaseCapture
SendMessage FindWindow(vbNullString, Me.Caption), &HA1, 2, 0&
End Sub
Voici le code de MydearFriend:
DECLARATION de l'USF:
Dim Xusf As Single, Yusf As Single
Puis:
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
Xusf = X
Yusf = Y
End If
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then Me.Move Me.Left + X - Xusf, Me.Top + Y - Yusf
End Sub
Bonne prog...