在CallbyName函数中将我作为参数传递给vb6有什么问题？

Question

我想传递sourceform，在其中我使用CallByName-函数。不知怎么的，我把它贴在下面的方式不管用。

Private Sub Command1_Click()
  'CallByName Form1, "TestFkt", VbMethod, Nothing, Command1   '<--- works
  CallByName Form1, "TestFkt", VbMethod, Me, Command1         '<--- Problem
End Sub

Public Function TestFkt(ParamArray myParams())
  Dim oForm As Object
  Set oForm = myParams(0)

  ' ...
End Function

vb6报告的错误是运行时错误450："Falsche Anzahl和Argumenten oder ungültige Zuweisung zu einer Eigenschaft“。我认为第一个原因不是问题，因为上面的评论行有效。似乎更多的是，问题与关键字me有关。

有什么想法吗？

Answer 1

它不是CallByName

TestFkt Form1, Me

也无效，因为使用Me时不能传递ParamArray。这是Me的一个特点，这是一个特殊的情况。

解决办法：

Dim fMe As VB.Form: Set fMe = Me
CallByName Form1, "TestFkt", VbMethod, fMe, Command1