我想要動態的Call共約60的不同SUB(),但因為若用
If Then 或Selec Case..End Case會使程式太冗長‧
我想把Sub()的Name放在String之中,然後轉換為
Sub()的Name,例如:
Dim sName(1 to 60) as string
Dim SubName as string
sName(1)="showSub1"
SubName=sName(1) & "()"
Call SubName <===在這裡,請問高手們,
該如何將SubName"取值",以便呼叫showSub1()
----------------------------------
Private showSub1()
‧
‧
End Sub
If Then 或Selec Case..End Case會使程式太冗長‧
我想把Sub()的Name放在String之中,然後轉換為
Sub()的Name,例如:
Dim sName(1 to 60) as string
Dim SubName as string
sName(1)="showSub1"
SubName=sName(1) & "()"
Call SubName <===在這裡,請問高手們,
該如何將SubName"取值",以便呼叫showSub1()
----------------------------------
Private showSub1()
‧
‧
End Sub
全站熱搜
留言列表