查看: 168  |  回复: 0
VB6 设置窗口置前、置后
楼主
发表于 5月28日 00:08

新建From1(窗体),新建Command1到3(按钮CommandButton),代码:

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 Command1_Click()
    ' 窗口置前
    Dim myval
    myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

Private Sub Command2_Click()
    '窗口正常
    Dim myval
    myval = SetWindowPos(form1.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

Private Sub Command3_Click()
    '窗口置后
    Dim myval
    myval = SetWindowPos(form1.hwnd, 1, 0, 0, 0, 0, 3)
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2023 MaNongKu.com