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의 함수가 호출되어야한다는 결과가 있어야합니다.결합 후 문자열의 공백 VB6
예를 들어 색인 '7'이있는 버튼을 클릭하면 문자열 'funcStr'의 값은 'F7_Click'이어야합니다. 그러나 값은 "F 7_Click"이며 exist 함수는 false를 반환합니다.
나는 문제가 조인 안에 있다고 생각하지만 트림하려고했지만 효과가 없다.
왜 'curChild'버튼에 컨트롤 배열을 사용하지 않습니까? – Deanna