Visual Basic 6 niet over een functie die automatisch houdt een vorm als de bovenste venster op het scherm , maar u kunt een module gebruiken om de SetWindowPos API-functie en de referentie verklaren het in uw project . Terwijl het programma loopt , de vorm blijft op de top van alles : andere vormen die deel uitmaken van hetzelfde project en alle andere programma's draaien op hetzelfde moment . Hoewel de vorm blijft op de top van al het andere , kan de gebruiker nog steeds de grootte te veranderen of het rond bewegen op het scherm. Instructies
1 Open Visual Basic 6 . Klik op " Standard EXE " in het " Project New " -venster en klik op "Open " om een project te maken met een vorm .
Klik op " Project " 2 op het menu en klik op ' Module toevoegen . " Klik op de "Open " knop op de " Add Module " dialoogvenster dat wordt geopend om een module toe te voegen aan het project en de code-venster te openen
Type 3 het volgende : .
Option Explicit
Declare Function SetWindowPos Lib " user32 " ( ByVal hwnd zoals lang, ByVal hWndInsertAfter zoals lang, ByVal x As Long , ByVal y zoals lang, ByVal cx zoals lang, ByVal cy zoals lang, ByVal wFlags As Long ) As Long
de instructie Declare maakt een verwijzing naar het externe user32 bibliotheek , waarin de SetWindowPos functie bevat .
4 Open de Form_Load ( ) code venster voor Form1 en soort het volgende : Dim windowPosition
As Long windowPosition
= SetWindowPos ( Form1.hwnd , -1 , 0 , 0 , 0 , 0 , 1 ) op Twitter Deze code roept de functie gedeclareerd in de module en stelt Form1 te verschijnen altijd als hoogste object wanneer het project wordt uitgevoerd .
5 Bouw de rest van het project . Druk op " F5 " om het te testen en te zien dat het formulier blijft altijd op de top .
|
