Ako automaticky zavrieť okno so správou , vo VB6

Správa boxy sa používajú predovšetkým v VB6 programov upozorňujú užívateľa , že niečo , čo si vyžaduje ich pozornosť . Správou môže zobraziť chybovú správu alebo sa pýtať užívateľovi otázku , poskytovanie a tlačidlo "Áno " " Nie " na formulári . Okno správy môže byť tiež informovať užívateľa , že niečo iné je asi stane v rámci programu s otázkou , či by chceli pokračovať . To by mohlo ťažiť užívateľovi opustiť túto správu zobrazí na päť sekúnd a potom už len automaticky presunie na ďalšie činnosti v rámci programu . Toto nastavenie možno vykonať v niekoľkých krokoch . Pokyny dovolená 1

Otvorte nový štandardné EXE projekt jazyka Visual Basic . Formulár s názvom " Form1 " , bude v predvolenom nastavení vytvorený. Pridať nový modul do projektu kliknutím pravým tlačidlom myši na názov projektu a kliknutím na tlačidlo " Pridať " a potom " modul " . Predvolený názov pre nový modul bude " Module1 . "
2

Premenujte formulár a modul ako niečo zmysluplného , ako je " frmMain " pre formu a " modTimer " pre modul . V " ( General ) ( deklaráciou ) " oblasti " modTimer " , vyhlásil nasledovné funkcie systému Windows : KillTimer , FindWindow , SetForegroundWindow . Každá z týchto funkcií je odkázaný v systéme Windows " user32 " knižnica .

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

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

Private Declare Function SetForegroundWindow Lib " user32 " ( byVal hWnd As Long ) As Long
sims 3

deklarovať konštantu , ktorá bude prijatá zavrite okno so správou . Konštanta vyhlásenie je " Public Const NV_CLOSEMSGBOX As Long = & H5000 & . " Tiež definovať podprogram s názvom " TimerSub " v " modTimer . " Vyhlásenie o " TimerSub " vyzerá :

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

zabitie akýkoľvek iný časovač najprv v rámci " TimerSub " , aby sa ubezpečil , že nový časovač je aktívny iba jedno . Funkcia je " KillTimer . " Ďalej skontrolujte hodnotu " idEvent " , aby zistil , či je to presne " NV_CLOSEMSGBOX . " Ak áno , nájdete okno s " FindWindow " a poslať " Enter " na okne so správou pomocou " PředatKlávesovéÚhozy . " To prinúti predvolené Kliknutím na tlačidlo spustiť a tým zatvorte okno so správou .
5

Otestujte funkčnosť definovanú v " TimerSub " pridaním tlačidla " frmMain . " V ňom kliknite na tlačidlo kódu udalosti , nastavte časovač :

SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc

To donúti správou zatvoríte do 5000 milisekúnd alebo 5 sekúnd . Zvoľte " Spustiť " a " Štart " z menu v VB spustiť program .

• Predchádzajúca strana: Ako zastaviť slučku vo VBA 
• Ďalšia strana: Ako používať kalendár v jazyku VBA