投稿時間:2005/07/16(Sat) 18:19 投稿者名:りこ
URL :
タイトル:リッチテキストでカーソル移動
こんにちは。いつも大変お世話になっております。
リッチテキスト上のカーソル移動について悩んでおります。 lngLineIndex=* (指定行) lngIndex=SendMessage(Text1.hwnd,EM_LINEINDEX,lngLineIndex,ByVal CLng(0)) Result =SendMessage(Text1.hwnd,EM_SETSEL,lngIndex, ByVal lngIndex) Result =SendMessage(Text1.hwnd,EM_SCROLLCARET,0,ByVal CLng(0))
上記のコードにて指定行にカーソルを飛ばそうとしているのですが 動作が不安定で、出来たとしても指定行がリッチテキストの途中になったりします。 (例:100行と指定しているのに、展開されるのはリッチテキストの先頭からではなく 下の方に100行目のデータがあります。) また、時々「メモリが”read”・・・」とシステムエラーが発生します。
要するに100と指定した場合は、100行目のデータがリッチテキストの先頭にくるように したいのですが、上記のコードで間違っているところや または、別にコードがありましたら、ご存知の方、ご教示いただけないでしょうか?
宜しくお願いいたします。
|