vb中的private public

Private sub 定义的是模块级的函数或过程,只能在本模块中调用
Public sub 定义的是全局函数或过程,可以在任何模块中调用
保存时一个模块就是一个文件
例如 窗体 form1 的文件 form1.frm 中有
Private Sub fun1(a As Integer)
a = a + 1
End Sub
Public Sub fun2(a As Integer)
a = a - 1
End Sub
模块 module1.bas 中有
Private Sub fun3(a As Integer)
a = a * 2
End Sub
Public Sub fun4(a As Integer)
a = a / 2
End Sub
在窗体 form1 中就可以调用 fun1,fun2,fun4,而不能调用 fun3
在模块 module1.bas 中就可以调用 fun2,fun3,fun4,而不能调用 fun1