Sisältö

• ohjeet

Visual Basic .NET: ssä ajastimen avulla voit hallita jaksoittaisia ​​tapahtumia sovelluksen ajon aikana. Ajastimessa on joitakin ainutlaatuisia ominaisuuksia ja menetelmiä. Tärkein ominaisuus on "Interval", joka määrittää, kuinka usein ajastimen tulisi suorittaa koodi. Annat alueen arvon millisekunteina; tuhat millisekuntia on yksi sekunti. Joitakin esimerkkejä siitä, mitä voit tehdä ohjaimen kanssa, ovat lähtölaskenta, dynaamisesti muuttuvien kiinteistöjen arvot muille säätimille ja joidenkin muiden sovelluksen osien pitäminen silmissä.

ohjeet

Ajastimen aikaväli annetaan millisekunteina (kello kuva Peter Hires Images from Fotolia.com)

1. Avaa projekti Visual Basicissä. Kaksoisnapsauta ajastinta ja lisää "Timer1" ja kaksoisnapsauta "Label" lisätäksesi "Label1". Muuta "Enabled" -ohjausominaisuus "True" -asetukseksi ja vaihda alueeksi 1000.

2. Avaa koodiikkuna painamalla "F7" ja syötä seuraava koodi:

   Dim aika Aseta = 10

   Tämä luo muuttujan ja alustaa sen.

3. Avaa Timer1_Tick-sovelma ja anna seuraava koodi:

   Jos aika> 0 Sitten aika = aika - 1 Label1.Text = aika Else Timer1.Enabled = False End If

   Kun ohjelma on käynnissä, ajastin alentaa muuttujaa joka sekunti näyttämällä telineen arvon, kunnes laskuri saavuttaa nollaan, jolloin ajastin sammuu.

   
   

4. Avaa projektiikkuna painamalla "Shift" ja "F7". Kaksoisnapsauta ajastinta ja lisää "Timer2" projektiin. Muuta "Käytössä" -ominaisuus "True" ja sen alue 100: ksi ja avaa sitten Timer2_Tick-aliohjelma kaksoisnapsauttamalla sitä. Kirjoita sitten seuraava koodi:

   Jos (Label1.Left + Label1.Width)> Me.Width sitten Label1.Left = Me.Left - 100 End Jos Label1.Left = Label1.Left + 5

   Tämä koodi saa paneelin selaamaan vaakasuunnassa näytön yli ja siirtää viisi pikseliä sekunnin sekunnin välein. Kun teltta saavuttaa lomakkeen oikean pään, se palaa vasemmalle ja alkaa liikkua uudelleen.

5. Avaa projektiikkuna painamalla "Shift" ja "F7". Kaksoisnapsauta ohjainta ja lisää "Timer3" projektiin. Muuta "Enabled" -ominaisuus "True" ja sen alue 500: ksi. Lisää sitten "TextBox" kaksoisnapsauttamalla "TextBox1". Avaa Timer3_Tick-sovellus kaksoisnapsauttamalla Timer3-projektia. Kirjoita sitten seuraava koodi:

   
   

   TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

   30 sekunnin välein ajastin muuttaa tekstiä tekstistä "TextBox1" ylempään ruutuun. Oletusarvoisesti, kun ajastin tekee muutokset, kohdistin palaa tekstiruudun alkuun. Toinen koodirivi estää tämän tapahtumasta.