为什么在 sub vb6 上传递参数时我检索错误？

Question

我写了这段代码：

Sub Insert_Pic_From_File2(PicPath As String, ByVal row As Integer, ByVal col As Integer)


Dim Pic As Picture, Sh As Shape, Rng As Range

Set Rng = Range.Cells(row, col)
Set Rng = Rng.MergeArea

With Rng
    Set Sh = ActiveSheet.Shapes.AddPicture(Filename:=PicPath, linkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
    Sh.LockAspectRatio = msoFalse
End With

Set Sh = Nothing
Set Rng = Nothing

End Sub

我从这一行调用它：

Insert_Pic_From_File2 ("D:\Area Open\ok.png", y, col_result)

y 和 col_result 都是整数。

当我按下进入程序时出现此错误（意大利语）

errore di compilazione: Previsto: =

我认为是英文的：

compilation error: needed: =

这是为什么？如果我删除参数 y 和 col_result 似乎没问题，但没有参数。

非常感谢。

Answer 1

参数不要用括号括起来！它们仅在您使用冗余 'Call' 语句或用于返回值的函数时使用。

Insert_Pic_From_File2 "D:\Area Open\ok.png", y, col_result

应该没问题

为什么在 sub vb6 上传递参数时我检索错误？

why when pass arguments on a sub vb6 i retrieve error?

vb6

arguments