ACCESS窗口置顶的函数

829次阅读
没有评论

共计 848 个字符,预计需要花费 3 分钟才能阅读完成。

提醒:本文最后更新于 2019-06-11 10:51,文中所关联的信息可能已发生改变,请知悉!

有时候需要把某些窗体置顶到屏幕的最前面,方便的编辑或输入数据,所以网上查了窗口置顶的函数,找到了红尘如烟的窗口置顶自定义函数,只要在模块中申明一下的函数,再到需要置顶的窗体的 Load 下调用就可以了,不需要的时候再调用取消置顶,具体如下:


Option Compare Database
Option Explicit

Private Declare Function SetWindowPos Lib“user32”(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const API_SWP_NOSIZE = &H1

Const API_SWP_NOMOVE = &H2

Const API_HWND_TOPMOST = -1

Const API_HWND_NOTOPMOST = -2

Public Type POINTAPI

X As Long

Y As Long

End Type‘====================================================================
Function setFormPos(frm As Form, Optional bln As Boolean = True) As Boolean

If bln = True Then

SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, 3‘置顶

Else

SetWindowPos frm.hwnd, -2, 0, 0, 0, 0, 3‘正常

End If

If Err.Number = 0 Then

setFormPos = True

Else

setFormPos = False

End If

End Function



// 实际使用
Private Sub Form_Load()

setFormPos Me‘调用函数,置顶

Private Sub Form_Load()

setFormPos Me, False‘调用函数,取消置顶 
正文完
 0
水东柳
版权声明:本站原创文章,由 水东柳 于2019-03-02发表,共计848字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)