如何使vb的窗体在电脑屏幕上随鼠标一起移动?

就是一个vb的窗体比较小,当打开窗体所在程序后,移动鼠标后此窗体随鼠标移动... 就是一个vb的窗体比较小,当打开窗体所在程序后,移动鼠标后此窗体随鼠标移动 展开
 我来答
那年那月荧光
推荐于2018-12-13 · 超过19用户采纳过TA的回答
知道答主
回答量:44
采纳率:0%
帮助的人:53万
展开全部
把下列代码放到你的窗体代码中:
Private mMouseDown As Boolean
Private mX As Single, mY As Single

Private Sub Form_Load()
mMouseDown = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mMouseDown = Not mMouseDown
mX = X
mY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mMouseDown Then Me.Move Me.Left + X - mX, Me.Top + Y - mY

End Sub

点击窗体后窗体随鼠标移动,再次点击停止跟随。
鼠标将保持在点击(在窗体上的)的位置。
MouseMove事件不是很灵敏,所以鼠标不能移动太快。
更多追问追答
追问
做了,没效果
追答
什么叫没效果?
三号床铺的四哥
推荐于2016-09-15 · TA获得超过3.8万个赞
知道小有建树答主
回答量:4186
采纳率:88%
帮助的人:200万
展开全部
  使vb的窗体在电脑屏幕上随鼠标一起移动方法
  先用VB做一个窗口,在top0 left0 的位置。使鼠标一移动到窗口,窗口就跑到屏幕右上角再移动到屏幕右上角,就跑到右下角,接着在屏幕右下角的窗口里移动又跑到左下角,最后在屏幕左下角的窗口里移动又跑回原来的位置。就这样不断循环。这是我跟网上学,写的代码,但是移到右上角的时候就不动了。谁能告诉我错在哪了,帮我改一下Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Form1.Top = 0 Then
Form1.Top = 0
Form1.Left = 16000
ElseIf Form1.Left = 16000 Then
Form1.Top = 9500
Form1.Left = 16000
ElseIf Form1.Top = 9500 Then
Form1.Top = 9500
Form1.Left = 0
ElseIf Form1.Left = 0 Then
Form1.Top = 0
Form1.Left = 0
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
腾讯电脑管家
2018-07-26 · 百度知道官方认证企业
腾讯电脑管家
腾讯电脑管家是腾讯公司推出的免费安全管理软件,能有效预防和解决计算机上常见的安全风险,并帮助用户解决各种电脑“疑难杂症”、优化系统和网络环境,是中国综合能力最强、最稳定的安全软件。
向TA提问
展开全部
先用VB做一个窗口,在top0 left0 的位置。使鼠标一移动到窗口,窗口就跑到屏幕右上角再移动到屏幕右上角,就跑到右下角,接着在屏幕右下角的窗口里移动又跑到左下角,最后在屏幕左下角的窗口里移动又跑回原来的位置,就这样不断循环。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
风雪剑无痕
2012-05-25 · TA获得超过1253个赞
知道大有可为答主
回答量:1691
采纳率:100%
帮助的人:1675万
展开全部
MDI
追问
具体点
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式