Microsoft Visual Basic 6.0 is een programmeertaal die geeft je de tools om Windows- applicaties te ontwikkelen . U kunt gebruik maken van Visual Basic om eenvoudige programmaatjes evenals geavanceerde desktop-en Internet- applicaties te ontwikkelen . Screensavers zijn bewegende beelden of patronen die verschijnen op het computerscherm als het toetsenbord of de muis niet gebruikt is voor een bepaalde periode van tijd . In een paar stappen kunt u een screensaver -programma met behulp van Visual Basic te creëren . Instructies
1 Start Microsoft Visual Basic 6.0 en klik op ' Standard EXE " in de " New Project " dialoogvenster . Rechtermuisknop op het formulier en selecteer "Eigenschappen . " Type " " naast " Caption . " Set " Controlbox , " " MinButton " en " MaxButton " op " False ".
2 Selecteer " 0 - Geen " voor " Randstijl " en " 2 - . Gemaximaliseerde " voor " WindowState " Zet de " BackColor " naar " & H0 "
3 Klik op de " View Code "icoon . boven uw project naam in het "Project Explorer " venster om het venster code te openen . Kopieer en plak de volgende twee functies aan de bovenkant van uw raam code :
Private Declare Function SetWindowPos Lib " user32 " _ ( ByVal hwnd zoals lang, ByVal hWndInsertAfter zoals lang, _ByVal x zoals lang, ByVal Y als lang , ByVal cx zoals lang, _ByVal cy zoals lang, ByVal wFlags als lang) als Long Private Declare Function ShowCursor Lib " user32 " _ ( ByVal bShow
als lang) als Long
4 Kopieer en plak de onderstaande code om een nieuwe procedure die de vorm zal houden op de top te maken: Sub AlwaysOnTop
( FrmID Zoals vorm , OnTop zoals Van Boole ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const VLAGGEN = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
Als OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , VLAGGEN ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , VLAGGEN ) End Sub IfEnd
5 Klik op "Design View" in het " Project Explorer " om het formulier te bekijken . Dubbelklik op het formulier op de " Load " evenement te creëren . Kopieer en plak de volgende code in het formulier " Load " evenement om de screensaver te behandelen :
Selecteer Case LCase (Links ( Command , 2 ) ) Zaak " /p " : ENDCASE " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Selecteer Dim x
Zoals IntegerCall AlwaysOnTop ( Me , True ) x = ShowCursor ( Valse )
Copy 6 en plak de volgende code in de " Ontladen" gebeurtenis van het formulier om de cursor te laten zien wanneer het programma eindigt : Dim x
Zoals Integerx = ShowCursor ( True )
Copy 7 en plak de volgende code in de " KeyPress " gebeurtenis van het formulier om de screensaver te lossen wanneer de gebruiker een toets op het toetsenbord drukt : Statische Graaf
Zoals IntegerCount = Graaf + 1Als Graaf > 5 ThenUnload MeEnd Als
8 Klik op het menu "Bestand " , klik op "Maak . exe " naar een uitvoerbaar te maken . Ga naar uw project directory en verander de " EXE " uitbreiding Kopieer het bestand naar de " C : \\ Windows \\ System \\ " " SCR . " . Map
|
