OCX内のコントロール名の取得方法

質問

VB6で下記の記述で実行しようと思ったのですが
OCX内のコントロール名を取得できませんでした。

Dim strBtnName as String
Dim objBtnName as Object

For Each objBtnName In me.controls
if me.Name = strBtnName then
objBtnName.Enable = True
End If
Next objBtnName

コントロール名を取得できない時は
文字列をオブジェクト名へ変換してしたいと
思ってるのですが変換方法がわかりません。
もしそういうのAPIなどがあれば教えてください。よろしくお願いします。

回答No.2

Goroxo · ベストアンサー

#1です。

あとは、Tagプロパティを利用するとか、
そのコントロールは自作ならば、相当するようなプロパティを追加するとか…？

ちなみに、
Dim strBtnName as String
Dim objBtnName as Object

For Each objBtnName In me.controls
If objBtnName.Name = strBtnName then
objBtnName.Enable = True
End If
Next objBtnName
ですよね（＾＾；

回答No.1

Goroxo

今手元にVBが無いので確認できませんが、文字列からオブジェクトを参照することは出来たと思います。

Me.Controls("Text1").Text

…という感じだったかと。

補足

ありがとうございました。
でもAvctiveXコントロールではエラーになってしまいました。
ほかに何かいい方法がありましたら教えてください。