自己建了个UserControl控件,由3个Label和1个Shape组成,添加了Click、MouseDown、MouseMove、MouseUp事件,代码如下:Public Event Click()
Public Event MouseDown()
Public Event MouseUp()
Public Event Mousemove()
然后在3个Label和UserControl的4个相应事件中用了 RaiseEvent 来生成这些事件。在使用过程中,作为控件数组,用Load方法将UserControl控件动态添加到Form中。因为Click事件与Drag事件的冲突,所以采用了以下的方法:
在 Load 控件时, 控件.DragMode = 0
在MouseDown事件中, 控件.DragMode = 1
在MouseUp事件中, 控件.DragMode = 0问题来了,运行时,
1、在控件上第一次按下鼠标左键,MouseDown事件成功触发,但此时无法拖动控件(DragMode = 1了,为什么不能拖动呢?)
2、不管拖动与否,放开鼠标左键,MouseUp事件始终没有触发;
3、控件可以拖动后,再在控件上按下鼠标左键,MouseDown事件不触发,但按鼠标右键却能触发。到底是哪里出了问题呢?请高手指教,谢谢先~~~
Public Event MouseDown()
Public Event MouseUp()
Public Event Mousemove()
然后在3个Label和UserControl的4个相应事件中用了 RaiseEvent 来生成这些事件。在使用过程中,作为控件数组,用Load方法将UserControl控件动态添加到Form中。因为Click事件与Drag事件的冲突,所以采用了以下的方法:
在 Load 控件时, 控件.DragMode = 0
在MouseDown事件中, 控件.DragMode = 1
在MouseUp事件中, 控件.DragMode = 0问题来了,运行时,
1、在控件上第一次按下鼠标左键,MouseDown事件成功触发,但此时无法拖动控件(DragMode = 1了,为什么不能拖动呢?)
2、不管拖动与否,放开鼠标左键,MouseUp事件始终没有触发;
3、控件可以拖动后,再在控件上按下鼠标左键,MouseDown事件不触发,但按鼠标右键却能触发。到底是哪里出了问题呢?请高手指教,谢谢先~~~
解决方案 »
- 在程序中如何删除IE中的cookies和历史记录什么的
- 如何向word.doc中插入圖片? 文件的模板該如何寫?
- printer对象如何设置上边距和下边距?请高手指点一二
- 如何在MDIForm调用MDICHILD=True的DLL窗体!???在线等!
- 本人是学完计算机不久.想求一良师一名.不知哪位大哥肯收.在此先行拜礼了 .
- 打印问题,急!!!!!!
- 关于将一个recordset复制给另一个recordset的问题
- 怎么用VB建立快结方式?
- 请问谁有用VB对.wav语音文件进行lpc分析的经验
- 如何实现在文本框中仅允许输入数值型数据,另外可用后退、中间插入,以及可用鼠标选中几个字符同时删除
- 请各位大侠帮帮忙!谢谢
- 我是一个VB新手请大家多多指教 我的QQ是423778396
在MouseDown事件中, 控件.Drag 1
在MouseUp事件中, 控件.Drag 2