Callbyname i ein form med sub rutinen "test"?

[Richard87]

Hvordan kan jeg bruke CallByName i form1 under command1 som kaller opp "Test"

Private Sub Command1_Click()
  CallByName App, "Test", VbMethod, "lol"
End Sub

Private Sub Test(ByVal sData As String)
MsgBox sData
End Sub

hva skal jeg bytte ut "App" med for og få dette til og virke?

[aadnk]

Jeg antar du må skrive det på denne måten:

 

Private Sub Command1_Click()

   ' Bare COM+ objekter kan brukes. Moduler og prosjekter er derfor utelukket.
   ' Man kan også skrive Form1 istedenfor Me
   CallByName Me, "Test", VbMethod, "lol"
 
End Sub

' "Test" MÅ være definert som "public"
Public Sub Test(ByVal sData As String)

   MsgBox sData
   
End Sub

[Richard87]

thx