Question

VB中怎样使没有标题栏的窗口能自由移动

Answer 1

1、在MouseDown事件发生时判断按键状态并获取鼠标位置： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果是鼠标左键按下 If Button = 1 Then '标示为移动状态 MoveScreen = True '得到鼠标在窗体上的位置（相对与窗体内部坐标） MousX = X MousY = Y End If End Sub 2、当鼠标MouseMove事件发生时，计算新的窗体坐标，并移动： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果处于鼠标左键按下的状态，即MoveScreen = True时 If MoveScreen Then '计算新的窗体坐标值 CurrX = Form1.Left - MousX + X CurrY = Form1.Top - MousY + Y '移动窗体到新的位置 Form1.Move CurrX, CurrY End If End Sub