Interdire le déplacement de Userform

[Temjeh]

Bonjour le forum

Est-ce possible d'nterdire le déplacement de Userform?
Ex: si je le met center screen on ne peut le bouger


j'ai besoin de cela pour un prob avec une suggestion que j'ai fait récemment à CélineG

Merci de votre aide et continuer votre beau travail

Temjeh

 

[Eric C]

Bonjour le forum
Bonjour Temjeh

Voici un code qui supprime la croix de fermeture et interdit le déplacement de ton USF. A adapter of course....

Private Declare Function FindWindowA Lib 'User32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()                                          'Thierry
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub  'A ne pas oublier sinon !!!!!!!! :whistle:

 

[Temjeh]

Merci beaucoup j'avais le enlève X mais pas le remove bar et le figer

Je garde cela préceusement

Bravo!!

Temjeh

En même temps si Céline regarde ce post alors elle a une autre solution

A++

 

[MichelXld]

bonjour Temjeh , bonjour Eric

en complément de la réponse proposée par mon ami Eric , ci dessous une autre solution donnée par Ti , sans API

Lien supprimé


bonne soiree
MichelXld

 

[Temjeh]

Ok merci aussi Michel je regarde ca

A++

Temjeh

 

[Eric C]

re le forum
Re bonjour Temjeh


Bonjour & merci Michel (ainsi qu'à Ti) pour ce code qui n'utilise pas
les API. C'est tout bon comme cela.
Bonne soirée à toutes & à tous