如何使用vb.net隐藏/取消隐藏MS Access数据库表单

Question

如果Access DB中的表单设置为隐藏。那怎么取消隐藏呢？这样我们就可以使用vb.net以编程方式操作表单。

谢谢。

Answer 1

我无法帮助.net，在VBA：

Sub FormHidden()
Dim frm

    For Each frm In CurrentProject.AllForms
        SetHiddenAttribute acForm, frm.Name, False
    Next
End Sub

Answer 2

Remou提供的代码应该适用于取消隐藏在Access UI中已将其属性更改为HIDDEN的表单。

在VBA中，为了简化Remou的例子，那将是：

SetHiddenAttribute acForm, "MyHiddenForm", False 

为了实现这一点，您可能需要从VB.NET自动执行Access，但SetHiddenAttribute是顶级Access应用程序对象的方法，因此应该使用起来相当简单。名为constant acForm的VBA的值是2，所以你可能不得不按字面意思调用，如下所示：

app.Application.SetHiddenAttribute 2, "MyHiddenForm", False

app对象已初始化为Access应用程序。不知道如何在VB.NET中完成，但在VBA中它会是这样的：

Set app = CreateObject("Access.Application")

我不确定正确的语法是app.Application.SetHiddenAttribute还是只是app.SetHiddenAttribute，但你可以轻松尝试其中任何一个。

但请记住，正是Remou给出了正确答案。我只是在推测如何让它在我甚至不使用的编程环境中工作！

Answer 3

表单是否具有Visible属性？您可以设置为true以使表单可见。

Answer 4

您的意思是表单是打开但不可见，还是表单的元属性设置为不可见？后者是您不应该做的事情，因为下次数据库被压缩时将删除设置为visible off的项目。