[b]Движение рисунка - хаотично[/b]

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Замир
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 30.03.2004 (Вт) 15:05

[b]Движение рисунка - хаотично[/b]

Сообщение Замир » 30.03.2004 (Вт) 16:43

Скажите пожалуста
Как заставить рисунок двигатся хаотично, и что бы он останавливал движение при шелькание мышки по нему.
И как менять скорость передвижения рисунка????

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2056
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 30.03.2004 (Вт) 18:21

Отец, ты бы уточнил - какой рисунок и где двигать. Если это объект со свойствами left и top и двигаешь ты его по форме, то эт одно

Private Sub Timer1_Timer()
count=count+1

If count>10 then
Int( Rnd * 8 ) - 4
count=0
end if

obj.left=obj.left + RNDX
obj.top=obj.top + RNDY
End Sub

Но если у тебя там ещё какая запарка - по типу вывода графики через DX или BitBlt, то там уже сложнее :wink: :) Короч - пиши. Отвечу. :)

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.03.2004 (Вт) 20:30

А чтобы он останавливался - так надо добавить переменную
Код: Выделить всё
Dim Flag As Boolean

и добавить это:
Код: Выделить всё
Sub Obj_Click()
Flag = True
End Sub

где Obj - имя объекта.
Получится следующее:

Код: Выделить всё
Dim Flag As Boolean

Private Sub Form_Load()
Timer1.Interval = 1
Flag = False
End Sub

Private Sub Timer1_Timer()
If Flag = True Then Timer1.Enabled = False
count& = count + 1
If count > 10 then
RNDX& = Int(Rnd * 8) - 4
RNDY& = Int(Rnd * 8) - 4
count = 0
End If
Obj.Left=Obj.Left + RNDX
Obj.Top=Obj.Top + RNDY
DoEvents
End Sub

Sub Obj_Click()
Flag = True
End Sub
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList  
cron