MDI COM BORDERSTYLE FIXED

GOLVEIAR 19/04/2007 14:28:44
#212761
como fazer para o meu form MDI não redirecionar usando o mouse quero que ele fique com a borderStyle fixed
DANIELCPAETE 19/04/2007 14:57:18
#212778 Resposta escolhida
faz assim cara 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const WS_MAXIMIZEBOX = &H10000
Const WS_THICKFRAME = &H40000

Private Sub MDIForm_Load()
   wStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
   wStyle = wStyle - WS_MAXIMIZEBOX - WS_THICKFRAME
   SetWindowLong Me.hwnd, GWL_STYLE, wStyle
End Sub
DANIELCPAETE 19/04/2007 14:59:37
#212781
você ainda pode deixar o botão de MAXIMIZAR é so apagar a opção - WS_MAXIMIZEBOX
Tópico encerrado , respostas não são mais permitidas
Voltar