我在窗体代码中定义了
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a = 2: b = 3
c = muti(a, b)
Debug.Print Str$(c)
End Sub
和
Public Function muti(one As Integer, two As Integer)
third = one + two
End Function
怎么打印出的都是:0
如果把范围定义为private,是不是指示可以在自定义的其他函数里使用?如果定义为public,就可以在此窗体中使用?
在标准模块中定义的函数可以在窗体间使用,那怎么才可以使其在工程间使用函数呢?
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a = 2: b = 3
c = muti(a, b)
Debug.Print Str$(c)
End Sub
和
Public Function muti(one As Integer, two As Integer)
third = one + two
End Function
怎么打印出的都是:0
如果把范围定义为private,是不是指示可以在自定义的其他函数里使用?如果定义为public,就可以在此窗体中使用?
在标准模块中定义的函数可以在窗体间使用,那怎么才可以使其在工程间使用函数呢?
解决方案 »
- vb编的小程序
- 如何自定工具栏?
- vb6中xml的读取问题(快来抢分啦)^_^
- 那里有发短信的软件?怎么使用?
- 我想问一下 假如我忘了我的一个csdn的id的密码,而且又不记得当初是用0那个邮箱注册,能否把密码找回来?谢谢。
- 怎么样能使命令按钮每按一次都会在"显示"和"隐藏"之间变换!!!??.....求高手出山!!
- 小问题:调试错误,帮忙指出。(一个关于集合类的例子)
- filelistbox 可以过滤对象么?
- 如果服务器端是SQL server,请问应该如何编写服务器端程序呢?
- 如何知道Datagrid的记录数? 80分
- 菜鸟请教,一个菜问题----哪个语句比较好,简洁,与ACCESS相连
- 就没有高手能帮帮我啊!555我刚学啊!那位高手能近来帮帮我啊!
muti = one + two
End Functionprivate的函数之可以在本模块内使用
public 函数可以在整个工程利使用在工程之间使用函数,需要建立dll
Function muti(one As Integer, two As Integer)
third = one + two
muti=third '加入这行才能返回值,不用定义全局 public
End Function
在模块中定义的函数都能用。要有返回值。如果不返回值在调用函数时,用 call muti(a,b)
但在你的代码中一定要返回值。
Public Function muti(one As Integer, two As Integer) as integer
third = one + two
muti=third
End Function
Public Function muti(one As Integer, two As Integer)
third = one + two
muti=third
End Function