質問: text2 & text1 としてやっています。 しかし、数万桁となったとき。 どんどん重くなってしまいます。 できれば、text2の一番最後に、 どんどん追加していきたいのですが、やり方がわかりません。 それと、そのログのテキストの一番最後の所に、カーソルをもっていきたいのです。 上の方式だと、一番上の場所にカーソルがいってしまいますので、スクロールバーを動かすまでは、下が見えないのです。 変な文章で申し訳ないのですが、どなたか、やり方教えてくれませんか? ちなみに、VBは、6.0をつかっています。
回答: テキストボックスの文字列操作はスピードが遅いので、文字列の変数にログを記録するようにして、その変数で文字列を編集してからテキストボックスに入れるように変えてみてください。 'ログを入れる変数は、Generalでとってください。 Private strLog As String Private Sub Command1_Click() Dim strRnd As String strRnd = CStr(Int(1000*Rnd(1)) + 1) Text1.Text = strRnd strLog = strLog & strRnd & vbCrLf Text2.Text = strLog End Sub テキストボックスのカーソルの位置はSelStartプロパティで操作します。 Text2.SelStart = Len(strLog) それから、ログですが、この用途ならリストボックスでもいいのではないでしょうか?