vb6 - 无法在运行时读取属性

Question

当我尝试读取控件的 “Left property” 时，出现错误，

“运行时无法读取左侧”

这是我的代码，

for each ctrl in me.controls
    if ctrl.left > 2490 then
        'app logic
    end if
next

这段代码有什么问题。它在另一台计算机上运行无误。谁能告诉我哪里出了问题

Answer 1

您的窗体上可能只有一个设计时可放置的控件，例如 timer，它没有运行时剩余属性。您可以检查控件类型以确保仅检查 TextBox、Label、Button 等，或者只使用 on下一个错误继续:

使用 TypeOf 检查对象类型:

Dim ctrl As Control

For Each ctrl In Me.Controls
    If TypeOf ctrl Is Timer Then
    Else
        If ctrl.Left > 2490 Then
            'app logic
        End If
    End If
Next

使用 TypeName 检查对象类型:

Dim ctrl As Control

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Timer" Then
    Else
        If ctrl.Left > 2490 Then
            'app logic
        End If
    End If
Next

使用 On Error Resume Next:

Dim ctrl As Control

On Error Resume Next
for each ctrl in me.controls
    if ctrl.left > 2490 then
        'app logic
    end if
Next