function - 如何使用表单变量调用函数

Question

我有一个名为 ContactsForm 的表单，底部有一个按钮。一旦它被点击，它就会运行一个事件过程。

Public Function GET_MESGS(Message As String, Number As String) As String
    Dim Message As String
    Dim Number As String
....
End Function

Private Sub Command1_Click()
Call GET_MESGS
End Sub

但是一旦它点击它只会给我一个错误。显然我没有正确调用该函数。我想用表单中的值调用函数。

Answer 1

由于 sub 需要 2 个参数，因此您需要使用 2 个参数调用 GET_MESGS：

例如：

Sub Command1_Click()

  Call GET_MESGS("ABC","2345")

 End Sub

要使用表单中的值，请使用以下内容：

Call GET_MESGS(textbox1.Text, Label1.Text)