次のようなタイプライター効果を作りたい:
http://img139.imageshack.us/img139/9775/screenshot0002mm2.gif
dim s as string = "123"
label1.text = s.substring(0,1)
WAIT
label1.text = s.substring(0,2)
WAIT
label1.text = s.substring(0,3)
次のようなタイプライター効果を作りたい:
http://img139.imageshack.us/img139/9775/screenshot0002mm2.gif
dim s as string = "123"
label1.text = s.substring(0,1)
WAIT
label1.text = s.substring(0,2)
WAIT
label1.text = s.substring(0,3)
Public str As String
Public count As Integer
Form1_Load:
Label1.Text = ""
count = 1
str = ":D test 12345678910"
Timer1.Enabled = True
timer_tick:
If Label1.Text.Length = str.Length Then
Timer1.Enabled = False
Exit Sub
End If
Label1.Text = str.Substring(0, count)
count = count + 1
タイマーを使用するだけです:)
タイマーを宣言する:
文字列内の各文字について
console.writeline(文字)
//または、これをテキストボックスに書き込むことができます。Textbox.text = Textbox.text&character
時間の追加(各文字間の遅延を設定できます)
のために終わる