-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)
4

2 に答える 2

2
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

タイマーを使用するだけです:)

于 2012-06-20T13:58:03.560 に答える
0

タイマーを宣言する:

文字列内の各文字について

console.writeline(文字)

//または、これをテキストボックスに書き込むことができます。Textbox.text = Textbox.text&character

時間の追加(各文字間の遅延を設定できます)

のために終わる

于 2012-06-20T14:04:51.043 に答える