如何使用vb.net分割访问数据库表单中的Activex控件?

时间:2009-01-29 04:09:24

标签: vb.net ms-access

使用我的工具(vb.net)我可以计算访问数据库表单中存在的Activex控件。控制分叉是否可能?即我想分别计算activex控件。

e.g。如果总共有10个Activex控件,其中5个是压延控件,5个是复选框。然后我需要单独计算。

有可能吗?请建议。

要计算Activex控件,我使用以下代码.....

**

oCtls = oForm.Controls
   intObjectCount = 0
   For Each oCtl In oCtls
      If oCtl.ControlType = 119 Then 'Activex Control'
        intObjectCount = intObjectCount + 1
      End If
    Next

**

2 个答案:

答案 0 :(得分:0)

您的控件应具有Class属性。这应该给你足够的信息来确定它是什么类型。我知道这可以在Access本身的Control类中使用,但我不确定vb.net。

示例(需要案例陈述来解决所有问题):

  If oCtl.Class = "AX2Controls.wsAX2Text" then
     iAX2Text = iAX2Text + 1
  End if

答案 1 :(得分:0)

询问控件的类型:

If TypeOf oCtl Is System.Windows.Forms.CheckBox then
   CheckBoxCount +=1
end if