Nachricht werden überwiegend in VB6 Programmen verwendet , um dem Benutzer anzuzeigen, dass etwas ihre Aufmerksamkeit erfordert . Eine Meldung zeigt möglicherweise eine Fehlermeldung oder es könnte sich fragen, dem Benutzer eine Frage , die eine " Ja " und " Nein" auf dem Formular. Die Meldung könnte auch sein , dass die Unterrichtung der Benutzer etwas anderes über den im Rahmen des Programms geschehen ist , zu fragen, ob sie möchten , um fortzufahren. Es profitieren könnten den Benutzer auf diese Nachricht fünf Sekunden lang angezeigt und dann einfach automatisch auf die nächste Aktivität innerhalb des Programms bewegen lassen . Diese Einstellung kann in wenigen Schritten durchgeführt werden. Anleitung
1

Öffnen Sie ein neues Standard EXE Visual Basic-Projekt . Ein Formular mit dem Namen " Form1 " wird standardmäßig erstellt werden. Fügen Sie ein neues Modul für das Projekt mit der rechten Maustaste auf den Projektnamen , und klicken Sie auf " Hinzufügen" und dann "-Modul. " Der Default-Name für das neue Modul wird " Module1 . "
2

Benennen Sie das Formular aus und das Modul als etwas Sinnvolles wie " frmMain " für die Form und " modTimer " für das Modul. In der " (General ) ( Deklarationen ) " Bereich " modTimer " , erklären die folgenden Windows- Funktionen : KillTimer , FindWindow , SetForegroundWindow . Jede dieser Funktionen wird in der Windows " user32 " Bibliothek verwiesen .

Private Declare Function KillTimer Lib " user32 " (ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

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

private Declare Function SetForegroundWindow Lib " user32 " (ByVal hWnd As Long ) As Long
Seite 3

Deklarieren Sie eine konstante, die empfangen werden, um die Nachricht zu schließen wird. Die ständige Erklärung ist "Public Const NV_CLOSEMSGBOX As Long = & H5000 & . " Definieren Sie auch ein Unterprogramm namens " TimerSub " in " modTimer . " Die Erklärung für " TimerSub " aussieht :

Public Sub TimerSub (ByVal hWnd As Long , ByVal uMsg As Long , ByVal idEvent As Long , ByVal dwTime As Long )
4

Töten andere Timer zunächst innerhalb " TimerSub " , um sicherzustellen, dass die neue Timer das einzige aktiv ist. Die Funktion ist " KillTimer . " Weiter , überprüfen Sie den Wert von " idEvent " , um zu sehen , ob es gleich ist " NV_CLOSEMSGBOX . " Wenn dem so ist , finden Sie die Meldung mit " FindWindow " und senden Sie die "Enter" -Taste, um die Meldung mit " SendKeys ". Dies zwingt die Standard-Schaltfläche klicken, um diesen auszuführen und somit schließen Sie die Nachricht ein.
5

Testen Sie die Funktionalität in " TimerSub " , indem Sie eine Taste, um definierte " frmMain . " In der Schaltfläche Click-Ereignis Code , den Timer :

SetTimer hWnd, NV_CLOSEMSGBOX , 5000, AddressOf TimerProc

Dies zwingt das Meldungsfeld in 5000 Millisekunden oder 5 Sekunden schließen. Wählen Sie " Run" und "Start " aus dem Menü in VB um das Programm auszuführen .