Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] перемещение объекта в VB (http://forum.oszone.net/showthread.php?t=208319)

Michael Merezhkin 05-06-2011 22:33 1688965

перемещение объекта в VB
 
Всем Доброго времени суток, знаю что тема по VB покажется смешной а темболее тот вопрос по которому я вновь зашёл на форум,
Суть вопроса вот в чём заключается. Я пишу задания для зачёта по информатике, учусь на первом курсе на АсУ задания по программированию вроде как школьные, но голову есть над чем поломать,
вот напимер задача по перемещению объекта вверх, и в низ, в windows form вот фрагмент кода:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim goingup As Boolean
goingup = True
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim goingup As Boolean
goingup = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim GoingUP As Boolean
If GoingUP = True Then
If PictureBox1.Top > 10 Then
PictureBox1.Location = New Point(PictureBox1.Location.X - 10, PictureBox1.Location.Y - 10)
End If
Else
If PictureBox1.Top < (Me.Size.Height - 75) Then (PictureBox1.Location.x+10, PictureBox1.Location.Y + 10)


End If
End Sub
End Class
в самой последней строке алгоритма, среда выдаёт ошибку, "синаксическая ошибка" после Then и перед скобкой (PictureBox1.Location.x+10, PictureBox1.Location.Y + 10) точнее под самой первой открывающей скобой. Вот в прочем и моя беда, я понимаю что это тупо, но я не могу найти ответа, ни у себя в голове ни в нете.
Помогите может кто знает?

Delirium 06-06-2011 02:00 1689038

Цитата:

Цитата Michael Merezhkin
If PictureBox1.Top < (Me.Size.Height - 75) Then (PictureBox1.Location.x+10, PictureBox1.Location.Y + 10) »

А где результат то? Точнее, ЧТО должно произойти при попадании в IF ? У тебя написано
Код:

(PictureBox1.Location.x+10, PictureBox1.Location.Y + 10)
Это что? Увеличение координат на 10? Тогда где присваивание? Может вернее будет вот так?
Код:

If PictureBox1.Top < (Me.Size.Height - 75) Then
PictureBox1.Location.x = PictureBox1.Location.x +10
PictureBox1.Location.Y = PictureBox1.Location.Y + 10
EndIf


Michael Merezhkin 06-06-2011 08:38 1689115

Спасибо за помощь, да, я сам понял ошибку, просто не доходило, спасибо огромное)


Время: 23:08.

Время: 23:08.
© OSzone.net 2001-