制作一个功能，可以对pict​​ureboxes做些什么？

Question

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                          

我很新的做视觉基础的函数 - 无论如何，我试图做一个功能，使一个picturebox的几个变化，但它给了我“这个参数没有指定参数'degree1'的'Public Function myFunction（ByVal degree1 As PictureBox）As PictureBox'“error - 任何可能的修复？

Answer 1

请尝试以下操作：

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 

注意ByRef部分子（）签名 - 这意味着你直接在给定的PictureBox对象操作。这被称为“通过引用传递参数”。你可以阅读更多关于它here。噢，我推测你的代码中的某处设置了locationx和locationy变量？