テキストボックスにおけるカーソル位置

解決

霧 2002-12-06 22:51:21 No: 76534

テキストボックスにコマンドボタンを押したらHTMLタグを打てるような設定をしています。
その際、括弧（<B>＿</B>など）の間にカーソルをセットしたい（＿の位置に）のですがどのコードを使えばいいのでしょう？

魔界の仮面弁士 2002-12-07 01:33:27 No: 76535

SelStartプロパティで、カーソル(キャレット)の位置を指定できます。

また、SelLengthプロパティを使って、範囲選択された文字列の長さを
取得/設定したり、その範囲選択されている文字列を、SelTextプロパティで
取得/設定するような事も可能です。

……ちなみに、「DHTML Edit Control」という、HTML編集用の
コントロールもありますので、こういった物を利用するのも手かも。

http://msdn.microsoft.com/archive/en-us/dnaredcom/html/edcomdownload.asp

霧 2002-12-07 01:55:20 No: 76536

テキストボックスに文字を入れていって、一番最後の文字から何文字目にカーソルを置くということはできますか？
SelStartを使ってみたのですが、テキストボックスの一番頭から何文字目というようにしかできなかったのですが。
現在このようにしています（一部ですが）
Private Sub cmdCenter_Click()
    txtText.Text = txtText.Text+"<Center>"&" "&"</Center>"& vbCrLf
    txtText.SetFocus
    txtText.SelStart = 9
End Sub
どこかいけないところがあるのでしょうか？

YuO 2002-12-07 04:16:01 No: 76537

> テキストボックスに文字を入れていって、一番最後の文字から何文字目にカーソルを置くということはできますか？

Len関数を使えば文字列の長さはわかります。
で，先頭からn文字目にカーソルを置くこともできます。
あとは，小学校レベルの算数が出来れば，
末尾からN文字目にカーソルを置くことが出来ます。

霧 2002-12-09 17:55:45 No: 76538

Len関数を用いてうまくできました。
Private Sub cmdCenter_Click()
    txtText.Text = txtText.Text+"<Center>"&" "&"</Center>"& vbCrLf
    txtText.SetFocus
    txtText.SelStart = 13
End Sub

霧 2002-12-09 17:56:57 No: 76539

Private Sub cmdCenter_Click()

    txtText.Text = txtText.Text + "<Center> " & " " & " </Center>" & vbCrLf
    txtText.SelStart = Len(txtText.Text) - 13
    txtText.SetFocus

End Sub
が解決時のコードでした。すいません。

SelTextプロパティを併用して 2002-12-09 19:56:24 No: 76540

文字列の連結というのは比較的重い処理なので、文字列が長くなってくるにつれて、
Text1.Text = Text1.Text & "追加させたい文字列"
という記述は、遅いと感じるようになってくるかも知れません。

その場合は、Textプロパティの替わりに、
    Dim Position As Long
    Position = Len(txtText.Text)
    txtText.SelStart = Position

txtText.SelText = "<Center> </Center>" & vbCrLf

txtText.SelStart = Position + Len("<Center> ")
txtText.SetFocus
のように、SelTextプロパティを使うようにすると、高速化が図れます。

また、「txtText.SelText = "<Center> " & txtText.SelText & " </Center>"」のようにすると、
「範囲選択(文字列を反転させている部分)を、<CENTER>タグで囲む」なんて事もできます。

霧 2002-12-09 21:05:11 No: 76541

なるほど、さらに高速化を図ったやりかたですか。
一通り出来上がったら試しにやってみたいと思います。
アドバイスどうもです。

烏 2003-12-03 02:43:38 No: 76542

超亀レス＆横レスですいません。
似たような質問で解決できていないのでこちらにカキコさせていただきます。

今こんな感じの似たようなコードになってるんですけど

Label3 = "<DIV ALING=" + conbo5 + "></DIV>"
Form1.RichTextBox1.SelText = Label3
Form1.RichTextBox1.SelStart = Len(Form1.RichTextBox1.Text) - 6
Form1.RichTextBox1.SetFocus

これだと
『RichTextBoxの一番最後の文字から６番目の文字にカーソルを置く』
ってなってしまって、どうも都合が悪いんです。つまり・・・

<CENTER>ビジュアルベーシックの掲示板</CENTER>

っていうタグがあって

<CENTER>ビジュアルベーシックの掲示板</CENTER>☆

☆の部分にカーソルを合わせて別のタグの入力をするなら問題ないのですが
例えば

<CENTER>☆ビジュアルベーシックの掲示板</CENTER>

この☆の位置で上記のコードを使用してタグを挿入した場合、

<CENTER><DIV ALINK=LEFT></DIV>ビジュアルベーシックの掲示板</C★ENTER>

となって★の部分にカーソルが位置してしまうので困ってしまって・・・
なにかうまいやり方はないのでしょうか？
長文＆読みにくくてすいません。