VB动态拖动控件

Option Explicit '变量声明 'MoveScreen，布尔型变量，标示窗体是否处于被移动状态 Dim MoveScreen As Boolean '鼠标位置 Dim MousX As Integer Dim MousY As Integer '窗体位置 Dim CurrX As Integer Dim CurrY As Integer '“退出”按钮 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 '把新的窗体坐标显示出来，是相对于屏幕的坐标 Label3.Caption = CurrX Label4.Caption = CurrY '把鼠标点击的位置显示出来，是相对与窗体的坐标 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!