主题:各位高手,小弟关于这个问还是不太行
jiajun
[专家分:0] 发布于 2008-01-23 20:00:00
[url=http://www.programfan.com/club/post-250441.html]http://www.programfan.com/club/post-250441.html[/url]
回复列表 (共6个回复)
沙发
老大徒伤悲 [专家分:29120] 发布于 2008-01-23 20:20:00
原先有人回答了你。
成与不成,你应该把结果告诉大家。
板凳
jiajun [专家分:0] 发布于 2008-01-24 09:41:00
form1.picture_mousemove
vb报告没有方法或数据源
3 楼
老大徒伤悲 [专家分:29120] 发布于 2008-01-24 11:38:00
你的问题有毛病。但能实现。
先说实现。
form2里代码如下:
Public Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Print "高兴"
End Sub
form1里代码如下:
Private Sub Command1_Click()
Form2.Picture1_MouseMove 1, 1, 0, 0
End Sub
你的问题出在原来告诉你的答案,你没有仔细看。form2里,那个事件必须写成“公共(Public)”的,而不是“私有(Private)”的!
再说你的毛病。
在窗体1的事件里,调用窗体2的图片框里鼠标移动!你究竟要实现什么功能?窗体1和窗体2在这里究竟设施事件的引发者?
一般情况下,鼠标移动事件本身就是一个有鼠标移动来引发的。你为什么要用窗体1来引发?
如果真的有这种需要,你应当这样做:
1、将这段功能代码(上例中的Form1.Print "高兴")写成一格公共模块;
2、在窗体1里调用这个模块;
3、在窗体2的图片框1的鼠标移动事件里也调用这个模块。
4 楼
jiajun [专家分:0] 发布于 2008-01-24 14:17:00
谢谢
是这样的:
mousemove实现某一功能(仅对form2)有效
我希望在菜单(mdi主窗体)上加入快捷键
5 楼
老大徒伤悲 [专家分:29120] 发布于 2008-01-24 14:28:00
上面难道没有告诉你方法、原则、示例?
6 楼
jiajun [专家分:0] 发布于 2008-01-24 14:31:00
非常感谢
我来回复