vb编程中在控件label1上点击左键移动鼠标使整个窗体也一移动,编码怎么写呀
答案:2 悬赏:70
解决时间 2021-02-13 15:13
- 提问者网友:先森请一心
- 2021-02-12 23:10
vb编程中在控件label1上点击左键移动鼠标使整个窗体也一移动,编码怎么写呀
最佳答案
- 二级知识专家网友:都不是誰的誰
- 2021-02-12 23:48
添加一个label控件
'窗体代码
Private downx As Long
Private downy As Long
Private xx As Long
Private yy As Long
Private MouseDown As Boolean
Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
downx = X
downy = Y
MouseDown = True
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
If MouseDown = True Then Me.Move Me.Left + (xx - downx), Me.Top + (yy - downy)
End Sub
Private Sub label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub
这样就行了!!
'窗体代码
Private downx As Long
Private downy As Long
Private xx As Long
Private yy As Long
Private MouseDown As Boolean
Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
downx = X
downy = Y
MouseDown = True
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
If MouseDown = True Then Me.Move Me.Left + (xx - downx), Me.Top + (yy - downy)
End Sub
Private Sub label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub
这样就行了!!
全部回答
- 1楼网友:嗷呜我不好爱
- 2021-02-12 23:56
把label放置到frame控件中,就是你添加一个label控件的时候在frame控件上画就行了
(不要在窗体上画)
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯