Visual Basic 6 ikke har en funktion, der automatisk holder en form som øverste vindue på skærmen , men du kan bruge et modul til at erklære SetWindowPos API funktion og reference det i dit projekt. Mens programmet kører , formen forbliver på toppen af alt : andre former , der er en del af det samme projekt og alle andre programmer, der kører på samme tid . Selvom formen forbliver oven i alt det andet , kan brugeren stadig ændre dens størrelse eller flytte det rundt på skærmen. Instruktioner
1
Open Visual Basic 6 . Klik på " Standard EXE " i " Nyt projekt " vinduet og klik på "Åbn " for at oprette et projekt med en formular.
2
Klik på " Project" i menuen og derefter klikke på "Tilføj Module ". Klik på "Åbn " knappen på "Add Module" dialogboks, der åbnes for at tilføje et modul til projektet og åbne sit kodevinduet
3
Skriv følgende : .
< p> Option Explicit
Erklær Function SetWindowPos Lib " User32 " ( ByVal HWND As Long , ByVal hWndInsertAfter så længe , ByVal x As Long , ByVal y As Long , ByVal cx As Long , ByVal cy så længe , ByVal wFlags As Long ) As Long
Erklær erklæring gør en henvisning til den eksterne User32 bibliotek, som indeholder SetWindowPos funktion.
4
Åbn Form_Load ( ) kode vindue til Form1 og type følgende : Hej
Dim windowPosition As Long
windowPosition = SetWindowPos ( Form1.hwnd , -1, 0, 0, 0, 0, 1)
Denne kode kalder funktion der er erklæret i modulet og sætter Form1 til altid at fremstå som det øverste objekt , når projektet kører .
5.
Byg resten af projektet. Tryk på " F5 " for at teste det og se, at formularen altid forbliver på toppen.