Visual Basic 6 ikke har en funksjon som automatisk holder en form som den øverste vinduet på skjermen , men du kan bruke en modul for å erklære SetWindowPos API funksjon og referere til den på prosjektet . Mens programmet kjører , forblir form på toppen av alt : andre former som er en del av det samme prosjektet og eventuelle andre programmer som kjører samtidig . Selv om skjemaet forblir på toppen av alt annet , kan brukeren fortsatt endre størrelsen eller flytte den rundt på skjermen . Instruksjoner
en
Åpen Visual Basic 6 . Klikk " Standard EXE " i " New Project" og klikk " Åpne" for å opprette et prosjekt med et skjema.
2
Klikk på " Project" på menyen, og deretter klikker du "Add Module ". Klikk på "Open" knappen på "Add Module" dialogboksen som åpnes for å legge til en modul til prosjektet og åpner sin kode vindu
3
Skriv inn følgende : .
< p> Option Explicit
Declare Function SetWindowPos Lib " user32 " ( ByVal hwnd Som Long , ByVal hWndInsertAfter så lang, ByVal x As Long , ByVal y As Long , ByVal cx Som Long , ByVal cy så lang, ByVal wFlags som Long) As Long
Erklærer erklæringen gjør en referanse til den eksterne user32 biblioteket, som inneholder SetWindowPos funksjon .
4
Åpne Form_Load ( ) kode vinduet for Form1 og type følgende : en
Dim windowPosition Som Long
windowPosition = SetWindowPos ( Form1.hwnd , -1 , 0 , 0 , 0 , 0 , 1 )
Denne koden kaller funksjon erklærte i modulen og setter Form1 å alltid fremstå som den øverste objektet når prosjektet går .
5
Bygg resten av prosjektet . Trykk "F5 " for å teste den og se at skjemaet alltid forblir på toppen .