| ■30982 / ) |
RichTextでドロップされた位置に文字列を追加したい |
□投稿者/ gd (1回)-(2009/01/11(Sun) 15:44:10)
|
分類:[VB.NET/VB2005 以降]
こんにちわ。
VB.NET2008です
RichTexTBoxをフォーム上に配置して
RichTexTBox上にファイルをドロップするとファイルパスを追加する。
この時追加するファイルパスは、ドロップされた時の位置に追加する
と言う風にしたいのですが、文字列の最後の位置で悩んでいます。
コードはDragDropイベントに
Dim textPoint As Point = Me.rtTejunsho.PointToClient(New Point(e.X, e.Y))
Dim addPoint As Integer = Me.rtTejunsho.GetCharIndexFromPosition(textPoint)
を書いています
この時リッチテキストに、「ABC」という文字列があったとします。
Aの前(0文字目)にカーソルを持っていくとaddPoint は0を返します
これは良いのですが
Cの前(BとCの間)にカーソルを持っていくとaddPoint は2を返します
Cの後(一番最後)にカーソルを持っていくとaddPoint は2を返します
Cの前と後の値が同じ為に追加したい位置に、文字を追加することができずに困っています。
何が良い方法はないでしょうか？よろしくお願いします
|
|
