关于鼠标事件mousemove的一段代码

wjp_auhtm 2007-02-09 11:18:38
为什么我实验后 在拖动图片到达边界处时 会越界或拖动不顺畅呢 是不是这样限制图片移动范围的方法不对啊

'鼠标拖动图片
Private Sub Picedit_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseDown
If Not (Picedit.Image Is Nothing) Then
If e.Button = MouseButtons.Left Then
Me.Cursor = System.Windows.Forms.Cursors.Hand
mouseX = e.X
mousey = e.Y
jk = 1
Else
Exit Sub
End If
End If
End Sub

Private Sub Picedit_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseMove
If Not (Picedit.Image Is Nothing) Then
If e.Button = MouseButtons.Left Then
If jk = 1 Then
If Picedit.Width < panel.Width Then
Exit Sub
End If
If Picedit.Height < panel.Height Then
Exit Sub
End If
If Picedit.Width >= panel.Width And Picedit.Width >= panel.Width Then
Picedit.Left = Picedit.Left + e.X - mouseX
Picedit.Top = Picedit.Top + e.Y - mousey
Picedit.Refresh()
End If

If Picedit.Width + Picedit.Left <= panel.Width Then
Picedit.Left = panel.Width - Picedit.Width
Picedit.Refresh()
jk = 2

End If
If Picedit.Height + Picedit.Top <= panel.Height Then
Picedit.Top = panel.Height - Picedit.Height
Picedit.Refresh()
jk = 2

End If
If Picedit.Left >= 0 Then
Picedit.Left = 0
Picedit.Refresh()
jk = 2

End If
If Picedit.Top >= 0 Then
Picedit.Top = 0
Picedit.Refresh()
jk = 2

End If
Else
Exit Sub
End If
End If
End If
End Sub

Private Sub Picedit_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseUp
If Picedit.Image Is Nothing Then
Exit Sub
End If
If jk = 2 Then
If Picedit.Width + Picedit.Left < panel.Width Then
Picedit.Left = panel.Width - Picedit.Width
Picedit.Refresh()
Exit Sub
End If
If Picedit.Height + Picedit.Top < panel.Height Then
Picedit.Top = panel.Height - Picedit.Height
Picedit.Refresh()
Exit Sub
End If
If Picedit.Left > 0 Then
Picedit.Left = 0
Picedit.Refresh()
Exit Sub
End If
If Picedit.Top > 0 Then
Picedit.Top = 0
Picedit.Refresh()
Exit Sub
End If
Me.Cursor = System.Windows.Forms.Cursors.Default
jk = 3
End If
End Sub
...全文
415 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
wjp_auhtm 2007-02-12
  • 打赏
  • 举报
 回复
谢谢高手帮忙 我感觉你的思路很系统 很有条理 这点是我现在严重缺乏的
你的代码我稍稍修改了一下 现在可以满足我的要求了 多谢高手帮忙 不过 在边界处拖动速度很快的话 还是稍微有些闪 不过已经能满足功能呢 呵呵 我这就把分给您 希望大家可以经常交流 我的qq是17824409
magicbacon 2007-02-12
  • 打赏
  • 举报
 回复
initX,initY在这里相当于你的mouseX,mouseY,而flagX,flagY相当于你的jK,但是在纪录鼠标状态的同时还纪录了位置的状态,即是否越界.呵呵,我也是新手,要实现你的全部功能,代码可能还有问题,这段代码我是测试过的,如果不行的话在讨论吧. : )
magicbacon 2007-02-12
  • 打赏
  • 举报
 回复
出现你的问题的原因可能是因为MouseMove时间的发生也是有一定时间间隔的,即每隔一段时间(零点几秒或零点零几秒)就检查一次鼠标的位置,如果在这段时间内鼠标移动越界了,而程序中有不能对此进行处理,那么因为MouseMove不能及时动作,就会达不到你需要的效果.所以我写的代码中将横坐标和纵坐标分开处理,每个坐标分为三种不同状态分别处理,即在界内,出左(上)界和出右(下)界.这样即使在MouseMove的时间间隔中出现了出界也能处理了,而人眼是分辨不出区别的.
magicbacon 2007-02-12
  • 打赏
  • 举报
 回复
Public Class Form1

' 在窗体中加入Panel控件panel、PictureBox控件Picedit
' Picedit放在panel中,鼠标拖动时,Picedit在panel中移动但不越界,
' 即panel是Picedit的活动范围

Dim initX, initY As Int32
Dim flagX, flagY As Int32

Private Sub Picedit_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseDown
If Not (Picedit.Image Is Nothing) Then
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Cursor = System.Windows.Forms.Cursors.Hand
initX = e.X ' 纪录初始位置
initY = e.Y
flagX = 1 ' 图片已载入且左健按下时将标志位置1
flagY = 1
Else
Exit Sub
End If
End If
End Sub

Private Sub Picedit_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseMove
Select Case flagX ' 处理横坐标
Case 0 ' 不符合移动条件,不做任何操作
Exit Sub
Case 1 ' 横坐标在范围之内
Picedit.Left = Picedit.Left - initX + e.X
If Picedit.Left < panel.Left Then
flagX = 2
ElseIf Picedit.Left + Picedit.Width > panel.Left + panel.Width Then
flagX = 3
End If
Case 2 ' 横坐标超出左边框
Picedit.Left = panel.Left
If -initX + e.X > 0 Then
Picedit.Left = Picedit.Left - initX + e.X
flagX = 1 ' 回到范围之内,标志复位到1
End If
Case 3 ' 横坐标超出右边框
Picedit.Left = panel.Left + panel.Width - Picedit.Width
If -initX + e.X < 0 Then
Picedit.Left = Picedit.Left - initX + e.X
flagX = 1 ' 回到范围之内,标志复位到1
End If
End Select
Select Case flagY ' 处理纵坐标
Case 1 ' 横坐标在范围之内
Picedit.Top = Picedit.Top - initY + e.Y
If Picedit.Top < panel.Top Then
flagY = 2
ElseIf Picedit.Top + Picedit.Height > panel.Top + panel.Height Then
flagY = 3
End If
Case 2 ' 纵坐标超出下边框
Picedit.Top = panel.Top
If -initY + e.Y > 0 Then
Picedit.Top = Picedit.Top - initY + e.Y
flagY = 1 ' 回到范围之内,标志复位到1
End If
Case 3 ' 纵坐标超出下边框
Picedit.Top = panel.Top + panel.Height - Picedit.Height
If -initY + e.Y < 0 Then
Picedit.Top = Picedit.Top - initY + e.Y
flagY = 1 ' 回到范围之内,标志复位到1
End If
End Select
End Sub

Private Sub Picedit_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picedit.MouseUp
flagX = flagY = 0
Me.Cursor = System.Windows.Forms.Cursors.Default
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
flagX = flagY = 0
End Sub
End Class
wjp_auhtm 2007-02-11
  • 打赏
  • 举报
 回复
...
magicbacon 2007-02-10
  • 打赏
  • 举报
 回复
关键是panel的大小,位置和放置它的目的.
magicbacon 2007-02-10
  • 打赏
  • 举报
 回复
是不是用鼠标将PictureBox Picedit在Panel panel中拖动?不能出边框.
magicbacon 2007-02-10
  • 打赏
  • 举报
 回复
能不能把你的控件命名和从属关系说一下,还有jK,mouseX,mouseY的定义.
wjp_auhtm 2007-02-10
  • 打赏
  • 举报
 回复
jk 是出于无奈加上的一个判断是鼠标按下还是拖动 还是鼠标放开的参数（鼠标按下后jk=1 开启鼠标拖动事件；鼠标拖动出设定的边界后jk=2）
picedit是一个picturebox 放在了panel控件中
mousex和mousey是鼠标点击时鼠标的坐标位置（全都是按panel控件的坐标来计算的）

希望达到的效果是：picedit控件在panel控件中拖动 达到通过panel控件浏览picedit中的图像的功能
不知为何 加入这段代码后 倒是能实现拖动效果 但是很不顺畅 不知为何 希望高手能帮忙解释一下 谢谢
js实现一个可以兼容PC端和移动端的div拖动效果实例
前段时间写了一个简单的div拖动效果，不料昨天项目上正好需要一个相差不多的需求，就正好用上了，但是在移动端的时候却碰到了问题，拖动时候用到的三个事件：mousedown、mousemove、mouseup在移动端都不起任何作用。毕竟移动端是没有鼠标的，查资料后发现，在移动端与之相对应的分别是：touchstart、touchmove、touchend事件。还有一点要注意的是在PC端获取当前鼠标的坐标是：event.clientX和event.clientY，在移动端获取坐标位置则是：event.touches[0].clientX和event.touches[0].clientY。 下面就来说
JavaScript处理鼠标各个事件的示例代码、说明和案例
以上示例代码演示了如何在HTML中使用JavaScript处理常见的鼠标事件，并给出了每个事件的使用方法、作用和常见使用案例。常见使用案例：在网页中的拖拽功能或按住按钮进行连续操作时，通过监听鼠标松开事件来触发相应的逻辑处理。常见使用案例：在网页中的图片上，当用户将鼠标移出图片区域时，恢复图片的原始样式或显示其他相关信息。常见使用案例：在网页中创建一个按钮，当用户点击按钮时触发相应的操作，例如提交表单、打开弹窗等。常见使用案例：在网页中的游戏或交互界面中，当用户按下特定按钮时触发相应的游戏操作或界面切换。
ThreeJS视频教程
对整threeJS体系进行全面剖析。整理出全面的教学大纲，涵盖内容面非常广。此教学版本为threeJS107版本。关于版本不建议大家使用低于90的版本学习。以下是课程目录1-ThreeJS概览（基本图形简介，什么是点线面如何绘制点线面，什么是材质，什么是几何体，什么是相机，什么是渲染器，什么是场景）2-相机和渲染器（详解相机类型，渲染器如何使用，针对不同场景怎么用，怎么调效果，怎么渲染，怎么输出画布，如何解决透明问题等等）3-创建平面几何（常见的几何体如何使用，如何使用简单的几何体绘制出自定义自己想要的几何体，关于几何体的性能剖析，如何解决性能，几何体的渲染原理）4-高级图形算法常见库（求直线的斜率  计算线段与圆的交点 计算线段的长度 判断折线是否在多边形内 等等）5-sprite精灵(怎么让一个图标永远朝向屏幕，精灵的属性，精灵材质原理等，广告提示框必用)6-骨骼游戏动画（什么是模型动画，常见游戏案例，如何让人头进行各种攻击动作）7-3d模型加载（常见模型格式，如何渲染不同格式，不同格式的特点，什么格式性能优越，模型渲染异常，贴图不显示等问题详解）8-高阶动态纹理（你所不知道的纹理用法，我说你不知道，你肯定不知道）9-漫游轨迹以及其动画路径（怎么绘制贝塞尔曲线，如何使用曲线上的路径，跟随路径移动的原理，相机如何运动，物体如何运动）10-着色器（什么是着色器。初识着色器基础，着色器材质怎么用，怎么使用着色器库）11-常见渲染以及透明度问题12-对象拾取以及拖拽（3d世界里面如何拖拽物体，拖拽的原理，mousemove mouseon等的事件效果）13-世界坐标以及组的问题（什么是相对坐标，什么是世界坐标，什么是当前坐标，怎么转化父子坐标系，组的优化，为什么用组，组的优势）14-指定对象旋转中心（什么是物体的几何体中心，如何改变中心，如何绕轴转动）15-层级对象渲染（多个场景一键切换，切换的优势，针对大项目的用法）16-拓展了解系列（不定期不断更新案例，各种酷炫效果bloom,halo等，以及各种3d图表，粒子案例等,不断构建你的3d实践能力）
【JavaScript 教程】事件——鼠标事件
作者 | 阮一峰 鼠标事件的种类 鼠标事件指与鼠标相关的事件，继承了MouseEvent接口。具体的事件主要有以下一些。 click：按下鼠标（通常是按下主按钮）时触发。 dblclick：在同一个元素上双击鼠标时触发。 mousedown：按下鼠标键时触发。 mouseup：释放按下的鼠标键时触发。 mousemove：当鼠标在一个节点内部移动时触发。当鼠标持续移动时，该事件会连续触发。为了避免性能问题，建议对该事件的监听函数做一些限定，比如限定一段时
javascript学习之鼠标事件
WheelEvent 接口继承了 MouseEvent 实例，代表鼠标滚轮事件的实例对象。目前，鼠标滚轮相关的事件只有一个wheel事件，用户滚动鼠标的滚轮，就生成这个事件的实例。浏览器原生提供构造函数，用来生成WheelEvent实例。构造函数可以接受两个参数，第一个是字符串，表示事件类型，对于滚轮事件来说，这个值目前只能是wheel。第二个参数是事件的配置对象。该对象的属性除了EventUIEvent的配置属性以外，还可以接受以下几个属性，所有属性都是可选的。deltaX。
VB

16,554

社区成员

110,527

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章