Koodi joka luo Labeliin Text1:kkösen sisällön "kirjoituskone" efektillä eli siis kirjain kerrallaan. Fromille pitää luoda yksi text boksi command button ja label.
Dim Teksti As String Dim Pituus As Integer Dim Kirjain As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Teksti = Text1.Text Pituus = Len(Teksti) For Kirjain = 1 To Pituus Label1.Caption = Mid(Teksti, 1, Kirjain) DoEvents Sleep 300 Next Kirjain End Sub
Käytä sisennyksiä, sekä kommentoi koodisi.
Ja muutenkin koodivinkeissä taisi olla jo vastaavanlainen.
Aihe on jo aika vanha, joten et voi enää vastata siihen.