VB テキストボックスの中身

Question

こんばんは。
電卓のものです。

現在機能変更に基づいて、コードを書き換えています。

一つの機能はすぐ変更が終わりましたが、
もう一つがよくわからないです。

計算経過を表示するテキストボックスを作り、計算経過を表示させるまでいったのですが、テキストボックスいっぱいに表示するとWindowsに標準搭載されている電卓のように左にずれず表示されなくなります。

調べてはいるのですが、文字数制限であったりしかでてきません。
どなたかご教授をお願いします。

![イメージ説明]WIDTH:273
![イメージ説明]WIDTH:218

Answer 1

こんにちは。

TextBoxのキャレット位置を指定し、スクロールさせてやればお望みの動作になります（とりあえず）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '数字とか演算子とかをコードから入力
    TextBox1.Text += "1 + "
    '末尾にキャレットを移動し、コンテンツスクロールさせる
    TextBox1.Select(TextBox1.Text.Length, 0)
    TextBox1.ScrollToCaret()
End Sub

もうちょいお手軽な方法を探してみたのですが、見当たりませんでした。

（追記）
ScrollToCaretはなくても良かったかもしれません。

（追記２）
カスタムコントロールにしたり色々方法はあると思いますが、イベントがお手軽でしょうか。

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim txt = DirectCast(sender, TextBox)
    txt.Select(txt.Text.Length, 0)
End Sub

Comments

[Strauss]

お返事ありがとうございます。
自動的に計算経過の部分をスクロールする（新しく入力された数字と演算子を表示して左側にずらしていく）ことは可能なのでしょうか？

[Tak1wa]

クリックイベント以外でやりたい、という意味でしょうか？
追記してみました。
意図と異なれば詳細にコメントをお願いします。

[Strauss]

実際に実装してみた結果、見事スクロールしてくれました。
本当にありがとうございました！