For Each ctrl As Control In WindowsApplication1.Controls()
'ユーザコントロール名出力 Debug.WriteLine("▼ ctlName." & ctrl.Name) 'ラベル情報出力 Call get_ObjName(ctrl) Next
End Sub
Private Sub get_ObjName(ByVal ctl As Control) Dim i As Integer = 0
For Each ctrl As Control In ctl.Controls() 'ボタンかどうかを識別 If TypeOf (ctrl) Is Label Then 'ボタンの名前を識別 Debug.Write(ctrl.Text & vbTab) Debug.WriteLine(ctrl.Name) i += 1 End If Next
分類:[.NET]
お世話になっております。
今回、あるプロジェクト内にあるユーザコントロール毎にに貼り付けてあるラベル名の一覧を取得したいのです。
ユーザコントロール内のラベル名一覧処理はできたのですが、プロジェクト内のコントロールを取り出す処理をどうかいていいかが分かりません。
ためしに、以下のような処理を書いてみましたがだめでした。
(WindowsApplication1は、クラスライブラリです)
Private Sub get_ctlName()
For Each ctrl As Control In WindowsApplication1.Controls()
'ユーザコントロール名出力
Debug.WriteLine("▼ ctlName." & ctrl.Name)
'ラベル情報出力
Call get_ObjName(ctrl)
Next
End Sub
Private Sub get_ObjName(ByVal ctl As Control)
Dim i As Integer = 0
For Each ctrl As Control In ctl.Controls()
'ボタンかどうかを識別
If TypeOf (ctrl) Is Label Then
'ボタンの名前を識別
Debug.Write(ctrl.Text & vbTab)
Debug.WriteLine(ctrl.Name)
i += 1
End If
Next
Debug.WriteLine("▲ label." & i)
End Sub
どのように指定すれば、プロジェクト内のユーザコントロールがとれるのか、ご教授願います。