十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.
目前累计服务客户成百上千家,积累了丰富的产品开发及服务经验。以网站设计水平和技术实力,树立企业形象,为客户提供成都网站建设、网站制作、网站策划、网页设计、网络营销、VI设计、网站改版、漏洞修补等服务。创新互联公司始终以务实、诚信为根本,不断创新和提高建站品质,通过对领先技术的掌握、对创意设计的研究、对客户形象的视觉传递、对应用系统的结合,为客户提供更好的一站式互联网解决方案,携手广大客户,共同发展进步。
在代码中加入以下事件代码即可让鼠标滚轮支持VScrollBar:
Private Sub mouse_wheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta = 120 Then
If VScrollBar1.Value - VScrollBar1.SmallChange = 0 Then
VScrollBar1.Value -= VScrollBar1.SmallChange
ElseIf VScrollBar1.Value - 1 = 0 Then
VScrollBar1.Value -= 1
End If
Else
If VScrollBar1.Value + VScrollBar1.SmallChange = VScrollBar1.Maximum Then
VScrollBar1.Value += VScrollBar1.SmallChange
ElseIf VScrollBar1.Value + 1 = VScrollBar1.Maximum Then
VScrollBar1.Value += 1
End If
End If
End Sub
简单啊
第一个问题
在鼠标的 move事件里面 得到鼠标的坐标点,然后更改label的,left 和top属性。具体的值你自己去算。
第二个问题
其实跟地一次差不多,只不过过加个标记,判断鼠标是否在按钮上进行了点击操作,鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候,更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE
回答完毕
使vb的窗体在电脑屏幕上随鼠标一起移动方法
先用VB做一个窗口,在top0
left0
的位置。使鼠标一移动到窗口,窗口就跑到屏幕右上角再移动到屏幕右上角,就跑到右下角,接着在屏幕右下角的窗口里移动又跑到左下角,最后在屏幕左下角的窗口里移动又跑回原来的位置。就这样不断循环。这是我跟网上学,写的代码,但是移到右上角的时候就不动了。谁能告诉我错在哪了,帮我改一下Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Form1.Top
=
Then
Form1.Top
=
Form1.Left
=
16000
ElseIf
Form1.Left
=
16000
Then
Form1.Top
=
9500
Form1.Left
=
16000
ElseIf
Form1.Top
=
9500
Then
Form1.Top
=
9500
Form1.Left
=
ElseIf
Form1.Left
=
Then
Form1.Top
=
Form1.Left
=
End
If
End
Sub