タイプライターみたいに、一文字ずつ表示する方法です。V友で質問が
あったようなので、さくっと作ってみました。文字列を操作する関数を知って
いたら簡単に出来るんだけどね。
こんな風にText1とLabel1とCommand1を配置して、
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim i As Long
Dim lngLen As Long
Dim strString As String
lngLen = Len(Text1.Text)
strString = Text1.Text
For i = 0 To lngLen
Label1.Caption = Left$(strString, i)
Label1.Refresh
Call Sleep(100)
Next
End Sub
注意すべき点は、Sleepでしょう。これがないと凄いスピードで表示されるので
話になりません。
Label1.Refreshですが、よく分かりません。こうしないと更新されないみたいです。
外してみると分かります。
サンプルは、作ったけど面倒なので配布してません。
ソースは上ので全てだからいいよね。どーしても欲しい場合は、掲示板に一言どヴそ。
