How to Program Animerte i VB6

Microsoft Visual Basic 6.0 er et programmeringsspråk som gir deg verktøy til å utvikle Windows-programmer. Du kan bruke Visual Basic for å utvikle enkle verktøy samt avanserte stasjonære 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 bestemt tidsperiode. I noen få trinn vil du være i stand til å lage en skjermsparer program ved hjelp av Visual Basic.

Bruksanvisning

1 Start Microsoft Visual Basic 6.0, og klikk deretter på "Standard EXE" i "New Project" dialogboksen. Høyreklikk på Form og velg "Properties." Type "" ved siden av "Caption." Set "styreboksen", "MinButton" og "MaxButton" til "False".

2 Velg "0-None" for "Border" og "2 - Maksimert" ". WindowState" for Sett "Back" til "& H0."

3 Klikk på "Vis kode" -ikonet ovenfor prosjektnavnet i "Project Explorer" ruten for å åpne kodevinduet. Kopier og lim følgende to funksjoner på toppen av din kode vinduet:

Private 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

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 formen på topp:

Sub AlwaysOnTop (FrmID som form, Ontop As Boolean)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Konst FLAGS = SWP_NOMOVE Eller SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Hvis OnTop Deretter

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Ellers

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Slutt om
End Sub

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

Velg Sak LCase (Venstre (Kommando, 2))

Case "/p": End
Case "/s"
Case Else: Me.Hide: frmSettings.Show: Exit Sub

End Select

Dim x As Integer
Ring AlwaysOnTop (Me, sann)
x = ShowCursor (False)

6 Kopier og lim inn følgende kode i "Losse" hendelse av skjema for å vise markøren når programmet avsluttes:

Dim x As Integer
x = ShowCursor (sann)

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

Statisk Antall As Integer
Count = Antall + 1
Hvis Antall> 5 Da
losse Me
Slutt om

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