Microsoft Visual Basic 6.0 è un linguaggio di programmazione di computer che ti dà gli strumenti per sviluppare applicazioni Windows. È possibile utilizzare Visual Basic per sviluppare semplici utilità come desktop avanzato e applicazioni Internet. Screensavers sono immagini in movimento o modelli che compaiono sullo schermo del computer quando la tastiera o il mouse non è stato utilizzato per un periodo di tempo specificato. In pochi passi sarete in grado di creare un programma di screen saver utilizzando Visual Basic.

Istruzioni

1

Avviare Microsoft Visual Basic 6.0, quindi fare clic su "EXE Standard" nella finestra di dialogo "Nuovo progetto". Pulsante destro del mouse il modulo e selezionare "Proprietà". Tipo "" accanto a "Didascalia". Set "ControlBox," "MinButton" e "MaxButton" su "False".

2

Selezionare "0-None" per "BorderStyle" e "2-ingrandita" per "WindowState." Impostare il "BackColor" a "& H0."

3

Fare clic sull'icona "Visualizza codice" sopra il nome del progetto nel riquadro "Gestione progetti" per aprire la finestra di codice. Copiare e incollare le seguenti due funzioni nella parte superiore della finestra del codice:

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
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 Long4

Copiare e incollare il codice seguente per creare una nuova procedura che manterrà la forma sulla parte superiore:

AlwaysOnTop Sub (FrmID come forma, OnTop As Boolean)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE o SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Se allora OnTop

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Altro

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End If
End Sub

5

Fare clic su "Visualizzazione struttura" in "Gestione progetti" per visualizzare il modulo. Fare doppio clic sul Form per creare l'evento "Load". Copiare e incollare il codice seguente all'interno della manifestazione di "Caricare" di modulo per gestire lo screensaver:

Selezionare il caso LCase (sinistra (comando, 2))

Case "/p": End
Case "/s"
Case Else: Me.Hide: frmSettings.Show: Exit Sub

End Select.

Dim x As Integer
Chiamare AlwaysOnTop (this, True)
x = ShowCursor

6

Copiare e incollare il codice seguente nell'evento "Unload" del modulo per visualizzare il cursore quando il programma termina:

Dim x As Integer
x = ShowCursor(True)

7

Copiare e incollare il codice seguente nell'evento "KeyPress" del Form per scaricare lo screensaver se l'utente preme un tasto sulla tastiera:

Statica Count As Integer
Count = Count + 1
Se Count > 5 quindi
Scarica Me
End If

8

Fare clic sul menu "File", quindi fare clic su "Make < progetto > .exe" per creare un file eseguibile. Vai alla directory del progetto e modificare l'estensione "EXE" a "SCR". Copiare il file nella cartella "C:\Windows\System\".