Question

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

系统一开机就会运行一个置顶的窗口(A)，我现在想用VB 开发一个比它更有置顶权的窗体 请问代码怎么写？A窗体不清楚是什么软件开发的，我现在想用VB开发一个B窗体 运行在最前端（置顶）请问这个代码如何写？

Answer 1

好霸道啊

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

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

Answer 2

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