|
Option Explicit Public Function Add(ByVal a As Long, ByVal b As Long) As Long Add = a + b '反回值A(chǔ)dd=a+b End Function 窗體代碼 Dim s As New Class1 Private Sub Command1_Click() MsgBox s.Add(10, 10) End Sub vb類(lèi)模塊調(diào)用方法,我該如何調(diào)用? ━━━━━━━━━━━━━━━━━━━━━━━━━ 如我在模塊中創(chuàng)建一個(gè)類(lèi)模塊class1,且內(nèi)有一個(gè)函數(shù). 下列完整代碼: 類(lèi)模塊: Option Explicit Public Function xx() Dim s As String s = "test" End Function 窗體: Private Sub Command1_Click() Dim ss As Class1 ss.xx '這樣調(diào)用出錯(cuò),我該如何調(diào)用? End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━ |
|
|
