Vb.net 制作一个对PictureBoxs做东西的函数？

我对在visual basic中生成函数非常陌生-无论如何，我正在尝试生成一个对picturebox进行多次更改的函数，但它给了我这个“未为参数'degree1'指定参数'degree1'的'Public function myFunction（ByVal degree1 As picturebox）As picturebox'”错误-任何可能的修复方法？

请尝试以下操作：

Function myFunction(ByVal degree1 As PictureBox) As PictureBox
    degree1.Visible = True
    degree1.Image = Image.FromFile("C:\Standard Pics\waiting3.gif")
    degree1.Location = New Point(locationx, locationy)
    degree1.Size = New Size(51, 51)
End Function                                                                                                    

---

请注意Sub（）签名中的

ByRef

部分-这意味着您直接在给定的

PictureBox

对象上操作。这被称为“通过引用传递参数”。你可以阅读更多关于它的内容。哦，我想您的

locationx

和

locationy

变量都设置在代码的某个地方了吧？

这是VisualBasic点网而不是VBA吗？是的，我的错

Sub mySub(ByRef degree1 As PictureBox)
    degree1.Visible = True
    degree1.Image = Image.FromFile("C:\Standard Pics\waiting3.gif")
    degree1.Location = New Point(locationx, locationy)
    degree1.Size = New Size(51, 51)
End Sub