Private Sub 清理并初始化控件()
For Each 控件 As Control In Me.Controls '循环当前窗口的所有控件
'清理所有ComboBox控件
If TypeOf 控件 Is ComboBox Then '如果当前控件类型是 ComboBox
Dim 组合框控件 = TryCast(控件, ComboBox) '把控件 转成 ComboBox 控件
组合框控件.Text = ""
End If
'清理所有ListBox控件
If TypeOf 控件 Is ListBox Then '如果当前控件类型是 ListBox
Dim 列表框控件 = TryCast(控件, ListBox) '把控件 转成 ListBox 控件
列表框控件.Items.Clear() '清空当前控件内容
End If
'清理所有ListBox控件
If TypeOf 控件 Is TextBox Then '如果当前控件类型是 TextBox
Dim 列表框控件 = TryCast(控件, TextBox) '把控件 转成 TextBox 控件
列表框控件.Text = "" '清空当前控件内容
End If
Next
End Sub