0

我创建了一个函数来检查我的表单中是否有控件类型,但是它没有用,我不知道问题出在哪里。

这是我写的代码:

Private Function testIfControlExists(ByVal _Control As Control)
    For Each c As Control In Me.Controls
        If TypeOf c Is _Control Then
            Return True
        End If
    Next
    Return False
End Function

这是我收到的错误消息:

错误 1 ​​类型“_Control”未定义。

4

3 回答 3

2

如果要检查表单是否具有控件类型,则可以执行以下操作:

Public Function testIfControlExists(ByVal _Control As Control) As Boolean
    For Each c As Control In Me.Controls
        If c.GetType Is _Control.GetType Then
            Return True
        End If
    Next
    Return False
End Function
于 2013-01-24T11:51:57.923 回答
0

改变

If TypeOf c Is _Control Then

If TypeOf c Is Control Then

祝你好运

于 2013-01-24T11:46:35.913 回答
0

请参阅此处的文档

您不能以您尝试的方式使用它。您可以将它用于数据类型名称,例如IntegerString

于 2013-01-24T11:49:07.493 回答