Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Помогите с объектом

Автор: Гость_Максим 12.1.2006, 16:49

В моей программе есть ситуация где надо перемещать Image. Вопрос: Как мне сделать, чтоб картинка при перетаскивании сталкиваясь с обектом останавливалась и дальше двиг не могла, т.е создать стенку для Image... С перетаскиванием я разобрался а вот со стенкой не могу

Простой пример: мяч летит и должен ударясь об стенку остановиться

Автор: Akina 12.1.2006, 17:12

Код


If (Ball.Left+Ball.Width) = RightWall.Left Then DeltaX = 0

Автор: Гость_Максим 12.1.2006, 18:04

Что-то не получается что значит DeltaX

Вот код которым я двигаю объеут

Код


    If KeyCode = vbKeyLeft Then Image1.Left = Image1.Left - 50
    If KeyCode = vbKeyRight Then Image1.Left = Image1.Left + 50
    If KeyCode = vbKeyUp Then Image1.Top = Image1.Top - 50
    If KeyCode = vbKeyDown Then Image1.Top = Image1.Top + 50

Автор: Exception 12.1.2006, 18:18

Ну вот сделай переменную moving и при false не делай движения. Странные вопросы задаешь...
Добавлено @ 18:19
А во-вторых, перепиши код с Select Case.

Автор: Akina 12.1.2006, 18:40

Цитата(Гость_Максим @ 12.1.2006, 19:04

)

что значит DeltaX

Код


'....
DeltaX = 50
'....
    If KeyCode = vbKeyLeft Then Image1.Left = Image1.Left - DeltaX 
    If KeyCode = vbKeyRight Then Image1.Left = Image1.Left + DeltaX 
'....
If (Image1.Left+Image1.Width) = RightWall.Left Then DeltaX = 0
'....