Option Explicit '变量声明 'MoveScreen，布尔型变量，标示窗体是否处于被移动状态 Dim MoveScreen As Boolean '鼠标位置 Dim MousX As Integer Dim MousY As Integer '窗体位置 Dim CurrX As Integer Dim CurrY As Integer '“<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>”按钮 Private Sub CmdExit_Click() End End Sub '当鼠标在窗体上按下时 Private Sub Command1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) '--------------------------------------------- '参数说明： '--------------------------------------------- 'button 返回一个整数，用来标识按下或释放的是哪一 '个按钮。button 参数的值为相应于左按钮（1）右按钮 '（2），以及中间按钮（4）。 '--------------------------------------------- 'shift 返回一个整数，在鼠标按钮被按下或者被释放 '的同时，SHIFT,CTRL,和 ALT 键的状态，返回的shift '参数值分别为1，2，和 4。指示这些键的状态。 '--------------------------------------------- 'x,y 返回一个指定鼠标指针当前位置的数。 '--------------------------------------------- '如果是鼠标左键按下 If Button = 1 Then '标示为移动状态 MoveScreen = True '得到鼠标在窗体上的位置（相对与窗体内部坐标） MousX = X MousY = Y End If End Sub '当鼠标在窗体上移过时 Private Sub Command1_MouseMove(Button As Integer,Y As Single) '如果处于鼠标左键按下的状态，即MoveScreen = True时 If MoveScreen Then '计算新的窗体坐标值 '仔细想一下，看看是不是这样 CurrX = Command1.Left - MousX + X CurrY = Command1.Top - MousY + Y '移动窗体到新的位置 Command1.Move CurrX,CurrY End If '把新的窗体坐标<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>出来，是相对于屏幕的坐标 Label3.Caption = CurrX Label4.Caption = CurrY '把鼠标点击的位置<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>出来，是相对与窗体的坐标 Label7.Caption = MousX Label8.Caption = MousY End Sub '如果鼠标松开，则停止拖动 Private Sub Command1_MouseUp(Button As Integer,Y As Single) MoveScreen = False End Sub Private Sub Label2_Click() End Sub Private Sub Form_Load() End Sub