| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 778 人关注过本帖
标题:多个窗体调用 module 里的代码,一个问题
取消只看楼主 加入收藏
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
结帖率:96%
收藏
已结贴  问题点数:20 回复次数:4 
多个窗体调用 module 里的代码,一个问题
module里有
public sub
if a.text1.text=0 then
...

a窗体调用没问题,b窗体同样的,b窗体怎么调用?module里怎么写?
搜索更多相关主题的帖子: public 
2014-11-26 22:30
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
不太理解,各种参数我还不会灵活使用。
module里是:
Public Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 And InStr(1, aaaa.Text1.Text, ".") > 0 Then '这里把我难住了。。。。。
        KeyAscii = 0
    End If
End Sub

aaaa窗体Text1_KeyPress要用,bbbb窗体Text1_KeyPress也要用,怎么办?

再问下窗体里是这样写吗?参数啥的对吗?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call Module1.Text1_KeyPress(KeyAscii)
End Sub
2014-11-27 09:45
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
类、对象、属性、事件、方法

我就是在实践中边运用边理解
2014-11-27 10:49
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
a窗体,b窗体,c窗体都有:
程序代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 And InStr(1, Text1.Text, ".") > 0 Then
        KeyAscii = 0
    End If
End Sub


为了减少代码,放到Module里,怎么写?我不会格式,理论我知道。
2014-11-28 21:57
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
非常感谢这么详细的解答,原来不太会带参数,此回答将大大加深我对参数,传址,函数的理解。
2014-11-29 09:47
快速回复:多个窗体调用 module 里的代码,一个问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016526 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved