7490
社区成员
VB怎么控制Picture1_MouseMove事件的发生与不发生
在我单击command1时候，我要用到Picture1_MouseMove事件获得的X值和Y值，但是在我单击command2时候我不希望Picture1_MouseMove事件发生，该怎么设置呢？
我的意思是当我单击command2之后，即便鼠标不小心在Picture1中移动了，也不触发任何事件
呵呵，我不知道自己说清楚自己的意思了没？？
恳求高手相助，万分感谢^_^
我的意思是当我单击command2之后，即便鼠标不小心在Picture1中移动了，也不触发任何事件
呵呵，我不知道自己说清楚自己的意思了没？？
恳求高手相助，万分感谢^_^
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yarui0301 2008-03-26
谢谢
嗷嗷叫的老马 2008-03-26
[Quote=引用 1 楼 supergreenbean 的回复:]
设个标志就好
Private m_fFlag As Boolean
Private Sub Command1_Click()
m_fFlag = True
End Sub
Private Sub Command2_Click()
m_fFlag = False
End Sub
Private Sub Form_Load()
m_fFlag = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End…
[/Quote]
设个标志就好
Private m_fFlag As Boolean
Private Sub Command1_Click()
m_fFlag = True
End Sub
Private Sub Command2_Click()
m_fFlag = False
End Sub
Private Sub Form_Load()
m_fFlag = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End…
[/Quote]
supergreenbean 2008-03-25
设个标志就好
Private m_fFlag As Boolean
Private Sub Command1_Click()
m_fFlag = True
End Sub
Private Sub Command2_Click()
m_fFlag = False
End Sub
Private Sub Form_Load()
m_fFlag = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End Sub
Private m_fFlag As Boolean
Private Sub Command1_Click()
m_fFlag = True
End Sub
Private Sub Command2_Click()
m_fFlag = False
End Sub
Private Sub Form_Load()
m_fFlag = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End Sub
VB鼠标绘图代码 如果不是处在绘图状态则退出Private Sub Picture1_MouseMove过程，如果处在绘图状态则从起点到目前鼠标所在点绘制直线，然后将当前鼠标所在点作为新的起点，当释放鼠标按键时绘图结束。 运行环境：Windows/VB6
【VB】利用MouseMove事件轻松实现Image与Picture的切换 作品展越来越近了，我们的作品《文件管理专家》也已经成形了，正在努力完善中，也在期待着作品选拔~~~ 作品里有很多精华的东西，算是整个作品的亮点功能。...其次，在Image控件上面覆盖一层Picture控件；最...
VB Picture不能显示全部图片怎么办？ 1、在picture中再加入一个image,调整大小与picture一样，将image的stretch的属性设置为真. 这样图片在image的强制下，正好与picture一样大。 2、同样在picture中加入image，但把stretch设置为假。即原样图。移动...
VB.NET 教程_03_面向对象 VB.Net - 类与对象 定义类时，可以为数据类型定义蓝图。 这实际上并不定义任何数据，但它定义了类名的含义，即类的对象将包含什么以及可以对这样的对象执行什么操作。 对象是类的实例。 构成类的方法和变量...
VB6.0 ActiveX 控件开发详解 [第四章：事件的设计与引发] 第四章：事件的设计与引发 好的，本人已经很久没续写这篇文章了，应网友邀请，我现在继续。事件是一个对象的对外输出，客户通过事件得知控件对象当前的情况，于是，学习事件的设计与引发就变得很重要。 启动我们...
VB6/VBA中跟踪鼠标移出窗体控件事件(类模块成员函数指针CHooker类应用) 一、关于起因 ...VB中默认是没有鼠标移出事件响应的，而这个事件其实在项目开发中，实用性很强，很多时候需要在鼠标移出窗体或控件时做些事情；没有这个事件会感觉很费力； 今天我所说的实际案例就是，...
计算机二级考试模拟vb,最新计算机二级VB考试模拟题 考生们在备考计算机考试科目时，除了复习教材以外，还要结合试题加深对知识点的理解和巩固，接下来应届毕业生小编为大家精心准备了最新计算机二级VB考试模拟题，希望能够给大家带来帮助!1.窗体中有一个名称为...
vb编程 响应鼠标滚轮 使用VB6.0编程过程中可以使用自带的MouseDown、MouseMove等事件中的Button响应鼠标左右键，却不能响应鼠标滚轮事件。如果你需要处理鼠标滚轮事件，本资源正是你需要的。
VB6.0中的窗口控制技巧（3）
在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码：
...
VB编程资源大全（源码 其它1） 556,delay1.zip
源码设计中的延时功能(1KB)
557,type_1.zip
趣味打字2.1(233KB)
558,test1.zip
asp编写动态网页计数器(1KB)
559,hztosm.zip
汉字转声母完全源代码(90KB)
560,...
VB图片动态按钮控件 RaiseEvent MouseMove(Button, Shift, X, Y) If But = 1 Then Exit Sub If (X > 0 And X ) And (Y > 0 And Y ) Then Tim.Interval = 1 Call JiexuanPic(1) End If End Sub Private Sub UserControl_MouseUp(Button ...
VB的初步使用总结 VB的初步使用总结 1. 首先是对VB整个操作界面的了解，操作界面有标题栏、工具栏、菜单栏、工具箱、窗体、属性窗体等。我这儿先是比较重要一些的窗口。 ① 菜单栏 ② 工具栏 ③ 工具箱 ④ ...
二级计算机vb答案,计算机二级VB考试练习题及答案 计算机二级VB考试练习题及答案1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。以下程序：Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚...
取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) pColor = GetPixel(Picture1.hDC, X, Y) R = pColor And &HFF G = (pColor And 65280) / 256 B = (pColor ...
在VB.NET中实现拖放操作 在VB.NET中实现拖放操作 绪论 Windows用户一般分为两类：一类习惯用键盘操作，一类习惯用鼠标操作。程序员们在编程时一般会提供快捷键(在命令或字母中加下划线)或快捷方式(用CTRL加字母的组合)来...
203vb.com index.html,vb常用代码大全 5、添加以下代码到FORM1的PAINT 事件： Private Sub Form_Paint() TileWindow Me, Picture1 End Sub 6、保存工程项目 7、运行程序。当显示出窗体后，可以看到图片“平铺”到整个窗体。 注意：尽管这种方法显示能够...
vb代码片总结 总结的再多，比不上拉出来溜溜。 ——–20180505留 类似main函数的感觉 Private Sub Form_Load() End Sub 强制显式声明模块中的所有变量，变量必须预先声明之后才能使用 Option Explicit 定义变量...
