Microsoft Visual Basic 6.0 er en computer programmeringssprog, der giver dig værktøjer til at udvikle Windows-programmer. Du kan bruge Visual Basic til at udvikle simple forsyningsselskaber samt avanceret desktop og internet applikationer . Screensavers er levende billeder eller mønstre , der vises på computerskærmen, når tastaturet eller musen ikke har været brugt i en specificeret periode. I et par trin, du vil være i stand til at skabe en screensaver program ved hjælp af Visual Basic. Instruktioner
1
Start Microsoft Visual Basic 6.0, og klik derefter på " Standard EXE " i " Nyt projekt " dialogvindue . Højreklik på Form og vælg " Egenskaber". Type " " ved siden af " Caption . " Set " ControlBox ", " MinButton " og " MaxButton " til " False ".
2
Vælg " 0 - Ingen " for" BorderStyle "og" 2 - . Maksimeret "for" WindowState " Sæt " BackColor "til " & H0 "
3
Klik på" View Code "-ikonet. over dit projekt navn i " Project Explorer " rude for at åbne koden vinduet. Kopier og indsæt følgende to funktioner i toppen af din kode vinduet :
Private Erklær Funktion SetWindowPos Lib " User32 " _ ( ByVal HWND As Long , ByVal hWndInsertAfter så længe , _ByVal x As Long , ByVal Y Som lang, ByVal cx As Long , _ByVal cy så længe , ByVal wFlags As Long ) As Long
Private Erklær Funktion ShowCursor Lib " User32 " _ ( ByVal bShow As Long ) As Long
4
Kopier og indsæt koden nedenfor til at lave en ny procedure , der vil holde formen på toppen : Hej
Sub AlwaysOnTop ( FrmID som form , ontop som Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAG = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
p Hvis ontop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , FLAG ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0, FLAG ) End IfEnd Sub
5
Klik på " Design View " i " Project Explorer " for at se formular . Dobbeltklik på formularen for at skabe den " Load " begivenhed . Kopier og indsæt følgende kode inde i Form " Load "-arrangement til at håndtere screensaver : Hej
Vælg Case LCase ( Left (Kommando , 2) ) Case " /p" : EndCase " /s" Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Vælg
Dim x As IntegerCall AlwaysOnTop (Me , sand) x = ShowCursor ( False )
6
Kopier og indsæt følgende kode i " Unload " begivenhed i formularen for at vise markøren, når programmet slutter :
Dim x As Integerx = ShowCursor (sand)
7
Kopier og indsæt følgende kode i de " tastetryk " begivenhed i formularen at losse screensaver , hvis brugeren trykker på en tast på tastaturet : Hej
Statisk Count Som IntegerCount = Count + 1Hvis Count > 5 ThenUnload MeEnd Hvis
8
Klik på " Filer" , og klik derefter på "Make . exe " for at skabe en eksekverbar . Gå til dit projekt mappe og ændre " EXE " udvidelse for at kopiere filen til " C: \\ Windows \\ System \\ " " SCR ". . Mappe