|
|
Postada em 27/03/2006 09:57 hs
Caros Colegas: Existe alguma maneira desativar o MaxButton de um MDIForm? Se sim, como é feito isso? Grato
Expedito Junior msn: expedito_junior947@hotmail.com "A oportunidade favorece uma mente preparada!"
|
|
|
|
|
|
|
|
Postada em 27/03/2006 10:35 hs
Esta dica (dica extraída da sessão dicas do Visual Basic) não funcionou para mim, os botões continuaram ativos. O que tem de errado nela? 'Coloque o seguinte código num módulo:
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As _
Long) As Long
Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Public Const WS_MINIMIZEBOX As Long = &H20000
Public Const WS_MAXIMIZEBOX As Long = &H10000
Public Const GWL_STYLE As Long = (-16)
'No evento MDIForm_Load do MDIForm:
Sub MDIForm_Load()
Dim lWnd as Long
lWnd = GetWindowLong(Me.hWnd, GWL_STYLE)
'Tira o botão de minimizar
lWnd = lWnd And Not (WS_MINIMIZEBOX)
'Tira o botão de maximizar
lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(Me.hWnd, GWL_STYLE, lWnd)
End Sub
Expedito Junior msn: expedito_junior947@hotmail.com "A oportunidade favorece uma mente preparada!"
|
|
|
|
|
|
|
|
|
Postada em 27/03/2006 13:57 hs
A noite eu te mando uma API que faz isso... t+
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 27/03/2006 14:10 hs
Valeu pessoal. Consegui. O que estava acontecendo era o seguinte: Eu estava setando o Caption do form via codigo, para que no caption tivesse a informação da versão do prg. Só que isso não permitia que a api para desativa os controles MiniButton e MaxiButton funcionasse. Depois que coloquei o Caption direto no form, ai funcionou.
Expedito Junior msn: expedito_junior947@hotmail.com "A oportunidade favorece uma mente preparada!"
|
|
|
|
