ListBoxのItemDataからテキストの取得をするには？

解決

おんそく 2006-05-04 23:15:05 No: 131265

テキストボックスに数を入力し、その数のItemDataからListBoxの
テキストを取得したいんですが、わかりません。
どうすれば取得できるのでしょうか？
よろしくお願いします。

VB6を使用しています

LESIA 2006-05-05 02:49:02 No: 131266

ループで地道に調べるしかないのでは？
Dim i As Integer
DIm n As Integer

For i = 0 To List1.ListCount - 1
    If List1.ItemData(i) = Text1.Text Then
        MsgBox List1.List(i)
        Exit For
    End If
Next i

LESIA 2006-05-05 02:50:33 No: 131267

訂正
> DIm n As Integer
は、いりませんでしたね。

おんそく 2006-05-05 03:01:51 No: 131268

こんな方法がありましたか...

ありがとうございました。