Come programmare Screensaver animati in VB6

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 programmi di utilità semplice così come avanzate del desktop e delle applicazioni Internet . Screensaver stanno muovendo le 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 screensaver 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 sul modulo e selezionare " Proprietà. " Tipo " " accanto a " Caption . ControlBox " Set " , " " MinButton " e " MaxButton " a " False".
2

Selezionare " 0 - Nessuno " per" BorderStyle "e" 2 - . massimizzato "per" WindowState " Impostare il " BackColor " a" & H0 "
3

Fare clic su" Visualizza codice icona " . sopra il nome del progetto nel riquadro " Gestione 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 , hWndInsertAfter ByVal come lungamente, x _ByVal As Long , ByVal come Y lungo, ByVal cx As Long , cy _ByVal come lungamente, wFlags ByVal 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 Sub ( FrmID come forma, OnTop come booleano ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

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

Fare clic su " View design" in " Gestione progetti " per visualizzare il modulo . Fare doppio clic sul form per creare l'evento "Load" . Copiare e incollare il seguente codice all'interno della manifestazione " Load " Modulo per gestire lo screensaver :

Select Case LCase (Sinistra (Comando , 2) ) Case " /p " : endcase " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Seleziona

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

Copia e incolla il seguente codice nel caso "Scaricare" del modulo per mostrare il cursore quando il programma termina :

Dim x As Integerx = ShowCursor (Vero ) economici 7

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

conte statico Come IntegerCount = Conteggio + conte 1Se > 5 ThenUnload MeEnd Se
8

Fare clic sul menu "File" , quindi fare clic su "Make . exe" per creare un file eseguibile . Passare alla directory del progetto e modificare l'estensione " exe " per copiare il file "C: \\ Windows \\ System \\ " " SCR ". . Cartella

• Come chiamare stored procedure DB2 in applicazioni Visual Basic 6.0 
• Come scrivere un controllo ActiveX