VB 如何让窗体置顶 永远显示在最前面？本来就有一个窗体是置顶的了 现在想开发一个来覆盖它的置顶？

VB 如何让窗体置顶 永远显示在最前面？本来就有一个窗体是置顶的了 现在想开发一个来覆盖它的置顶？

好霸道啊

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)

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub

方法虽然很龌龊,但很管用,我在想别的程序如果也象这样会怎样

右键工程---工程属性---启动对象
启动对象选择你要置顶的就可以了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息