既存のコントロールにメソッドを追加する方法を教えて

質問

Dim res As Integer
res = ListBox1.search("1234")

上記のようにしてserchメソッドを自作して
検索結果を返す関数を追加したいのですが、
コードエディタでListBox1.まで入力するとsearchが出るように
メソッドを追加するにはどのように記述したら良いでしょうか？
ご教示頂けたら幸いです。

回答No.1

Gab_km · ベストアンサー

表題の「既存のコントロールにメソッドを追加する方法」は、
おそらく出来ないと思います。
ListBoxを継承したカスタムコントロールを自作して、そこに質問者さんが
作ったSearchメソッドを入れることは可能だと思います。

あと、全く解決策になっていないのですが、
＞コードエディタでListBox1.まで入力するとsearchが出るように
の文字通りの意味で可能にしたいのであれば、質問者さんが作った
Searchを静的メソッドに持つListBox1クラス(カスタムコントロールじゃ
なくてもよい)を作ってみてください。

回答No.2

imogasi

クラスなどを考えなくても
ローテクで出来そうなんだが
Function srch(a)
For i = 0 To 3
If Worksheets("Sheet1").ListBox1.List(i) = a Then
srch = i
Exit Function
End If
Next
End Function
Sub test02()
MsgBox srch("CA")
End Sub
リストは
ＡＡ
ＢＡ
ＣＡ
ＤＡ
と有るとして、引数ＣＡの場合は２を返す。
見当ハズレ？