Question

VB 自定义函数参数为Picture1.Picture时的数据类型是什么！！

'Picture1Box的Picture1.Picture是什么数据类型
'因为我要
自定义函数（Picture1.Picture）
‘然后再
Public Function 自定义函数(DataIn as 这块不会写了)As String

c = DataIn.Point(i1, i2)

end function

Answer 1

如果你在自定义函数中是要

c = DataIn.Point(i1, i2)

那么这个DataIn就是个图片框控件，那么函数的声明语句就是：

Public Function 自定义函数(DataIn As PictureBox) As String

调用的时候应该是：

自定义函数(Picture1)

但是，如果你在函数体中需要这样的效果：

Picture2.Picture = DataIn

那么这个DataIn就应该是图片框控件的Picture属性！函数的声明就应该变为：

Public Function 自定义函数(DataIn As stdPicture) As String

调用方法则变为：

自定义函数(Picture1.Picture)

其实，如果函数的参数是个对象，而你又不知道这个对象的具体类型是什么，那么有个偷懒的方法，就是都声明为Object：

Public Function 自定义函数(DataIn As Object) As String

甚至乎啥类型也不用，让VB去自动转换也可以！

Public Function 自定义函数(DataIn) As String

Answer 2

Sub test(a As Picture)

End Sub

追问

不好使！
Private Function 自定义函数(DataIn As Picture) As Picture

Picture2.Picture = DataIn

End Function

追答

Private Function 自定义函数(DataIn As Picture) As Picture
    
    Picture2.Picture = DataIn
    
End Function

Private Sub Form_Load()
自定义函数 Picture1.Picture
End Sub

很好使~