vb 窗口绝对置后

来源：百度知道 编辑：UC知道 时间：2024/07/07 19:37:23
如何让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) As Long

Private Sub Form_Load()

Timer1.Interval = 1000 '这里是设置窗口至于最底部的间隔,1000=1秒
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

SetWindowPos Me.hwnd, 1, 0, 0, 0, 0, 3

End Sub

'有什么不懂的就 hi 我

'SetWindowPos API

'Statement

Option Explicit

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