De Timer controle in Visual Basic is een zeer nuttig apparaat dat een puls stuurt naar een toepassing op vooraf bepaalde tijdstippen . De controle kan updates van hoe lang een installatie neemt door af te tellen weer te controleren wat een gebruiker doet of uitvoeren andere routines terwijl een hoofdprogramma loopt . Als Visual Basic Express , een NET programma is betrokken aantal codewoorden verschillen . Wat je nodig hebt Visual Basic Toon Meer Aanwijzingen 1 Open Visual Basic en selecteer als " New Project " een " standaard-EXE . " Klik op " File " en " form1 Opslaan als ' en geef het een naam als" timerproject . " Klik vervolgens op " Project opslaan als" en noem maar op " Timer Project . " Visual Basic geldt de juiste extensies standaard . Kopen van 2 Verander de " Caption " eigenschap in het venster Eigenschappen op de onderste recht op "Timer Controle . " 3 Plaats een Timer controle op het formulier door te dubbelklikken op de " Timer " -controle , die verschijnt als een klok icoon , in de Toolbox in het linkervenster . De besturing zal niet zichtbaar zijn wanneer het programma wordt uitgevoerd . Voor de duidelijkheid , klik en sleep het naar een lagere hoek van het formulier . 4 Zet een label op het formulier door te dubbelklikken op het " Label " control , vertegenwoordigd door een grote letter " A " in de Toolbox . Klik op de " label " nu op het formulier , en vervolgens in het venster Eigenschappen de naam van het label om " Klok " en de letters in de titel lijn te verwijderen . Herhaal dit voor een tweede label en noem het " Groet . " De breedte van beide labels tot 2000 . 5 Klik op Beeld > Code op de top van een code -venster te openen . Schrijf de code voor een timer event . Dit is slechts een voorbeeld , om de controle van uw gewenste timer gebruikt u nodig hebt om de code te wijzigen om te doen wat je wilt doen : Private Sub Form_Load ( ) Timer1.Interval = 5000 ' getallen milliseconden zodat 5000 gelijk om de 5 seconden ; verandering dit om de gewenste periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer ( ) Dim strGreeting1 , strGreeting2 , strTime Zoals StringstrTime = Time $ Clock.Caption = Time $ strGreeting = " Welkom ! " Als Mid $ ( strTime , 7 , 1 ) = " 1 " ThenGreeting . caption = strGreetingElse : . Greeting.Caption = " " End Sub IfEnd Test 6 de codering door op " F5 " De huidige tijd moet elke 5 seconden weergegeven en bijgewerkt . Toen het eerste cijfer van de seconden weergave valt tussen 10 en 19 , de woorden " Welkom ! " wordt weergegeven en vervolgens verdwijnen gedurende 50 seconden . Als geen van deze gebeurtenissen gebeurt , controleer dan de code in stap vijf voor nauwkeurigheid. 7 Zet deze in een definitieve programma door te klikken op Bestand > Maak Timer Project.exe.Run het programma waar u ook gered .
|