テキストをマウスで反転させた位置を調べるには

解決

baba_papa  2005-03-12 14:32:14  No: 120201  IP: [192.*.*.*]

テキストを16進表示して、16進表示を反転させたら同時に表示文字の方も反転させたい。自在眼の16進表示の用にしたい。16進をカーソルで指せば表示文字も同時に分かるようにしたいのですが。

編集 削除
baba_papa  2005-03-12 14:41:59  No: 120202  IP: [192.*.*.*]

文字検索するときにInstrで文字位置を検索してTex1.selstartとTex1.selLengthで反転表示させますが、逆のパターンがほしいのです。文字を反転させたら、文字位置が分かるように。よろしくお願いします。

編集 削除
赤ペン  2005-03-12 15:27:18  No: 120203  IP: [192.*.*.*]

これでよいのでは
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
dim i%,j%
i = text1.SelStart
j = text1.SelLength
End Sub

編集 削除
baba_papa  2005-03-12 15:49:39  No: 120204  IP: [192.*.*.*]

ありがとうございます。助かりました。ＶＢは始めたばかりです。これからもこの掲示板を利用させていただきます。よろしくお願いします。

編集 削除
baba_papa  2005-03-12 17:14:10  No: 120205  IP: [192.*.*.*]

またまた、すみません。 text1.SelStart, text1.SelLength  はtext1に対して1回に１カ所ですか。複数指定できるのでしょうか。お願いします。

編集 削除
baba_papa  2005-03-12 18:03:50  No: 120206  IP: [192.*.*.*]

すみません。一つのテキストで左半分がHEX表示で、右半分がキャラクタ表示です。
HEX表示のコードを反転させたら、対応するキャラクターも反転させるか、マークを付けたいのです。よろしくお願いします。

編集 削除
Say  2005-03-12 19:47:08  No: 120207  IP: [192.*.*.*]

おそらく、バイナリエディタを作りたいのでしょうが、
16進部とキャラクタ部を別のTextBoxに表示して、
スクロールが必要なら両者をコンテナコントロール上に配置して、
コンテナごと動かすようにするとか？
(「二重貼り」で過去ログ検索すればヒントになるかも)

編集 削除