Kako da upotrebim string da pozovem Sub [VB2005]

[ bobby63 @ 01.12.2006. 12:36 ] @

Imam vise Sub-ova koji se zovu:
crtaj1
crtaj2
crtaj3
... itd
sad u odredjenom trenutku na osnovu brojaca n treba da pozovem odredjeni Sub
Naziv dobijam sa

Code:
crtajStr = ("crtaj" + CStr(n))

kako sad ovaj string da upotrbim da pozovem odgovarajucu subrutinu?

Pozdrav svima i unapred hvala

[ electroNik @ 02.12.2006. 15:30 ] @

Prosto sa SELECT CASE.

Code:
SELECT CASE n
CASE 1
crtaj1()
CASE 2
crtaj2()
...
END SELECT

Mada nisam siguran da si optimalno napisao kod. Trebalo bi da sve te crtaj procedure staviš u jednu, i da je ovako definišeš:

Code:
Public Sub crtaj(ByVal n as Integer)
...
End Sub

i onda da isto uradiš ono sa SELECT CASE što sam gore napisao. Onda će ti biti lako da uz pomoć brojača pozivaš crtaj f-ju.

[ bobby63 @ 02.12.2006. 23:55 ] @

U medjuvremenu sam uz pomoc case i resio problem, mada mi je to resenje malo rogobatno jer sam dobio relativno dugu listu.
Rutine za crtanje su svaka poseban sub a samo case listu sam takodje stavio u odvojeni sub koji se poziva kada su uslovi zadovoljeni da se ta grafika iscrta.
U svakom slucaju hvala puno.