製作一個功能，可以對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變量？