Quer manter o seu formulário sempre 'no topo' sobre os demais ?
Faça o seguinte:
1-) Inicie um novo projeto no VB e insira um módulo no menu Project|Add Module
2-) A seguir insira o código abaixo no módulo :
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 Public Const hWnd_TOP = 0 Public Const hWnd_TOPMOST = -1 Public Const hWnd_NOTOPMOST = -2 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE |
3-) No formulário padrão insira dois botões de comando : command1 - No topo- e command2 - Normal. Agora insira o código abaixo em cada botão de comando:
Private Sub Command1_Click() res = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, flags) End Sub |
Private Sub Command2_Click() res = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) End Sub |
4-) Inicie o seu projeto e clique no botão - No Topo- . Agora experimente iniciar qualquer outra janela. O formulário do seu projeto sempre ficará sobre qualquer uma delas. Para voltar ao normal clique no botão - Normal.
Essa é classica...