VB6如何在代码中使控件移动
就是一个文本框，点第一个按钮移到一个地方，点第二个按钮使文本框向下移50，要怎么做，本人小白谢谢啦。...
就是一个文本框，点第一个按钮移到一个地方，点第二个按钮使文本框向下移50，要怎么做，本人小白谢谢啦。
展开
展开全部
让控件移动，就是改变控件的Left和Top值，点第一个按钮移到一个地方
，说明是一个固定的地方，那么第一个按钮的Click事件代码为：
Text1.Left=100 '改成你想要的值
Text1.Top=100 '改成你想要的值
文本框向下移50，是指Top自加50，那么第二个按钮的Click事件代码为：
Text1.Top = Text1.Top + 50
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
微测检测5.10
2023-05-10 广告
您好！建议咨 深圳市微测检测有限公司，已建立起十余个专业实验室，企业通过微测检测就可以获得一站式的测试与认 证解决方案；(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量），认证遇...
点击进入详情页
本回答由微测检测5.10提供
展开全部
在窗口放一个按钮，在复制下面代码运行测试ok！！！
Dim xx, yy, ax, ay As Long
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
xx = X
yy = Y
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
ax = Command1.Left + X
ay = Command1.Top + Y
Command1.Top = ay - yy
Command1.Left = ax - xx
End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Print "你点击了按钮了"
If Button = 2 Then Print "你移动按钮了"
End Sub
Private Sub Form_Load()
Command1.Caption = "鼠标左键点击，鼠标右键移动"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
