Создание функции, которая делает вещи для картинок?

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                          

Я очень новичок в создании функций в Visual Basic - в любом случае, я пытаюсь сделать функцию, которая вносит несколько изменений в окно с картинками, но это дает мне этот аргумент, не указанный для параметра «степень1» 'Public Function myFunction (ByVal degree1 As PictureBox) Как ошибка PictureBox - любые возможные исправления?

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 части в Sub() подпись - это означает, что вы непосредственно работающий над данными PictureBox объектом. Это называется «передача аргумента по ссылке». Вы можете узнать больше об этом here. О, и я предполагаю, что у вас есть свои locationx и locationy переменные, установленные где-то в вашем коде?