Bonsoir le forum
J ai un petit soucis , j ai un usf que je dimensionne le plein ecran et je souhaite qu il ne puisse pas etre deplace.
Voici le code que j ai mis pour cela :
Cela fonctionne trés bien lorsque execute sous windows 2000, par contre lorsque c est execute sous XP, l usf est bien en plein ecran mais il manque la barre de titre de l usf
Pourquoi le code a des effets differents suivant l OS?
Comment y remedier?
Merci d avance
Sébastien
J ai un petit soucis , j ai un usf que je dimensionne le plein ecran et je souhaite qu il ne puisse pas etre deplace.
Voici le code que j ai mis pour cela :
Code:
Private Sub UserForm_Activate()
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
Cela fonctionne trés bien lorsque execute sous windows 2000, par contre lorsque c est execute sous XP, l usf est bien en plein ecran mais il manque la barre de titre de l usf
Pourquoi le code a des effets differents suivant l OS?
Comment y remedier?
Merci d avance
Sébastien