以下是引用程兴刚在2013-10-30 15:46:00的发言：
仅供参考：
判断控件类型
如果我希望清除窗口中所有文本框的内容，显然只能使用遍历才能完成这样的任务。
但是遍历控件的时候，只能使用WinForm.Control类型的变量，但是这样的变量又不能访问文本框的Value属性。
所以只能在遍历控件的时候判断控件类型，然后用具体的控件类型变量来引用控件：
For
Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
t.Value = Nothing
End If
Next
判断变量是否是某类型的语法是：
Typeof 变量 Is 类型
如果变量是指定的类型则返回True，否则返回False。
程老师，我是希望在遍历控件的时候顺便把控件类型也遍历出来，请帮忙修改下代码吧
For Each f As WinForm.Form In Forms
If f.Opened Then
For Each fc As WinForm.Control In f.Controls
Dim dr As DataRow = DataTables("窗口控件").Find("窗口名 = '" & e.Form.Name & "' And 控件名 = '" & fc.Name & "'")
If dr Is Nothing Then
dr = DataTables("窗口控件").AddNew()
dr("窗口名") = e.Form.Name
dr("控件名") = fc.Name
dr("控件类型") = ？？
End If
For Each r As DataRow In DataTables("窗口控件").DataRows
If r("控件名") = "" Then
r.Delete
End If
Next
DataTables("窗口控件").Save
Next
End If
Next
加好友 
发短信
Post By：2013/10/30 15:39:00 [显示全部帖子]
