ソフトテンキーの作成について (ID:77551)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > ←（方向左）、→（方向右）を追加したいのですが SelStartプロパティを変化させればOK。 > 上書きするようにしたいのですが SelLengthプロパティを使って、文字を選択しておき、 SelTextプロパティで修正するようにしてみてください。 ついでに、TextBoxの「HideSelectionプロパティ」を False にしておくと、見た目が良いかも知れません。 Private Sub Command1_Click() Dim L As Long L = Text1.SelStart If L > 0 Then Text1.SelStart = L - 1 End If Text1.SelLength = 1 End Sub Private Sub Command2_Click() Dim L As Long L = Text1.SelStart If L < Len(Text1.Text) - 1 Then Text1.SelStart = L + 1 End If Text1.SelLength = 1 End Sub