textboxに表示されている文に、別の文を１文字ずつ足すには？

解決

メンタル 2003-12-23 08:36:05 No: 110898

現在、textboxに１文字ずつ表示する方法として、
以下のものを使っているのですが、
（Mojiは文字列）
T1 = Moji
T2 = Len(T1)
For T3 = 1 To T2
Text1.Text = Mid(T1, 1, T3)
'ウェイトをおく。
Next
この方法だと表示するたびに、前の文章が消えてしまい困っています。

textboxに表示されている文に、
新しい文を１文字ずつ足して表示させたいのですが、
どうしたらよいでしょうか？
イメージは、ＲＰＧのゲームでテキストが
段々と表示されるような感じなのですが・・・。
どなたかご教示お願いします。

えい 2003-12-23 09:39:56 No: 110899

こういうことでしょうか？

Text1.Text = Text1.Text & Mid(T1, 1, T3)

メンタル 2003-12-23 10:04:00 No: 110900

えいさんありがとうございます。
その方法でも考えてみたのですが、
for nextで繰り返しているので、
text1.textが何度も表示されてしまうのです。
つまり、
(ex)
今日は寒い。 ’これにその式で、
本当に。 ’これを足すと、

今日は寒い。本今日は寒い。本当今日は寒い。本当に今日は寒い本当に。
’とtextboxに表示されてしまいます。

となってしまうのです。

oku URL 2003-12-23 10:27:19 No: 110901

１文字づつ足していけば良いだけの様な…
Text1.Text = Text1.Text & Mid$(T1, T3, 1)

えい 2003-12-23 15:00:19 No: 110902

よくみたらパラメータの順番が違ってましたね。
okuさんの書いたように指摘するつもりでした・・・・

メンタル 2003-12-24 06:58:03 No: 110903

okuさん
どうもありがとうございました！
その方法でやってみたら、みごとに出来ました。
感謝いたします。

えいさん
わかりました。
でもご意見を頂けたこと自体が嬉しかったです！

お二人とも本当にありがとうございました。
無事に解決いたしました。
関数の基本的な理解も深めようと思いました。