[求助]如何使form直接显示在桌面上,并“总在最前面”?
时间:2008-04-23
来源:互联网
求助:
各位老师:
如何使Word的表单直接显示在桌面上,并“总在最前面”,即象某些媒体播放器软件一样,窗口总在最前面,其他程序的窗口不会遮盖它,需要使用API完成么?我对API不太懂,也未找到相应的功能,请帮助我。
作者: qxnljx 发布时间: 2008-04-23
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Sub UserForm_Activate()
Dim hwnd As Long
hwnd = FindWindow("ThunderDFrame", vbNullString)
SetWindowPos hwnd, HWND_TOPMOST, Me.Left + Me.Width / 2, Me.Top + Me.Height / 2, 0, 0, SWP_NOSIZE
End Sub
作者: konggs 发布时间: 2008-04-23
作者: qxnljx 发布时间: 2008-04-23
引用:
原帖由 konggs 于 2008-4-23 21:20 发表Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowPos Lib "u ...
作者: 467565088 发布时间: 2011-03-16
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28