VB.Netのコントロール名の操作について

質問

VB.Netのコントロール名の操作について教えて下さい。

変数Aに代入されている値（コントロール名）から、そのコントロールがフォーム上に存在するかどうか判断し、存在すればそのコントロールに入力されている値を取得したいのですが、ロジックがよくわかりません。
下記のように作りましたがエラーがでます。
どなたか教えて下さいm(_ _)m

Dim CntWk As Control
Dim objwk As Object
Dim 変数A As String

For Each CntWk In objwk
If cntKoumoku.Name = 変数A Then
　　　MsgBox(cntKoumoku.Visible)
　End If
Next

ちなみにエラーは、
　「オフジェクト参照がオフジェクトインスタンスに設定されていません」と出ます。
これはロジックの問題外かと思いますが、.Netに不慣れなためよくわかりません。

回答No.2

Idler999 · ベストアンサー

ちなみに、「オフジェクト参照がオフジェクトインスタンスに設定されていません」のエラーは、

For Each CntWk In objwk
でobjwkのコントロールを見ようとしたけど、
Dim objwk As Object
で宣言されただけで実体のオブジェクトがobjwkに設定されていないので出るエラーです。

Dim CntWk As Control
Dim objwk As Object
Dim 変数A As String

変数A = "？？？？？"
objwk = Me
For Each CntWk In objwk.Controls 'Controlsプロパティ（コレクション型）を指定する。
If CntWk.Name = 変数A Then
　　　MsgBox(CntWk.Text)
　End If
Next

コレでも動きます。

お礼

Idler999さん：
できました！
いつもどうもありがとうございます。

回答No.1

Idler999

フォームのイベントに書くのなら、

Dim wk As Control
For Each wk In Me.Controls
　If wk.Name = "？？？？？" Then
　　MsgBox(wk.Text)
　End If
Next

コレで動きます。？？？？？はコントロール名です。
？？？？？という名のコントロールがフォーム上にあれば、そのテキストをメッセージBOXで表示します。
Meはイベントを起した自分自身のことを指すので、フォームイベントならフォームのことを指します。
もちろん、フォーム名.Controls でも構いません。