フォームがあり、そのフォーム内のすべてのコントロールを実行しています。私のコードは問題なく、すべてのコントロールとそのすべてのプロパティを取得しています。
たとえば、各タブページに2つのタブページと2つのテキストボックスを持つTabControlがあります。
問題は、選択されていない tabPage の場合、テキストボックスのプロパティの表示が False ですが、True に設定していることです。
Control.Select と Control.Focus でこの問題を解決しようとしましたが、 Visible はまだ False です:
Private Sub createXML(ByVal cnt As Control, ByVal elem As XElement)
Try
cnt.Select()
cnt.Focus()
Select Case cnt.Controls.Count
Case Is = 0
'Code here to write XElement to an XDocument
'Check Controls properties
Case Is > 0
For Each childCnt As Control In cnt.Controls
childCnt.Select()
childCnt.Focus()
Dim childElem As New XElement(childCnt.GetType.ToString)
Select Case childCnt.Controls.Count
Case Is = 0
'Code here to write XElement to an XDocument
'Check Controls properties
Case Is > 0
createXML(childCnt, childElem)
End Select
Next
End Select
何か案は?毎回実行する必要があるコントロールがわからないことに注意してください