VB中怎样才能使窗口始终保持在其它窗口前端（包括任务栏）？
答案:3 悬赏:80 手机版
解决时间 2021-03-31 23:21
- 提问者网友：浪荡绅士
- 2021-03-31 11:34
VB中怎样才能使窗口始终保持在其它窗口前端（包括任务栏）？
最佳答案
- 五星知识达人网友：第幾種人
- 2021-03-31 12:50
VB中让窗口置顶的方法
这里调用了windows的一个api函数 [SetWindowPos] 来实现的
其实非常简单
1.在VB的通用代码里写入API声明
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)
2.因为我们要让窗口置顶
那么就在Form_Load()事件里写入如下代码
Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)
这里调用了windows的一个api函数 [SetWindowPos] 来实现的
其实非常简单
1.在VB的通用代码里写入API声明
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)
2.因为我们要让窗口置顶
那么就在Form_Load()事件里写入如下代码
Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)
全部回答
- 1楼网友：孤独的牧羊人
- 2021-03-31 14:20
vb2008 将 form 属性 TopMost 设置为 TRUE
- 2楼网友：傲气稳了全场
- 2021-03-31 13:12
就是将窗口置顶就行了,很简单的,写一个函数可更方便的让窗口随时置顶或不置顶,方法就是
сиlамв 回答中将myval 这里的用法放到一个函数里面
private function SetWindowTop(hWnd as long, optional IsTop as boolean)
if hwnd<=0 then exit function
if istop=true then
сиlамв 的调用方法
else
取消设置为置顶
end if
end function
如果你须要可以联系我,我发一个给你,
QQ:25 41 86 91 7
сиlамв 回答中将myval 这里的用法放到一个函数里面
private function SetWindowTop(hWnd as long, optional IsTop as boolean)
if hwnd<=0 then exit function
if istop=true then
сиlамв 的调用方法
else
取消设置为置顶
end if
end function
如果你须要可以联系我,我发一个给你,
QQ:25 41 86 91 7
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯