回 帖 发 新 帖 刷新版面

主题:各位高手,小弟关于这个问还是不太行

[url=http://www.programfan.com/club/post-250441.html]http://www.programfan.com/club/post-250441.html[/url]

回复列表 (共6个回复)

沙发

原先有人回答了你。
成与不成,你应该把结果告诉大家。

板凳

form1.picture_mousemove
vb报告没有方法或数据源

3 楼

你的问题有毛病。但能实现。
先说实现。

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 楼

谢谢
是这样的:
mousemove实现某一功能(仅对form2)有效
我希望在菜单(mdi主窗体)上加入快捷键

5 楼

上面难道没有告诉你方法、原则、示例?

6 楼

非常感谢

我来回复

您尚未登录,请登录后再回复。点此登录或注册