标题：[求助]看下面代码

1楼

qtcks 发表于：2010/10/9 14:51:00

Dim a
a = Forms("仓调拨单").Controls("Labels4")

If a IsNot Nothing Then
MessageBox.Show("活动窗口为:")
Else
MessageBox.Show("无活动窗口!" )
End If

运行该代码，提示找不到 Labels4控件。

如何才能屏蔽错误？

2楼

czy 发表于：2010/10/9 15:56:00

没道理呀，是不是Label名称和文本混淆了？

3楼

qtcks 发表于：2010/10/9 16:08:00

图片点击可在新窗口打开查看我窗口上就没有名为：Labels4的控件。

由于考虑到代码的通用性。

加入当前窗口中未存在某控件，则跳过某段代码。

4楼

czy 发表于：2010/10/9 16:45:00

窗口有Controls集合，先判断一下应该就行了。

5楼

blackzhu 发表于：2010/10/9 16:56:00

是Labels4,还是Label4?

6楼

czy 发表于：2010/10/9 17:05:00

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    For Each c As WinForm.Control In Forms(frm.Name).Controls
        Output.Show(c.Name)
    Next
End If

判断上面代码中的C.Name就行了。

共6 条记录, 每页显示 10 条, 页签: [1]