join - 加入VB6后字符串中的空格

Question

Private Sub FKeyButton_Click(Index As Integer)

    Dim curChild As Form
    Set curChild = frmMain.ActiveForm

    Dim funcStr As String
    Dim funcStrA(3) As String
    funcStrA(0) = "F"
    funcStrA(1) = str(Index)
    funcStrA(2) = "_Click"

    funcStr = Join(funcStrA, "")

    If ExistsFunction(funcStr, curChild) Then
        CallByName curChild, funcStr, VbMethod
    End If

End Sub

结果应该是，当单击按钮时，调用实际 mdichild 中的函数。

例如，单击索引为“7”的按钮，字符串“funcStr”的值应为“F7_Click”。但值为“F 7_Click”，exist函数返回false。

我认为问题出在连接内，但我也尝试过修剪，但没有效果。

Answer 1

实际上，如果我没记错的话，就是Str()函数。它在前面添加一个空格作为标志的占位符。使用CStr()或直接分配Index给funcStrA(1)并让它隐式转换为字符串。