Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - [решено] перемещение объекта в VB

Ответить
Настройки темы
Разное - [решено] перемещение объекта в VB

Аватара для Michael Merezhkin

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать

Всем Доброго времени суток, знаю что тема по 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) точнее под самой первой открывающей скобой. Вот в прочем и моя беда, я понимаю что это тупо, но я не могу найти ответа, ни у себя в голове ни в нете.
Помогите может кто знает?

Отправлено: 22:33, 05-06-2011

 

Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать

Цитата 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

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)

Отправлено: 02:00, 06-06-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Michael Merezhkin

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Отправлено: 08:38, 06-06-2011 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - [решено] перемещение объекта в VB

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочее - Два объекта viv2009 Сетевые технологии 0 22-01-2010 13:41
Разное - О смене владельца объекта Quaker_75 Microsoft Windows 2000/XP 1 23-12-2009 09:53
PowerShell - [решено] Проврка объекта в AD uneform_alex Скриптовые языки администрирования Windows 3 04-09-2009 06:24
VBS/WHS/JS - Передача объекта в функцию ven00m Программирование и базы данных 3 17-07-2008 16:13
Delphi - Delphi создание объекта ferrum2688 Программирование и базы данных 3 28-02-2007 22:04


« Предыдущая тема | Следующая тема »


 
Переход