加入VB6后String中的空格

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”，并且existsfunction返回false。

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

Answer 1

实际上，如果我没记错，那就是Str()功能。它会将空格作为符号的占位符。使用CStr()或直接将Index分配给funcStrA(1)，然后将其隐式转换为字符串。