Microsoft Visual Basic 6.0 er et programmeringsspråk som gir deg verktøy til å utvikle Windows-applikasjoner . Du kan bruke Visual Basic til å utvikle enkle verktøy samt avanserte desktop-og Internett -applikasjoner . Skjermsparere er bevegelige bilder eller mønstre som vises på dataskjermen når tastaturet eller musen ikke har vært brukt i en spesifisert tidsperiode . I noen få trinn vil du være i stand til å lage en skjermsparer program ved hjelp av Visual Basic. Instruksjoner
en

start Microsoft Visual Basic 6.0 , deretter " Standard EXE " i " New Project" dialogvinduet. Høyreklikk på Form og velg " Properties". Type " " ved siden av " Bildetekst . " Set " kontrollboksen ", " MinButton " og " MaxButton " til " False ".
2

Velg " 0 - Ingen " for" BorderStyle "og" 2 - . Maksimert "for" WindowState " Sett " BackColor "til" & H0 "
3

Klikk på" Vis kode "-ikonet . over prosjektet ditt navn i "Project Explorer »-panelet for å åpne koden vinduet. Kopier og lim inn følgende to funksjoner på toppen av koden vinduet :

Private Declare Function SetWindowPos Lib " user32 " _ ( ByVal hwnd Som Long , ByVal hWndInsertAfter så lang, _ByVal x As Long , ByVal Y As Long , ByVal cx så lenge , _ByVal cy så lang, ByVal wFlags Som Long) As Long

Private Declare Function ShowCursor Lib " user32 " _ ( ByVal bShow As Long) As Long
4

Kopier og lim inn koden nedenfor til å lage en ny prosedyre som vil holde skjemaet på toppen : en

Sub AlwaysOnTop ( FrmID som form , OnTop As Boolean ) Konst SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
p Hvis OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , FLAGS ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , FLAGS ) End IfEnd Sub
5

Klikk på " Design view" i "Project Explorer" for å se skjema . Dobbeltklikk skjemaet for å lage "Load " hendelse . Kopier og lim inn følgende kode i Form " Load" hendelse for å håndtere animasjonen:

Velg sak LCase ( Venstre ( Command, 2 ) ) veske " /p" : endcase " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Velg

Dim x As IntegerCall AlwaysOnTop (Me , sann) x = ShowCursor ( False )
6

Kopier og lim inn følgende kode i " losse " hendelse i Form for å vise markøren når programmet avsluttes :

Dim x As Integerx = ShowCursor (Sann )
7

Kopier og lim inn følgende kode i den " KeyPress " hendelse i Form å losse skjermsparer hvis brukeren trykker på en tast på tastaturet : en

Statisk Count Som IntegerCount = Count + 1Hvis Count > 5 ThenUnload MeEnd Hvis
8

Klikk på "File "-menyen , klikk deretter på "Make . exe " for å lage en kjørbar . Gå til ditt prosjekt katalog og endre " EXE " forlengelse til Kopier filen til " C: \\ Windows \\ System \\" " SCR . ». Mappe