| Вопрос: Кликни и отпишись!:) | Добавлено: 16.01.08 21:56 |
Автор вопроса:  Папоторник
|
|
Видя "Папоротник" в столбце "автор", большенство юзеров, скорее всего, пропускают сообщение(... Надеюсь не тех кто не брезгует..
Вот как сделать так, чтоб по клику поочереди появлялись и начинали движение CIRCL'ы!!!, причем так чтобы все предыдущие продолжали движение и были видимы... Или это подрастковый маразм и нужно делать огромный массив шейпов, который нереально переклацать? Подскажите... |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 16.01.08 22:17 |
|
Видя "Папоротник" в столбце "автор"
Не вижу такого. Hint: перчитай свой ник ещё раз. |
||
|
Номер ответа: 2 Автор ответа:  Папоторник Вопросов: 6 Ответов: 22 |
Профиль | | #2 | Добавлено: 16.01.08 22:22 |
| Очепятка - видя "Папоторник" в столбце автор. Норм? | ||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 17.01.08 01:08 |
| Боюсь ошибиться, но мне кажется, что "огромный массив <название_контрола>" - это и есть ПОДРОСТКОВЫЙ МАРАЗМ | ||
|
Номер ответа: 4 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #4 | Добавлено: 17.01.08 01:16 |
| блин, рисуй ты по таймеру через АПИ свои кружочки... | ||
|
Номер ответа: 5 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #5 | Добавлено: 17.01.08 01:27 |
|
как движутся круги? вот накатал простенький примерчик в рамках того, как я понял условие
ScaleMode=3 AutoRedraw=True, Timer1 Option Explicit
Private Type tCircle X As Long Y As Long R As Long End Type Private tCir() As tCircle Dim i As Long Private Sub Form_Click() Dim ind As Integer ind = UUBound + 1 ReDim Preserve tCir(ind) tCir(ind).X = 100 tCir(ind).Y = 100 tCir(ind).R = Int(Rnd * 51 + 50) 'min=50 max=100 Circle (tCir(ind).X, tCir(ind).Y), tCir(ind).R End Sub Private Sub Form_Load() Call Randomize End Sub Private Sub Timer1_Timer() If UUBound <> -1 Then Call Cls For i = 0 To UUBound tCir(i).X = tCir(i).X + 1 tCir(i).Y = tCir(i).Y + Int(Rnd * 5 - 2) Circle (tCir(i).X, tCir(i).Y), tCir(i).R Next i End If End Sub Public Function UUBound() As Long On Error GoTo X: UUBound = UBound(tCir) Exit Function X: UUBound = -1 End Function |
||
|
Номер ответа: 6 Автор ответа: lexeiICQ: 464882716 Вопросов: 13 Ответов: 32 |
Профиль | | #6 | Добавлено: 17.01.08 20:36 |
|
Dim aX(1 To 100) As Integer
Dim nX(1 To 100) As Integer Dim Ya(1 To 100) As Double Dim i As Integer Dim ii As Integer Private Sub Form_Load() i = 0 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Timer1.Enabled = True i = i + 1 aX(i) = aX(i) + 5 nX(i) = X Ya(i) = Y Circle (nX(i) + aX(i), Ya(i)), 70 End Sub Private Sub Timer1_Timer() For ii = 1 To i Circle (nX(ii) + aX(ii), Ya(ii)), 70, Form1.BackColor aX(ii) = aX(ii) + 5 Circle (nX(ii) + aX(ii), Ya(ii)), 70 Next ii End Sub |
||
|
Номер ответа: 7 Автор ответа: ПапоторникВопросов: 6 Ответов: 22 |
Профиль | | #7 | Добавлено: 17.01.08 21:42 |
|
просто чудесно...(
* ушел учиться задавать вопросы |
||
|
Номер ответа: 8 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #8 | Добавлено: 17.01.08 23:45 |
| Ага, давай. Полезное дело | ||
|
Номер ответа: 9 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #9 | Добавлено: 18.01.08 17:08 |
|
Я сегодня был в городе и знал что ты задашь этот вопрос на форуме.
Мы с одногруппниками перед этим курнули травы. |
||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 20.01.08 06:55 |
| вышли мне эту трава почтой | ||
|
Номер ответа: 11 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #11 | Добавлено: 20.01.08 11:04 |
|
Кто из Краснодара есть? Пришлите, пожалуйста, пакистанского плана в конверте.
(из современных песен) |
||
Страница: 1 |