Office中国论坛/Access中国论坛

标题: 如何隐藏ACCESS界面？ [打印本页]

作者: lhces 时间: 2011-9-20 10:53
标题: 如何隐藏ACCESS界面？
就是看不出ACCESS的痕迹，请大家帮忙

作者: dashllh 时间: 2011-9-20 11:54
这个比较有兴趣

作者: chuyuchun 时间: 2011-9-20 16:08
设置启动项

作者: chuyuchun 时间: 2011-9-20 16:09
Access2003设置启动窗体与恢复原始设置的方法
http://www.accessoft.com/article-show.asp?id=3563
Access2007\2010设置启动窗体与恢复原始设置的方法
http://www.accessoft.com/article-show.asp?id=3419

然后配合下面的方法使用
隐藏ACCESS数据库主窗口的两种方法
http://www.accessoft.com/article-show.asp?id=184
另类隐藏Access程序菜单窗口的方法
http://www.accessoft.com/article-show.asp?id=2916

作者: nxjswt 时间: 2011-9-20 16:26
去掉启动项目里面的所有的对号选择

作者: yanghua1900363 时间: 2011-9-20 17:38
尖东ACCESS开发平台【2.0】版
http://www.office-cn.net/forum.p ... &fromuid=158746

作者: nxjswt 时间: 2011-9-20 17:50
1、去掉启动窗口的所有选项

2、在显示窗体中选择第一个要启动的窗体

3、在启动窗体中加入

Private Sub Form_Open(Cancel As Integer)

DoCmd.RunCommand acCmdAppMinimize
End Sub

4、屏蔽shift

Function Changeproperty(Strpropname As String, Varproptype As Variant, Varpropvalue As Variant) As Integer
Dim Dbs As Object, prp As Variant
Const Conpropnotfounderror = 3270

Set Dbs = CurrentDb
On Error GoTo Change_Err
Dbs.Properties(Strpropname) = Varpropvalue
Changeproperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = Conpropnotfounderror Then ' Property not found.
      Set prp = Dbs.CreateProperty(Strpropname, _
         Varproptype, Varpropvalue)
      Dbs.Properties.Append prp
      Resume Next
Else
      ' Unknown error.
      Changeproperty = False
      Resume Change_Bye
End If
End Function

作者: nxjswt 时间: 2011-9-20 17:54
http://www.office-cn.net/thread-53035-1-1.html
去看看我这个帖子

作者: cjnt007 时间: 2011-9-20 21:06
记得以前看过这方面的代码，也测试过，要实现的话好像有三个方面的工作：
1、创建一个1X1像素的bmp文件，与数据库同名保存，目的是以此屏蔽掉Access的快闪屏，其实不是真正屏蔽，只是1像素，不容易觉察到而已。
2、启动窗体中使用API函数隐藏Access主界面显示。具体哪个忘记了，搜索下应该可以找到。
3、数据库中所有的代码要有完善的出错处理机制，否则程序出了问题只能从任务管理器里关闭了。

作者: cjnt007 时间: 2011-9-20 21:19
这个链接里提供了原代码和其他注意事项：
http://www.office-cn.net/thread-12310-1-1.html

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)