|
Microsoft Visual Basic 6.0 est un langage de programmation informatique qui vous donne les outils pour développer des applications Windows. Vous pouvez utiliser Visual Basic pour développer les services publics simples ainsi que des applications bureautiques de pointe et Internet . Écran se déplacent images ou de dessins qui apparaissent sur l'écran de l'ordinateur lorsque le clavier ou la souris n'a pas été utilisé pendant une période de temps spécifiée . En quelques étapes, vous serez en mesure de créer un programme économiseur d'écran en utilisant Visual Basic. Instructions
1 Démarrez Microsoft Visual Basic 6.0, puis cliquez sur " EXE standard " dans la fenêtre de dialogue «Nouveau projet» . Cliquez-droit sur le formulaire et sélectionnez "Propriétés". Tapez " " à côté de " Légende . ControlBox " Set "," " MinButton " et " MaxButton " à "false".
2 Sélectionnez " 0 -None "pour" BorderStyle "et" 2 - . maximisée "pour" WindowState " Régler le " BackColor "à" & H0 "
3 Cliquez sur" Afficher le code icône " . au-dessus de votre nom de projet dans le volet " projet Explorer" pour ouvrir la fenêtre de code. Copiez et collez les deux fonctions suivantes en haut de votre fenêtre de code :
Private Declare Function SetWindowPos Lib " user32 " _ ( ByVal hwnd As Long , ByVal hWndInsertAfter As Long , x _ByVal As Long , ByVal Y long, ByVal cx As Long , cy _ByVal As Long , ByVal wFlags As Long ) As Long
Private Declare Function ShowCursor Lib " user32 " _ ( ByVal bShow As Long ) As Long
4 Copier et coller le code ci-dessous pour créer une nouvelle procédure qui va garder la forme sur le dessus :
Sous AlwaysOnTop ( FrmID As Form , OnTop As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
Si ThenOnTop de OnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , drapeaux ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , drapeaux ) Fin IfEnd Sous
5 Cliquez sur " Mode Création " dans le " Explorateur de projet " pour accéder au formulaire . Double-cliquez sur le formulaire pour créer l'événement "Load" . Copiez et collez le code suivant dans le formulaire événement "Load" pour gérer l'économiseur d'écran :
Sélectionnez LCase de cas (Gauche (Commande , 2)) Case "/p": ENDCASE "/s" Case Else : Me.Hide : frmSettings.Show : Sortie SubEnd Sélectionnez
x As IntegerCall AlwaysOnTop (Me , True) x = ShowCursor (Faux)
6 Copiez et collez le code suivant dans le cas où "Décharger" du formulaire pour montrer le curseur quand le programme se termine : Photos x As Integerx = ShowCursor (Vrai)
7 Copiez et collez le code suivant dans l'événement " KeyPress " du formulaire de décharger l'économiseur d'écran lorsque l'utilisateur appuie sur une touche sur le clavier :
comte statique IntegerCount = Count + 1Si comte > 5 ThenUnload MeEnd Si
8 Cliquez sur le menu «Fichier» , puis cliquez sur " Faites . exe" pour créer un exécutable. Accédez à votre répertoire de projet et de changer l'extension " EXE " pour copier le fichier vers le dossier "C : \\ Windows \\ System \\ " " SCR. ». Dossier
|
