VB鼠标如何拖动文件？

2009-05-09 12:12:46 140 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB滚轮如何安装？在前几天师傅给我验ＶＢ项目的时候，说怎么没有给ＶＢ安装滚轮？这样会方便一些。刚开始我还没有意识到要按滚轮这件事情，我以为ＶＢ不可以用鼠标滚轮滚动，每次都要拖动滚动条看程序，这样非常麻烦。所以友情提示还没有给ＶＢ安装滚轮的记得安装，遇到问题要多问，师傅们都是和咱们一样一步一步走过来的，不会不丢人，不问就害了自己了，虽然你和你的同期小伙伴在同一起跑线上，但你什么都不问你的小伙伴就会比你学的快、比你学的... 阅读详情

我希望做一个拖动的小软件，拖动“从站”进SHAPE1后，“从站1”自动加载到SHAPE1的中心位置，原“从站1”消失，“从站”回到原位置不变，重复操作，拖动“从站”进SHAPE2后，“从站2”自动加载到SHAPE2的中心位置，“从站”回到原位置不变，拖动“从站”进SHAPE3后，“从站3”自动加载到SHAPE3的中心位置，“从站”回到原位置不变，并且当“从站1”，“从站2”，“从站3”拖进对应的SHAPE框后可以拖出来，回到原来的位置。麻烦各位帮我看看。

...全文

Win10电脑运行vb6.0时拖动鼠标时虚线错位如何解决 VB6.0是一款程序开发工具，很多程序人员都会在电脑中下载并运行这款工具，不过有不少用户在win10系统中运行VB6.0的时候，发现总是会遇到拖动控件迟缓、拖动鼠标时虚线错位等问题，要怎么办呢，关于这个问题将给大家讲解一下Win10电脑运行VB6.0时拖动鼠标时虚线错位的具体解决措施。1、找到VB的安装路径，进入Microsoft Visual Studio\VB98，看到VB6.exe；2、右键阅读详情

xujundelaopo

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

xujundelaopo 2009-05-09

打赏
举报

Dim w1%, w2%, h1%, h2%, m%, k%, l%
Private Sub Form_Load()
k = Picture99(0).Left
l = Picture99(0).Top
End Sub

Private Sub Picture99_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Index = 0 Then
w1 = X - Picture99(0).Left: w2 = Picture99(0).Left + Picture99(0).Width - X
h1 = Y - Picture99(0).Top: h2 = Picture99(0).Top + Picture99(0).Height - Y
Else

End If

End Sub

Private Sub Picture99_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Index = 0 Then
m = m + 1
If (X - w1 > Shape1.Left And X + w2 < Shape1.Left + Shape1.Width _
And Y - h1 > Shape1.Top And Y + h2 < Shape1.Top + Shape1.Height) Then
Load Picture1(m)
Picture1(m).Left = Shape1.Left + Shape1.Width / 2 - Picture1(m).Width / 2: Picture1(m).Top = Shape1.Top + Shape1.Height / 2 - Picture1(m).Height / 2

ElseIf (X - w1 > Shape2.Left And X + w2 < Shape2.Left + Shape2.Width _
And Y - h1 > Shape2.Top And Y + h2 < Shape2.Top + Shape2.Height) Then
Load Picture2(m)
Picture1(m).Left = Shape2.Left + Shape2.Width / 2 - Picture1(m).Width / 2: Picture1(m).Top = Shape2.Top + Shape2.Height / 2 - Picture1(m).Height / 2

ElseIf (X - w1 > Shape3.Left And X + w2 < Shape3.Left + Shape3.Width _
And Y - h1 > Shape3.Top And Y + h2 < Shape3.Top + Shape3.Height) Then
Load Picture3(m)
Picture1(m).Left = Shape3.Left + Shape3.Width / 2 - Picture1(m).Width / 2: Picture1(m).Top = Shape3.Top + Shape3.Height / 2 - Picture1(m).Height / 2

End If
Picture1(m).Visible = True

If Index > 0 Then
If (X - w1 > Shape1.Left + Shape1.Width Or X + w2 < Shape1.Left _
Or Y - h1 > Shape1.Top + Shape1.Height Or Y + h2 < Shape1.Top) Then
Unload Picture1(Index)

ElseIf (X - w1 > Shape2.Left + Shape2.Width Or X + w2 < Shape2.Left _
Or Y - h1 > Shape2.Top + Shape2.Height Or Y + h2 < Shape2.Top) Then
Unload Picture2(Index)

ElseIf (X - w1 > Shape3.Left + Shape3.Width Or X + w2 < Shape3.Left _
Or Y - h1 > Shape3.Top + Shape3.Height Or Y + h2 < Shape3.Top) Then
Unload Picture3(Index)

End If

End If
End If

End Sub
这是我最开始做的~ 但很多功能无法实现

penguinhzf 2009-05-09

打赏
举报

首先不清楚你"从站"是什么意思?不过可以将"从站"自定义为一个控件,或者一个变量来判断

给你个思路,假设"从站"是一个控件的话,在他的mousemove里可以实现拖动,然后再判断他的位置是否进入了shape1,shape2,shape3里,然后再根据你的意思来将"从站"移动到相应shape的位置上.

VB鼠标如何拖动文件？

相关推荐