Πώς να κλείσει αυτόματα ένα μήνυμα ασφαλείας σε VB6

κουτιά Μήνυμα χρησιμοποιούνται κυρίως σε προγράμματα VB6 για να υποδείξει στον χρήστη ότι κάτι απαιτεί την προσοχή τους . Ένα πλαίσιο μηνύματος ενδέχεται να εμφανίσει ένα μήνυμα σφάλματος ή θα μπορούσε να ζητήσει στο χρήστη μια ερώτηση , παρέχοντας ένα και ένα κουμπί " Ναι " " Όχι" στην φόρμα . Το πλαίσιο μηνύματος θα μπορούσε επίσης να ενημερώσει το χρήστη ότι κάτι άλλο πρόκειται να συμβεί στο πλαίσιο του προγράμματος , ζητώντας αν θέλετε να συνεχίσετε . Θα μπορούσε να βοηθήσει τον χρήστη να φύγει αυτό το μήνυμα εμφανίζεται για πέντε δευτερόλεπτα και στη συνέχεια να προχωρήσουμε απλά αυτόματα την επόμενη δραστηριότητα στο πλαίσιο του προγράμματος . Αυτή η ρύθμιση μπορεί να γίνει μέσα σε λίγα βήματα . Οδηγίες
Η

1 Ανοίξτε ένα νέο Standard EXE έργο της Visual Basic . Μια φόρμα που ονομάζεται " Φόρμα1 " θα δημιουργείται από προεπιλογή . Προσθέστε μια νέα ενότητα στο έργο , κάνοντας δεξί κλικ στο όνομα του έργου και κάνοντας κλικ στην επιλογή "Προσθήκη" και στη συνέχεια " ενότητα ". Το προεπιλεγμένο όνομα για την νέα μονάδα θα είναι " Module1 . " 2

Μετονομασία τη μορφή και τη λειτουργική μονάδα ως κάτι σημαντικό , όπως " frmMain " για τη μορφή και το " modTimer " για την ενότητα . Στο " ( General ) ( δηλώσεις ) " περιοχή " modTimer » , δηλώνουν τις ακόλουθες λειτουργίες των Windows : KillTimer , FindWindow , SetForegroundWindow . Κάθε μία από αυτές τις λειτουργίες γίνεται αναφορά στη βιβλιοθήκη των Windows " user32 " .

Private Declare Function KillTimer Lib " user32 " ( ByVal hWnd Όπως Long , ByVal nIDEvent Όπως Long ) Όπως Long

Private Declare Function FindWindow Lib " user32 " Alias ​​" FindWindowA " ( ByVal lpClassName As String , ByVal lpWindowName Όπως String ) Όπως Long

Private Declare Function SetForegroundWindow Lib " user32 " ( ByVal hWnd Όπως Long ) Όπως Long
Η Φτηνές 3

αναγνωρίσει μια σταθερά που θα λάβει για να κλείσετε το παράθυρο του μηνύματος . Η συνεχής δήλωση "Δημόσια Const NV_CLOSEMSGBOX Όπως Long = & H5000 & . " Καθορίζουν επίσης μια υπορουτίνα που ονομάζεται " TimerSub " σε " modTimer . " Η δήλωση για την " TimerSub " μοιάζει :

Public Sub TimerSub ( ByVal hWnd Όπως Long , ByVal uMsg Όπως Long , ByVal idEvent Όπως Long , ByVal dwTime Όπως Long )
Η 4

Kill οποιοδήποτε άλλο χρονόμετρο για πρώτη φορά εντός " TimerSub " για να βεβαιωθείτε ότι το νέο χρονόμετρο είναι ο μόνος ενεργός . Η λειτουργία είναι « KillTimer . " Στη συνέχεια, ελέγξτε την τιμή του " idEvent " για να δείτε αν είναι ίσο με " NV_CLOSEMSGBOX . " Αν ναι , βρείτε το πλαίσιο μηνύματος με " FindWindow " και στείλτε το πλήκτρο "Enter" στο πλαίσιο μηνύματος με χρήση " SendKeys . " Αυτό θα αναγκάσει το προεπιλεγμένο κουμπί κλικ για να εκτελέσει και έτσι να κλείσει το παράθυρο του μηνύματος .
5

Ελέγξτε τη λειτουργικότητα που ορίζεται στο " TimerSub " προσθέτοντας ένα κουμπί για να « frmMain . " Στον κώδικα εκδήλωση κουμπί κλικ, ρυθμίστε το χρονοδιακόπτη :

SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc

Αυτό θα αναγκάσει το πλαίσιο μηνύματος για να κλείσει το 5000 χιλιοστά του δευτερολέπτου ή 5 δευτερόλεπτα. Επιλέξτε " Run" και "Start" από το μενού σε VB για να τρέξει το πρόγραμμα .
Η
εικόνων