vb6.0让窗口在最前面的代码

来源:百度知道 编辑:UC知道 时间:2024/05/27 15:39:38
求各位vb大虾,如何让程序的窗口一直在最前面,就象很多视频播放器的"窗口置前"功能,这样我们在执行其他程序时,窗口还在最前面!不知道大家看得懂吗!!

http://zhidao.baidu.com/question/8242184.html
看看这个帖子

新建一个模块加入代码
Declare Function SetWindowPos& Lib "user32" (ByVal Hwnd&, ByVal hWndInsertAfter&, ByVal X&, ByVal Y&, ByVal cx&, ByVal cy&, ByVal wFlags&)

窗体内加入代码
Private Sub Form_Load()
Call SetWindowPos(Me.Hwnd, -1, 0, 0, 0, 0, 3)
End Sub