Visual Basic 6 non dispone di una funzione che mantiene automaticamente un modulo come la finestra in primo piano sullo schermo, ma è possibile utilizzare un modulo per dichiarare la funzione SetWindowPos API e farvi riferimento nel il progetto. Mentre il programma viene eseguito , il modulo rimane in cima a tutto : altre forme che sono parte dello stesso progetto e tutti gli altri programmi in esecuzione allo stesso tempo . Anche se il modulo resta in cima a tutto il resto, l'utente può comunque modificare la sua dimensione o spostarlo sullo schermo. Istruzioni
1
Aprire Visual Basic 6 . Fare clic su " EXE standard " nella finestra "Nuovo progetto" e fare clic su "Apri " per creare un progetto con un modulo.
2
Fare clic su " Progetto" nel menu e quindi fare clic su " Aggiungi modulo ". Fare clic sul pulsante "Apri" nella finestra di dialogo " Aggiungi modulo " che si apre per aggiungere un modulo al progetto e aprire la finestra del codice
3
Digitare quanto segue : .
< p > 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
l'istruzione Declare fa un riferimento alla libreria esterna user32 , che contiene la funzione SetWindowPos .
4
Aprire il Form_Load ( ) la finestra del codice per Form1 e tipo il seguente :
Dim windowPosition As Long
windowPosition = SetWindowPos ( Form1.hWnd , -1 , 0 , 0 , 0 , 0 , 1 ) per
Questo codice chiama la funzione dichiarata nel modulo e imposta Form1 per apparire sempre come l'oggetto di cui il progetto viene eseguito .
5
costruire il resto del progetto. Premere il tasto " F5 " per testare e vedere che la forma rimane sempre in primo piano .