Πώς να Program Κινούμενα Screensavers σε VB6

Microsoft Visual Basic 6.0 είναι μια γλώσσα προγραμματισμού που σας δίνει τα εργαλεία για την ανάπτυξη εφαρμογών Windows. Μπορείτε να χρησιμοποιήσετε το Visual Basic για να αναπτύξουν απλές επιχειρήσεις κοινής ωφέλειας , καθώς και προηγμένες desktop και εφαρμογών Internet . Οι Screensavers κινούμενες εικόνες ή μοτίβα που εμφανίζονται στην οθόνη του υπολογιστή , όταν το πληκτρολόγιο ή το ποντίκι δεν έχει χρησιμοποιηθεί για ένα καθορισμένο χρονικό διάστημα . Σε μερικά βήματα θα είστε σε θέση να δημιουργήσει ένα πρόγραμμα screensaver χρησιμοποιώντας τη Visual Basic . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic 6.0 , στη συνέχεια, κάντε κλικ στην επιλογή "Standard EXE " στο " New Project" παράθυρο διαλόγου . Κάντε δεξί κλικ στο Μορφή και επιλέξτε "Ιδιότητες . " Τύπος " " δίπλα στο " Λεζάντα. " Set " ControlBox , " " MinButton " και " MaxButton " σε " False ". 2

Επιλέξτε " 0 - Οχι " για " περιγράμματος "και" 2 - . Μεγιστοποίηση " για " WindowState " Ρυθμίστε το " BackColor " σε " & H0 "
εικόνων 3

Κάντε κλικ στο εικονίδιο" Προβολή κώδικα " . πάνω από το όνομα του έργου σας στην " Εξερεύνηση έργου " παράθυρο για να ανοίξετε το παράθυρο κώδικα . Αντιγράψτε και επικολλήστε τις παρακάτω δύο λειτουργίες στο επάνω μέρος του παραθύρου κώδικα :

Private SetWindowPos Λειτουργία Declare Lib " user32 » _ ( ByVal hwnd Όπως Long , ByVal hWndInsertAfter Όπως Long , _ByVal x As Long , ByVal Όπως Y Long , ByVal cx Όπως Long, _ByVal cy Όπως Long , ByVal wFlags Όπως Long ) Όπως Long

Private Declare Function ShowCursor Lib " user32 » _ ( ByVal bShow Όπως Long ) Όπως Long
4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια νέα διαδικασία που θα κρατήσει τη φόρμα στο πάνω μέρος :

Sub AlwaysOnTop ( FrmID Όπως έντυπο , OnTop Όπως Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const ΣΗΜΑΙΕΣ = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

Αν OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , σημαίες ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , σημαίες ) End Sub IfEnd
5

Κάντε κλικ στο " Προβολή σχεδίασης " στην " Εξερεύνηση έργου " για να δείτε το έντυπο . Κάντε διπλό κλικ στο έντυπο να δημιουργήσει το "Load " εκδήλωση . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο έντυπο "Load " εκδήλωση για να χειριστεί το screensaver :

Επιλέξτε υπόθεση LCase ( Αριστερά ( Command , 2 ) ) Υπόθεση " /p " : EndCase " /s " Case Else : Me.Hide : frmSettings.Show : Έξοδος SubEnd Επιλέξτε

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο « ξεφορτώσουν» εκδήλωση της φόρμας για να δείξει το δρομέα όταν τελειώνει το πρόγραμμα :

Dim x As Integerx = ShowCursor ( True )
Η 7

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο η " KeyPress " εκδήλωση του εντύπου για να ξεφορτώσουν το screensaver αν ο χρήστης πιέζει ένα πλήκτρο στο πληκτρολόγιο :

Στατική Count Όπως IntegerCount = Count + 1Αν Count > 5 ThenUnload MeEnd Αν
8

Κάντε κλικ στο μενού "Αρχείο" , στη συνέχεια, κάντε κλικ στην επιλογή "Make . exe " για να δημιουργήσετε ένα εκτελέσιμο . Πηγαίνετε στον κατάλογο του έργου σας και να αλλάξετε το " EXE " επέκταση " SCR ". Αντιγράψτε το αρχείο "C : \\ Windows \\ System \\" . Φάκελο
Η
εικόνων