模块是不能调用的,类模块里面的函数或过程可以调用,必须用PUBLIC声明
函数调用的时候看是不是要返回值,以及是否有参数
比如某个函数没有参数AA,可以直呼其名字AA
有参数BB的时候可以这样:AA BB,注意函数名字后有且只有一个空格
也可以cc=AA(BB),这样返回值就是CC
或CALL AA(BB)
说的不少了,又没金币
函数调用如下例:
函数:
Public Function DATALOADER(ByVal sql, ByVal lenth, strtmp() As Variant) As Integer
Dim rs_hx As New adodb.Recordset
Dim m, rnumber
With rs_hx
.Open sql, cn1, adOpenStatic, adLockOptimistic
m = 0
Do While Not .EOF
m = m + 1
For i = 0 To lenth
strtmp(m, i + 1) = .Fields(i)
Next i
.MoveNext
Loop
End With
Set rs_hx = Nothing
DATALOADER = m
End Function
调用:
Private Sub Form_Load()
Dim txtsql As String
Dim tmp as Integer
txtsql = "select * FROM TEMPERATURE "
tmp = DATALOADER(txtsql, 10, strtmp2())
End Sub