Question

VB中怎样才能使窗口始终保持在其它窗口前端（包括任务栏）？

如题 窗口也要在任务栏前端 覆盖住

Answer 1

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)

Answer 2

就是将窗口置顶就行了,很简单的,写一个函数可更方便的让窗口随时置顶或不置顶,方法就是

си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

Answer 3

vb2008 将 form 属性 TopMost 设置为 TRUE