kalle en funksjon fra tekst boks

[Jonas]

Hallo

 

Har kommet til "kjør" delen i shellet og funnet ut at å skrive inn alle funksjonene selv, vil ta litt lang tid. Så hvis brukeren kunne kalle en funksjon som skrives i tekstboksen, hadde jeg spart mye tid. Går det ann? Tenkte noe som dette:

Call Text1.Text

 

Jonas

[aadnk]

Hvis funksjonene ligger i en COM+ modul, altså class module og form, kan du bruke CallByName. Denne kan kalle alle funksjonene i et objekt, og brukes omtrentlig slik:

 

Public Sub txtText_Change()

MsgBox "Hallo verden!"

End Sub

Private Sub cmdCall_Click()

Dim Args As Variant

CallByName Me, "txtText_Change", VbMethod

End Sub

 

Som du ser må prosedyren som skal kalles være Public, så hvis brukeren skal kunne nå hendelser må disse endres til dette. Du kan kalle egenskaper til objektet med VbGet og VbLet. Dette gjøres slik:

 

CallByName Me, "Caption", VbLet, "Test"
MsgBox CallByName(Me, "Caption", VbGet)

 

Jeg håper dette gjør det enklere for deg.

[Jonas]

Det gjorde det en del lettere ja