| Вопрос: Помогите!! Дуга жжет!!! | Добавлено: 11.01.08 14:32 |
Автор вопроса:  Папоторник
|
|
Помочь очень прошу! Часть квалифы это есть...
Есть дуга: Form1.Circle (0, 0), 70, , 1, 0.72
Как осуществить ее вращение вокруг точки (0,0) с сохранением величины прорези? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 11.01.08 14:56 |
|
Dim i As Single
Private Sub Form_Load() Me.AutoRedraw = True Timer1.Interval = 100 Me.ScaleMode = 3 End Sub Private Sub Timer1_Timer() Me.Cls i = i + 0.01 Form1.Circle (90, 90), 70, , 1 + i, 0.72 + i End Sub |
||
|
Номер ответа: 2 Автор ответа: Папоторник Вопросов: 6 Ответов: 22 |
Профиль | | #2 | Добавлено: 11.01.08 15:33 |
| Спасибо!!!!!!!!!!! | ||
Страница: 1 |