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

解決

baba_papa 2005-03-12 23:32:14 No: 120201

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

baba_papa 2005-03-12 23:41:59 No: 120202

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

赤ペン 2005-03-13 00:27:18 No: 120203

これでよいのでは
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-13 00:49:39 No: 120204

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

baba_papa 2005-03-13 02:14:10 No: 120205

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

baba_papa 2005-03-13 03:03:50 No: 120206

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

Say 2005-03-13 04:47:08 No: 120207

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