[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/04/15(Fri) 16:10
投稿者名:ガイア
Eメール:
URL :
タイトル:
リストボックス内検索について
いつもお世話になっております。
おろしくお願いします。
WINDOWS2000
VB6(sp5)
こちらの掲示板にの逆引きヘルプ一覧から”リストボックス内を先頭一致検索・完全一致検索”
のサンプルソールを拝見させて頂きましたが、リストボックス内に複数の同一文字が複数行に
わたって表示されていて、何行と何行に同じ文字を含んでいるのかを解りたいのですが、何方か
ご教授お願いいたします。

投稿時間:2005/04/15(Fri) 17:05
投稿者名:YK
Eメール:
URL :
タイトル:
Re: リストボックス内検索について
こんにちは。

この場合のSendMessageの第三引数が検索スタート行です。
後は考えましょう。

投稿時間:2005/04/15(Fri) 17:39
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: リストボックス内検索について
> リストボックス内に複数の同一文字が複数行に
> わたって表示されていて、何行と何行に同じ文字を含んでいるのかを解りたいのですが

それを知ってどうされるのでしょうか? それによっても色々やり方が違ってくるかと
思うのですが、単にその位置を知りたいだけではないでしょう。
(同じなら削除したいとか、違う文字に置き換えたいとか)

投稿時間:2005/04/15(Fri) 17:54
投稿者名:ガイア
Eメール:
URL :
タイトル:
Re^2: リストボックス内検索について
> > リストボックス内に複数の同一文字が複数行に
> > わたって表示されていて、何行と何行に同じ文字を含んでいるのかを解りたいのですが
>
> それを知ってどうされるのでしょうか? それによっても色々やり方が違ってくるかと
> 思うのですが、単にその位置を知りたいだけではないでしょう。
> (同じなら削除したいとか、違う文字に置き換えたいとか)

リストボックスの文字検索を行いたいのです、複数検索文字が存在する時にに”次を検索”等の
フォームを表示してその行へ移動する事をおこないたいのです。
よろしくお願いします。

投稿時間:2005/04/15(Fri) 19:05
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: リストボックス内検索について
> リストボックスの文字検索を行いたいのです、複数検索文字が存在する時にに”次を検索”等の
> フォームを表示してその行へ移動する事をおこないたいのです。

何がしたいのか良く解りませんが下記を試して見て下さい。
Private Sub Command1_Click()
    Dim i As Long
    Dim Pos As Long
    For i = 0 To List1.ListCount - 1
        Pos = InStr(List1.List(i), "検索する文字")
        If Pos > 0 Then
            List1.ListIndex = i
            MsgBox "見つかりました"
        End If
    Next i
End Sub

投稿時間:2005/04/18(Mon) 09:02
投稿者名:ガイア
Eメール:
URL :
タイトル:
Re^4: リストボックス内検索について
ありがとう御座いました。
今後もよろしくお願いします。