テキストボックス内でのカーソル位置の取得と設定方法

SelStart,SetFocus,SelStartを使用する。

下記はVCのデバックウインドウと同じ動きをさせそうだがバグってるソース.

(カーソルが一番下にあるときは文字列に変化があっても、カーソルを一番下に移動させ、一番下にないときはカーソルを移動させない)

 Dim bCurMoveflag As Boolean
 bCurMoveflag = False
 If Me.Text1.SelStart = Len(Me.Text1.Text) Then
     bCurMoveflag = True
 End If
 Me.Text1.Text = Me.Text1.Text + aText + vbCrLf
 
 If bCurMoveflag = True Then
     Me.Text1.SetFocus
     Me.Text1.SelStart = Len(Me.Text1.Text)
 End If