Textボックスで選択されている行番号を取得するには？

解決

まぼろし 2005-05-06 18:52:35 No: 121473

タイトルのとおりなんですが、
textボックスで選択されている行番号を取得するにはどうしたらいいのでしょうか？
複数選択されている場合と１つだけ選択されている場合の方法を教えていただけたら助かります。
どなたかご教授よろしくお願いします。

ささ 2005-05-06 19:16:40 No: 121474

え？textボックスで行番号
イメージわかないなぁ〜

まぼろし 2005-05-06 19:27:56 No: 121475

えと、textボックスで選択されている行は何行目かを返したいわけです。
textボックスに表示されているのが以下のような場合

A=10
B=21
C=6
D=30
E=3

範囲指定しているところが"C=6"なら3を返す・・・という具合です。
リストボックスで選択されているインデックスの取得をする方法は知っているのですが
似たようなことをtextボックスではできないのでしょうか？

あんび 2005-05-06 19:50:41 No: 121476

VB6と仮定してますが、以下を組み込んで試してみてください。
Yに選択行、Zに選択されている行数が入ります。
難しい事をしていないので、ヘルプなどで調べてください。

Dim x   As Long
Dim y   As Long
Dim z   As Long
    x = 0
    y = 1
    z = 1
    Do
        x = InStr(x + 1, Text1.Text, vbCrLf)
        If x <= 0 Then Exit Do
        If x < Text1.SelStart Then y = y + 1
        If (x > Text1.SelStart) And (x < Text1.SelStart + Text1.SelLength) Then z = z + 1
    Loop

まぼろし 2005-05-06 19:58:59 No: 121477

あんび様ありがとうございました♪

予定通り動きましたので、これからプログラムの意味を調べてみようと思います。

またなにかありましたらよろしくお願いします。

ノ 2005-05-06 21:02:55 No: 121478

EM_GETLINE?