Microsoft Visual Basic 6.0 ist eine Programmiersprache , die Ihnen die Werkzeuge, um Windows-Anwendungen zu entwickeln. Sie können Visual Basic , einfache Dienstprogramme sowie erweiterte Desktop- und Internet- Anwendungen zu entwickeln. Bildschirmschoner sind bewegte Bilder oder Muster, die auf dem Bildschirm erscheinen, wenn die Tastatur oder Maus nicht für einen bestimmten Zeitraum nicht verwendet wird. In wenigen Schritten sind Sie in der Lage, einen Bildschirmschoner -Programm mit Visual Basic erstellen. Anleitung
1

Starten Sie Microsoft Visual Basic 6.0 , und klicken Sie auf " Standard EXE " in der " New Project" Dialogfenster . Rechten Maustaste auf das Formular , und wählen Sie "Eigenschaften". Type " " neben "Caption . " Set " ControlBox ", " MinButton " und " MaxButton " auf "False ".
2

Wählen Sie " 0 -None " für" BorderStyle "und" 2 - . maximierte " für" WindowState " Stellen Sie die" BackColor "bis" & H0 "
3

Klicken Sie auf" Code anzeigen "-Symbol. über dem Projektnamen in der " Projekt-Explorer " Fenster, um das Codefenster zu öffnen . Kopieren und fügen Sie die folgenden zwei Funktionen an der Spitze des Code-Fenster:

Private Declare Function SetWindowPos Lib " user32 " _ (ByVal hwnd As Long , ByVal hWndInsertAfter As Long , _ByVal x As Long , ByVal Y Wie Lange, 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

Kopieren Sie den Code unten, um ein neues Verfahren, das das Formular oben halten zu erstellen :

Sub AlwaysOnTop ( FrmID As Form , OnTop As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Oder SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

Wenn OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , Fahnen ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , Fahnen ) End Sub IfEnd
5

Klicken Sie auf " Design-Ansicht " in der " Projekt-Explorer ", um das Formular anzuzeigen. Doppelklicken Sie auf das Formular, um den "Laden" -Ereignis zu erstellen . Kopieren Sie den folgenden Code in das Formular "Load "-Event , um den Bildschirmschoner zu behandeln :

Select Case LCase ( Left ( Command, 2) ) Fall " /p": ENDCASE " /s" Case Else : Me.Hide : frmSettings.Show : Ausfahrt SubEnd Wählen

Dim x As IntegerCall AlwaysOnTop (Me , True) x = ShowCursor (False)
6

Kopieren Sie den folgenden Code in der "Entladen" Ereignis des Formulars zu zeigen, den Cursor , wenn das Programm beendet :

Dim x As Integerx = ShowCursor (True)
7

Kopieren Sie den folgenden Code in die " KeyPress " Ereignis des Formulars zu entladen den Bildschirmschoner , wenn der Benutzer eine Taste drückt auf der Tastatur :

Static Count Wie IntegerCount = Count + 1Wenn Count > 5 ThenUnload Meend wenn
8

Klicken Sie auf das Menü "Datei" und dann auf "Make . exe" , um eine ausführbare erstellen. Gehen Sie zu Ihrem Projekt-Verzeichnis und ändern Sie die "EXE "-Erweiterung zu Kopieren Sie die Datei "C : \\ Windows \\ System \\ " " SCR ". . Ordner