Question

我正在开发一个vb.net工具，并需要从MS Access DB形式中找出Activex控件。我能够计算表单中的控件数量，但无法仅从表单中获取Activex控件。请问有没有任何想法可以实现这一点。

Answer 1

你能访问到controltype属性吗？如果可以，我不能帮助你用vb.net，但这里有一些可能有用的VBA代码。

ActiveXCount = 0
For Each ctl In Screen.ActiveForm
    If ctl.ControlType = 119 Then  Custom control 
         Debug.Print ctl.Class 
        ActiveXCount = ActiveXCount + 1
    End If
Next

Answer 2

I am not sure what your are wanting is possible.
Try this: go into MS access and create new property that is the count of controls on the form. In VBA, me.Countrols.Count. Open the form using Access automation. OnFOrmLoad() write the number of controls to text file along with name of the form and then close the form. Afterwards open the text file in VB.net. It is indirect but it would work.

如何從Visual Basic .NET自動化Microsoft Access

自动化：

Dim oAccess As Access.Application

  Start a new instance of Access for Automation:
oAccess = New Access.ApplicationClass()

  Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="c:mydb.mdb", Exclusive:=True)

oAccess.DoCmd.OpenForm(FormName:="Employees")

友情链接