Microsoft Visual Basic 6.0 è un linguaggio di programmazione di computer che ti dà gli strumenti per sviluppare applicazioni di Windows. È possibile utilizzare Visual Basic per sviluppare semplici utility così come le applicazioni desktop e Internet avanzati. Screensaver si muovono immagini o disegni che appaiono sullo schermo del computer quando la tastiera o il mouse non è stato utilizzato per un periodo di tempo specificato. In pochi passi si sarà in grado di creare un programma di screen saver utilizzando Visual Basic.

istruzione

1 Avviare Microsoft Visual Basic 6.0, quindi fare clic su "EXE standard" nella finestra di dialogo "Nuovo progetto". Fare clic con il modulo e selezionare "Proprietà." Tipo "" accanto a "Didascalia." Set "ControlBox", "MinButton" e "MaxButton" a "False".

2 Selezionare "0-None" per "Stile bordo" e "2 - massimizzata" ". WindowState" per impostare il "BackColor" a "& H0".

3 Fare clic sull'icona "Visualizza codice" sopra il nome del progetto nel riquadro "progetti" per aprire la finestra del codice. Copia e incolla 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 Long

4 Copia e incolla il codice qui sotto per creare una nuova procedura che manterrà il modulo in alto:

AlwaysOnTop secondaria (FrmID come forma, OnTop come booleano)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
FLAGS Const = SWP_NOMOVE O SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Se OnTop Poi

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

Altro

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

Finisci se
End Sub

5 Fai clic su "Visualizzazione Struttura" in "progetti" per visualizzare il modulo. Fare doppio clic sul form per creare l'evento "Load". Copiare e incollare il seguente codice all'interno del modulo evento "Load" per gestire il salvaschermo:

Select Case 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 (Me, True)
x = ShowCursor (False)

6 Copia e incolla il seguente codice nell'evento "Scaricare" del Modulo per mostrare il cursore quando il programma termina:

Dim x As Integer
x = ShowCursor (True)

7 Copia e incolla il seguente codice nell'evento "KeyPress" del modulo per scaricare il salvaschermo se l'utente preme un tasto sulla tastiera:

Conte statico As Integer
Conteggio = Conteggio + 1
Se Conte> 5 Poi
Unload Me
Finisci se

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