|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Colocar janela MDI sempre em primeiro plano
|
 |
|
|
|
Postada em 1/9/2004 por Rochª
Estas rotinas colocam uma janela MDI como primeiro plano em relacao as outras. Seria igual a um 'form.show 1' so que em MDI
Crie uma classe com as seguintes rotinas
Private Declare Function SetWindowPos Lib "user32" (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
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const SWP_WNDFLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Sub JANELA_TOP(form_top As Form)
Call SetWindowPos(form_top.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_WNDFLAGS)
'res = SetWindowPos(form_top.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
End Sub
Sub JANELA_NORMAL(form_normal As Form)
Call SetWindowPos(form_normal.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_WNDFLAGS)
End Sub
------------------------------------------------------------------
para colocar um form como primeiro plano use
JANELA_TOP cd_cliente
cd_cliente.Show
para remover
JANELA_NORMAL cd_cliente
Rochª
|
|
|
|
|
