上网冲浪很久,常看的网站就那几个,特别有些网站资料登记以备往后用到,于是开发了这个系统,感觉还是很方便。按住shift不放再打开可以进入设计状态,惟一不足的是,点击网站链接时,此前最小化窗口已不是最小(隐藏的ACCESS窗口出现了),如何解决请高手出手进行完善。网站动态使用方法:双击序号输入新记录,双击网站名称提示删除记录。
在这里找到答案了,感谢大家的关注。
禁止WEB菜单启动: DoCmd.ShowToolbar "WEB", acToolbarNo
窗口最小化设置:在窗体加载时引用下列程序
Option Compare Database
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'=======================================================================
'函数名称: HideAccessWindow
'功能描述: 隐藏Access程序窗口,隐藏之后仍然可以使用快捷菜单,注意隐藏之后要窗体要
' 将“弹出”属性设为“是”才能正常打开
'输入参数: 参数1 Hidden 必需的,设为True隐藏,设为False取消隐藏
'返回参数: 无
'兼 容 性:
'使用示例: HideAccessWindow True
'相关调用: GetWindowLong() SetWindowLong() SetLayeredWindowAttributes()
'作 者: 红尘如烟
'创建日期: 2009-2-1
'=======================================================================
Public Function HideAccessWindow(Hidden As Boolean)
On Error Resume Next
Dim lngResult As Long
If Hidden Then lngResult = GetWindowLong(hWndAccessApp, -20) or &H80000
SetWindowLong hWndAccessApp, -20, lngResult
SetLayeredWindowAttributes hWndAccessApp, 0, 0, &H2
End Function
网站动态(已修改)