查看: 50  |  回复: 0
  VB6 移动一个窗口到指定的点,窗口在飞动
楼主
发表于 2024年10月22日 21:16

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

Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Dim rval, x, y, z As Long
    Form1.AutoRedraw = True
    x = 5: y = 5
    For z = 1 To 50
        rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
        Sleep 100
        x = x + 5: y = y + 5
    Next z
    For z = 1 To 50
        rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
        Sleep 100
        x = x + 5: y = y - 5
    Next z
    End
End Sub


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