MODAL

GUILHERMEMFA 13/09/2011 10:01:23
#384106
Bom dia pessoal!

Tem como eu criar 2 forms: form1 e form2. O form1 chamando o form2 assim: form2.show 1 (modal) e ainda assim eu ter acesso às opções do form1?
Na verdade eu preciso chamar o form2 e poder acessar as opções do form1 sem perder o foco do form2.
Te como fazer isso?
KERPLUNK 13/09/2011 11:06:35
#384114 Resposta escolhida
Você pode usar a API [Ô]Always on top[Ô]:
Num módulo:
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowPos Lib [Ô]user32[Ô] Alias [Ô]SetWindowPos[Ô] _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long ) As Long

Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long

If Topmost = True Then [ô]Make the window topmost
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
0, 0,FLAGS)
SetTopMostWindow = False
End If
End Function

No seu form:
Dim lR As Long
lR = SetTopMostWindow(Me.hwnd, True)
GUILHERMEMFA 13/09/2011 11:11:50
#384117
valew!!
Tópico encerrado , respostas não são mais permitidas
Voltar