| ■73275 / inTopicNo.2) |
Re[1]: WebBrowserを使用したエディターでの文字位置取得 |
□投稿者/ タッチ (15回)-(2014/09/05(Fri) 15:50:37)
|
自己レスです。
色々と調べた結果、以下のようなコードを書くことにより、
選択文字の位置（0から始まるインデックス）を得ることができました。
Dim doc As Object = WebBrowser1.Document.DomDocument
Dim body As Object = doc.body
Dim rng As Object = body.createTextRange()
Dim selrng as Object = doc.selection.createRange()
rng.setEndPoint("EndToEnd", selrng)
Dim top2selText As String = rng.text
Dim selText As String = selrng.text
Dim idx As Integer = top2selText.Length - selText.Length
参考URL: http://msdn.microsoft.com/en-us/library/ie/ms536745(v=vs.85).aspx
なお、当初は改行は1文字で判断しようと思っていましたが、
その際にはCR+LFをLFに変換するなどの方法で対応しようと思います。
お騒がせしました。
|
解決済み
|