6 Visual Basic não tem uma função que mantém automaticamente um formulário como a janela superior na tela, mas você pode usar um módulo para declarar a função SetWindowPos API e referenciá-lo em seu projeto. Enquanto o programa é executado, o formulário permanece no topo de tudo: outras formas que fazem parte do mesmo projeto e todos os outros programas em execução ao mesmo tempo. Mesmo que a forma permanece no topo de tudo o mais , o usuário ainda pode alterar seu tamanho ou movê-lo na tela. Instruções
1
Abra o Visual Basic 6 . Clique em " Standard EXE " na janela "New Project " e clique em "Abrir" para criar um projeto com um formulário.
2
Clique em " Project" no menu e , em seguida, clique em "Add Module. " Clique no botão "Abrir" na caixa de diálogo "Add Module" que se abre para adicionar um módulo para o projeto e abrir a janela de código
3
Digite o seguinte: .
Option Explicit
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
a instrução Declare faz uma referência à biblioteca user32 externa, que contém a função SetWindowPos .
4
Abra o Form_Load () janela de código para Form1 e tipo o seguinte :
Dim windowPosition as Long
windowPosition = SetWindowPos ( Form1.hWnd , -1, 0, 0, 0, 0, 1)
Este código chama o função declarada no módulo e define Form1 para sempre aparecem como o objeto superior quando o projeto é executado.
5
Construir o restante do projeto . Pressione " F5" para testá-lo e ver que a forma permanece sempre no topo.