VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/07/16(Sat) 18:19
投稿者： りこ
ＵＲＬ：
タイトル： リッチテキストでカーソル移動

こんにちは。いつも大変お世話になっております。

リッチテキスト上のカーソル移動について悩んでおります。
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行目のデータがあります。）
また、時々「メモリが”read”・・・」とシステムエラーが発生します。

要するに100と指定した場合は、100行目のデータがリッチテキストの先頭にくるように
したいのですが、上記のコードで間違っているところや
または、別にコードがありましたら、ご存知の方、ご教示いただけないでしょうか？

宜しくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -