Ako naprogramovať animované šetriče displeja v VB6

Microsoft Visual Basic 6.0 je počítačový programovací jazyk , ktorý vám poskytuje nástroje pre vývoj aplikácií Windows . Môžete použiť Visual Basic vytvoriť jednoduché nástroje , rovnako ako moderné desktop a internetové aplikácie . Obrazovky sú pohyblivé obrázky alebo vzory , ktoré sa objaví na obrazovke počítača, ak nebola použitá klávesnice alebo myši po určitú dobu . V niekoľkých krokoch budete môcť vytvoriť šetrič obrazovky programu pomocou jazyka Visual Basic . Pokyny dovolená 1

Spustite program Microsoft Visual Basic 6.0 , kliknite na tlačidlo " Štandardné EXE " v " Nový projekt " dialóg okno . Kliknite pravým tlačidlom myši na formulár a vyberte " Vlastnosti . " Typ " " vedľa " Caption . " Set " Control " , " MinButton " a " MaxButton " na " False " .
2

Vyberte " 0 - Žiadny " pre " Štýl okraja " a " 2 - . maximalizované " pre " WindowState " Nastavenie " BackColor " na " & H0 "
3

Kliknite na " ikonu Zobraziť kód " . nad názov projektu v " Prehliadač projektu " paneli otvorte okno kód . Skopírujte a vložte nasledujúci dve funkcie v hornej časti okna kód :

Private Declare Function SetWindowPos Lib " user32 " _ ( ByVal hwnd As Long , byval hWndInsertAfter tak dlho , _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
Stránka 4

skopírujte a vložte nižšie uvedený kód vytvoriť nový postup , ktorý bude udržiavať formulár hore :

Sub AlwaysOnTop ( FrmID ako formulár , na tý As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const VLAJKY = SWP_NOMOVE alebo SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

Ak tý ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , vlajky ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , vlajky ) End Sub IfEnd
5

Kliknite na " Návrhové zobrazenie " v " Project Explorer " zobrazíte formulár . Dvakrát kliknite na formulár pre vytvorenie " Load " udalosť . Skopírujte a vložte nasledujúci kód do formulára " Load " udalosť zvládnuť šetrič obrazovky :

Select Case LCase ( Ľavá ( Command , 2 ) ) Case " /p " : ENDCASE " /s " Case Else : Me.Hide : frmSettings.Show : Koniec SubEnd Vyberte

Dim x ako IntegerCall AlwaysOnTop ( Me , pravda ) x = ShowCursor ( False )
6

skopírujte a vložte nasledujúci kód v " Unload " prípade , že formuláre na zobrazenie kurzora pri ukončení programu :

Dim x ako Integerx = ShowCursor ( TRUE )
7

skopírujte a vložte nasledujúci kód do " KeyPress " udalosť formulára vyložiť šetrič obrazovky , ak používateľ stlačí kláves na klávesnici :

Static Počet Ako IntegerCount = Count + 1Pokud Count > 5 ThenUnload MeEnd Ak
8

Kliknite na menu " súbor " , potom kliknite na tlačidlo " Make . exe " vytvoriť spustiteľný súbor . Prejdite do adresára projektu a zmeniť " EXE " rozšírenie na " SCR " . Skopírujte súbor " C : \\ Windows \\ System \\ " . Zložku

• Predchádzajúca strana: Ako volať uložené procedúry DB2 , Visual Basic 6.0 aplikácie 
• Ďalšia strana: Ako napísať prvku ActiveX