上級編:ノベルゲーム風に文字を表示させる
テキストボックスの配置と同じように、「ツールボックス」→「コモンコントロール」→「Label」とクリックして、フォーム上に以下のように配置を行います。
「Label1」をクリックして、画面右下のプロパティの中から「AutoSize」を探して、「True」と表示されていたら、「False」に設定します。
その後、サイズを上のテキストボックスに合わせます。
次に、タイマーを設置します。
「ツールボックス」→「コンポーネント」の順にクリックして、「Timer」をダブルクリックします。
Timer1に動作を追加するため、Timer1をダブルクリックします。
1行目をクリックして、Enterキーを押して、以下のコードを入力します。
※現在のコードは削除します。
Dim m_strWrite As String
Dim m_nPos As Integer
5行目をクリックして、以下のコードを入力します。
m_strWrite = TextBox1.Text
m_nPos = m_strWrite.Length
Label1.Text = ""
Timer1.Interval = 1000
Timer1.Start()
13行目をクリックして、以下のコードを入力します。
If m_nPos >= m_strWrite.Length Then
Timer1.Stop()
Exit Sub
ElseIf m_strWrite = "" Then
Timer1.Stop()
Exit Sub
End If
Label1.Text += m_strWrite(m_nPos)
m_nPos += 1
「実行」ボタンを押して動作を確認してみましょう!
「Button1」を押すことで、入力した文字がノベルゲームのように表示されることが確認できます。