Microsoft Visual Basic 6.0 är en dator programmeringsspråk som ger dig verktygen för att utveckla Windows-program . Du kan använda Visual Basic för att utveckla enkla nyttigheter samt avancerade skrivbordet och applikationerna Internet . Skärmsläckare är rörliga bilder eller mönster som visas på datorskärmen när tangentbordet eller musen inte har använts under en angiven tidsperiod . I några få steg kommer du att kunna skapa en skärmsläckare program med Visual Basic . Instruktioner
1
Starta Microsoft Visual Basic 6.0 , och klicka sedan på " Standard EXE " i " Nytt projekt " dialogrutan . Högerklicka på formuläret och välj " Egenskaper . " Type " " bredvid " Caption . " Set " ControlBox , " " MinButton " och " MaxButton " till " False ".
2
Välj " 0 - ingen " för " BorderStyle " och " 2 - . Maximerad " för " WindowState " Ställ in " BackColor " till " & H0 " Addera 3
Klicka på " Visa kod " -ikonen . över ditt projekt namn i " Project Explorer " fönstret för att öppna koden fönstret . Kopiera och klistra in följande två funktioner på toppen av din kod fönster :
Privat Declare Function SetWindowPos Lib " User32 " _ ( ByVal HWND As Long , ByVal hWndInsertAfter As Long , _ByVal x As Long , ByVal Y Som Long , ByVal CX As Long , _ByVal cy As Long , ByVal wFlags As Long ) As Long
Private Declare Lib Funktion ShowCursor " User32 " _ ( ByVal bShow As Long ) As Long
4
Kopiera och klistra in koden nedan för att skapa en ny procedur som kommer att hålla formen på topp :
Sub AlwaysOnTop ( FrmID som form , OnTop As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
p Om OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , flaggor) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , flaggor ) Avsluta IfEnd Sub
5
Klicka på " Design " i " Project Explorer " för att se formuläret . Dubbelklicka på formuläret för att skapa den " Load " händelse . Kopiera och klistra in följande kod i formuläret " Load " händelsen för att hantera skärmsläckare :
Välj Case LCase ( Left ( Command , 2 ) ) Case " /p " : endcase " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Välj
Dim x As IntegerCall AlwaysOnTop ( Me , sant) x = ShowCursor ( False )
6
Kopiera och klistra in följande kod i " Ladda ur " händelse av formulär för att visa markören när programmet avslutas :
Dim x As Integerx = ShowCursor ( sant)
7
Kopiera och klistra in följande kod i den " Tangenttryckning " händelse i formuläret för att lasta av skärmsläckaren när användaren trycker på en tangent på tangentbordet :
Statisk räknas som IntegerCount = Count + 1If Count > 5 ThenUnload MeEnd Om
8
Klicka på " Arkiv " -menyn , klicka på " Gör . exe " för att skapa en körbar . Gå till ditt projekt katalog och ändrar " EXE " förlängning för att kopiera filen till " C : \\ Windows \\ System \\ " " SCR . " . Mappen
