VB6控制迭代：一个控件给我一个错误;哪一个？

Question

我试图通过窗体中的所有控件循环： 对于Me.Controls中的每个ctrl控制 以便根据某些条件启用/禁用控件。 但是，当我尝试访问它时，窗体上会出现一个控制错误。什么样的控制，我怎么找到它？

Answer 1

当你得到你的错误，然后单击调试，线上的错误设置控件的启用属性？

如果是这样，请添加一个写出控件名称的Debug.Print语句。在设置Enabled属性之前，在行上这样做。

这里就是我的意思是：

Dim ctrl As Control 
For Each ctrl In Me.Controls 
    Debug.Print ctrl.Name 
    ctrl.Enabled = True  
Next 

Debug.Print语句将写出到即时窗口，这是最后的循环处理，可能导致你的错误的一个控件的名称。

编辑

这威力工作。将此控件放置在Panel控件中，并将Panel的Enabled属性设置为False。如果我没有记错，在VB6中将容器控件的Enabled属性设置为False也会将容器的子控件Enabled设置为False。如果您的控件的Enabled属性确实是只读的，我很好奇会发生什么。

Answer 2

另一种方法是如下，这也工作在运行时（而不是仅仅在IDE）：

private sub SetEnabled() 
    on error goto errHandle 

    Dim ctrl As Control 
    For Each ctrl In Me.Controls 
    ctrl.Enabled = True  
    Next 

    exitPoint: 
    exit sub 
    errHandle: 
    MsgBox "Error " & err.Description & " with Control " & ctrl.Name 
    resume exitPoint 
end sub 

Answer 3

土佐：从AngryHacker's answer您的意见，我认为你是不正确检查容器。

你的代码是这样的

' BAD CODE ' 
If ctrl.Container = fraMovies Then 

对我来说，让错误450 Wrong number of arguments or invalid property assignment。你有同样的错误吗？

代码应使用Is而非=，这样

' GOOD CODE ' 
If ctrl.Container Is fraMovies Then 

解释。你想检查两个变量是否指向相同的控件。控件是对象：you must use Is not =来检查两个对象变量是否指向同一个对象。这是VB6中的一个经典陷阱。

最后一句话。下一次，您是否可以尝试发布10行或更少的实际代码，重现错误，并提供确切的错误编号和消息以及它发生的确切路线？它确实使我们能够更轻松地解决您的问题 - 我知道缩短代码对您有用，但您会以这种方式获得更好的答案。

编辑欢迎回来！ :)你说一些控件没有Container属性。你可以尝试在On Error Resume Next包装测试，像这样。

' GOOD CODE ' 
Dim bMatch As Boolean 
Dim ctrl As Control 
For Each ctrl In Me.Controls 
    bMatch = False 
    On Error Resume Next 
    bMatch = (ctrl.Container Is fraMovies) 
    On Error Goto 0 
    If bMatch Then 
    ctrl.Enabled = True  
    End If 
Next 

Answer 4

试试这个：

 
Dim ctr As Control 
Dim CtrStatus Boolean 

CtrStatus = False 

For Each ctr In Me.Controls 

    If (SSTab.hwnd = GetParent(ctr.hwnd)) Then 
    Call CallByName(ctr, "Enabled", VbLet, CtrStatus) 
    else 
    ctr.Enabled = CtrStatus 
    End If 

Next 

Answer 5

禁止循环之前的错误报告，然后将其设置回标准的错误处理：

On Error Resume Next 
For Each ctrl In Me.Controls 
     ctrl.Enabled = lIsEnabled 
Next 
On Error GoTo 0 

或名称的控件与标准前缀/后缀，您可以按名称检查并跳过循环。

For Each ctrl In Me.Controls 
     If Left(ctrl.Name, 3) = "sst" Then 
      ctrl.Enabled = lIsEnabled 
     End If 
Next 

Answer 6

为了避免这样的问题，按照给定的规则而命名contols

• 当你的名字在Visual Basic应用程序的元素，该名称的第一个字符必须是字母字符或下划线。

• **在大写字母的名称中开始每个单独的单词，如在FindLastRecord和RedrawMyForm中。

• 使用动词开始函数和方法名称，如在InitNameArray或CloseDialog中。 使用名词开始类，结构，模块和属性名称，如在EmployeeName或CarAccessory中。

• 开始使用前缀“I”的接口名称，后跟名词或名词短语，如IComponent，或带有描述接口行为的形容词，如IPersistable。不要使用下划线，并谨慎使用缩写，因为缩写可能会导致混淆。

• 使用描述事件类型的名词开始事件处理程序名称，后跟“EventHandler”后缀，如“MouseEventHandler”中所示。

• 在事件参数类的名称中，包含“EventArgs”后缀。 如果事件的概念是“之前”或“之后”，则使用现在或过去式的后缀，如“ControlAdd”或“ControlAdded”中的后缀。

• 对于长期或经常使用的术语，请使用缩写来保持名称长度合理，例如“HTML”，而不是“超文本标记语言”。一般来说，大于32个字符的变量名称在设置为低分辨率的监视器上很难读取。另外，请确保您的缩写在整个应用程序中保持一致。在“HTML”和“超文本标记语言”之间随意切换项目可能会导致混淆。

• 避免在内部作用域中使用与外部作用域中的名称相同的名称。如果访问错误的变量，可能会导致错误。如果变量与同名关键字之间发生冲突，则必须通过在关键字前面加上相应的类型库来标识该关键字。 例如，如果你有一个名为日期变量，则只能通过调用DateTime.Date使用固有的日期功能。