vb6中无标题栏窗口的拖动（非API可指定标题栏高度）

最新推荐文章于 2023-09-10 12:51:34 发布

原创最新推荐文章于 2023-09-10 12:51:34 发布 · 1.2k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #api #integer #button

本文详细介绍了在VB6中创建无标题栏窗口并实现鼠标拖动的功能，通过定义变量和使用Form_MouseDown和Form_MouseMove事件处理程序来控制窗口的位置。

vb6中无标题栏窗口的拖动（非API可指定标题栏高度）

Dim mX As Long, mY As Long
Const titleHeight = 750 '标题栏高度

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton And Y < titleHeight  Then
        mX = X: mY = Y
        Debug.Print X, Y
    End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton And Y < titleHeight  Then
        Me.Move Me.Left - mX + X, Me.Top - mY + Y
    End If
End Sub