alias_2003
XLDnaute Occasionnel
Bonjour,
J'aimerais empêcher le clic sur la barre de titre de l'userform. J'utilise le code suivant :
Ce code fonctionne bien, mais si l'on va un peu vite, il est possible d'accèder à la barre de titre (caption) de l'userform...
Je précise que je ne souhaite pas utiliser d'api, ni d'evenement userform_layout (j'obtiens une erreur 384 que je n'explique pas...), ni supprimer le caption...
Avez-vous une idée ?
Merci beaucoup,
Amicalement
J'aimerais empêcher le clic sur la barre de titre de l'userform. J'utilise le code suivant :
Code:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim MonCurseur As point
If x < 10 Or y < 10 Or x > Me.Width - 10 Or y > Me.Height - 30 Then
GetCursorPos MonCurseur
If x < 10 Then SetCursorPos MonCurseur.xx + 12, MonCurseur.yy
If y < 10 Then SetCursorPos MonCurseur.xx, MonCurseur.yy + 12
If x > Me.Width - 10 Then SetCursorPos MonCurseur.xx - 12, MonCurseur.yy
If y > Me.Height - 30 Then SetCursorPos MonCurseur.xx, MonCurseur.yy - 12
Else: Application.StatusBar = x & "-" & y
End If
End Sub
Je précise que je ne souhaite pas utiliser d'api, ni d'evenement userform_layout (j'obtiens une erreur 384 que je n'explique pas...), ni supprimer le caption...
Avez-vous une idée ?
Merci beaucoup,
Amicalement