CHAMANDO SUBROTINAS

USUARIO.EXCLUIDOS 18/07/2004 19:38:17
#34009
Prezados amigos,

Estou desenvolvendo um programa no qual há 22 subrotinas. Cada uma delas é identificada por um nome e um número ( de 01 à  22 ) :

Public Sub Arcano01()
código
end sub

Normalmente, eu chamaria qualquer uma destas subs assim:

Arcano01
ou
Call Arcano01

Mas, preciso chamar estas subs de acà'rdo com o resultado obtido em cálculos numéricos e armazenados na variável : NumResult
ou seja, preciso chamar a sub : ArcanoNumResult , e, não sei como fazer.


Obrigado por sua ajuda, e, parabéns aos responsáveis por este excelente site.

Eduardo
USUARIO.EXCLUIDOS 19/07/2004 15:58:35
#34059 Resposta escolhida
Use CallBy name

exemplo



Private Sub Command1_Click()
    Dim i  As Integer
    i = 3
    Call CallByName(Me, "Arcano" & Format(i, "00"), VbMethod)
End Sub
Public Sub Arcano01()
    MsgBox 1
End Sub
Public Sub Arcano02()
    MsgBox 2
End Sub
Public Sub Arcano03()
    MsgBox 3
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar