Keskustelu: Koodit: VB.NET: Formille kirjotus labelilla (kursori mukana)

'fomin koodi
   Dim viesti As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        viesti = InputBox("Kirjoita jotakin:", "Kirjoita jotain") 'pyydetään teksti
        Timer1.Interval = 250 'hidatetaan ajastinta
        Timer1.Start() 'käynnistetään ajastin
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static tulosta As Boolean 'tulostetaanko kursori vai seuraava kirjain
        Static maara As Integer 'kuinka monta merkkiä on jo tulostettu
        If tulosta Then
            Label1.Text = Global.Microsoft.VisualBasic.Left(Label1.Text, Label1.Text.Length - 1) 'poistetaan kursori
            Label1.Text &= Mid(viesti, maara + 1, 1) 'tulostetaan seuraava merkki
            maara += 1 'kasvatetaan laskuria
        Else
            Label1.Text &= "|" 'muuten tulostetaan kursori
        End If
        If maara = viesti.Length Then Timer1.Stop() 'jos tulostettiin kaikki merkit niin pysäytetään ajastin
        tulosta = Not tulosta 'vaihdetaan seuraavan kerran toimenpide
    End Sub