リストボックスの番号を指定して関数を実行するにはVB.NET

質問

VB.NET Framework 1.1環境なのですが、

リストボックスから例えば文字列を検索して、見つかったら
その行数を返すという関数で、リストボックスが沢山ある場合に
リストボックスの番号も関数の呼び出しに指定して、
関数部分をどのリストボックスでも対応できるように
したいのですが、どのような方法でやれば良いでしょうか？

Function SearchStr(ByVal i As Integer, ByVal str As String) As Integer

End Sub

という関数を呼び出す際に
res = SearchStr(1,"文字列")
というようにすると、ListBox1から文字列を検索したいという意味
なのですが、可能でしょうか？

検索は例えばなので、
res = SearchStr(1,10)
とすると
res = ListBox1.Items(10)
と同じ内容が返るような数字をリストボックスの指定に使う
書き方を教えて頂きたいです。
よろしくお願い致します。

回答No.1

redfox63 · ベストアンサー

インデックスといった考え方が .NET Frameworkに無いので
コントロールの参照を渡してやればいいように思います

Function SearchItem( ByRef objList as ListBox, str as Strng ) as Integer
　　' 引数のstr要素があるかチェック
　　if objList.Items.Contains(str) then
　　　　return objList.Items.IndexOf( str )
　　end if
　　return -1
End Function