VBAを使って制作しているのですが

質問

VBAを使って制作しているのですが、テキストボックス内でのカーソル位置の取得は出来ないのでしょうか？

テキストボックスを MultiLine ＝ true にして使用しているのですが、
textbox_Change にLeftBを指定してｎ文字以上は書き込めないようにしています。

Dim DATE_CONV As String
Dim DATE_FONT As String

DATE_CONV = StrConv(元データ, vbFromUnicode)
DATE_CONV = LeftB(DATE_CONV, 制限文字数)
DATE_FONT = StrConv(DATE_CONV, vbUnicode)

その結果、カーソルがどの位置にあっても、ｎ文字を超えてしまった場合、
カーソルが最後に移動してしまいます。
なにかいい方法がないか教えてくださいお願いします。

回答No.2

keithin · ベストアンサー

ベタですが。

Private Sub TextBox1_Change()
　Dim s, x
　s = StrConv(Me.TextBox1, vbFromUnicode)
　If LenB(s) > 10 Then
　x = Me.TextBox1.SelStart
　Me.TextBox1 = StrConv(LeftB(s, 10), vbUnicode)
　Me.TextBox1.SelStart = x
　End If
End Sub

お礼

ありがとうございます。
まさに思った通りの動きです。
感謝です。

回答No.1

nak777r

回答の前に確認ですが
MaxLength プロパティで文字数制限をしない場合の
方法を聞いているという考え方でよろしいでしょうか？

補足

はい、その通りです。
nバイト制限で、文字を制限したいので。