Страница: 1 | 2 |
Вопрос: ПОЧЕМУ НЕ РАБОТАЕТ С ДРОБНЫМИ ЦИФРАМИ?
Добавлено: 04.11.04 16:19
Автор вопроса: Slavian | ICQ: 342202174
Ответы
Всего ответов: 18
Номер ответа: 16
Автор ответа:
Slavian
ICQ: 342202174
Вопросов: 2
Ответов: 14
Профиль | | #16
Добавлено: 06.11.04 14:57
Железо... Celeron 1800 (100x18) 256 DDR 266MHZ, Geforce4 mx440, мало?
вот КОД, скопируй и попробуй:
Dim x As Double
Private Sub Command1_Click()
Do
DoEvents
x = x + 0.1
Shape1.Move x
Loop
End Sub
Private Sub Form_Load()
Shape1.Left = 0
Shape1.Top = 2000
Me.WindowState = 2
End Sub
SHAPE1-рамка 10500 на 8500 почти, рамка чёрного цвета и все равно!!!!!
Номер ответа: 17
Автор ответа:
cresta
Вопросов: 117
Ответов: 1538
Профиль | | #17
Добавлено: 06.11.04 17:14
Код я пробовал, более того, в shape как в контейнер, вставил два пикчербокса с картинками, чтобы труднее было перерисовывать, ну не мерцает и всё тут У меня Athlon 2400+, 128 Мб, Radeon 7500.
Если у тебя рамка используется как контейнер, может в нём куча контролов, на их перерисовку тоже может тратиться время ? Это предположительно.
Или может вместо рамки попробовать другой контрол, который может выполнять роль контейнера, например, тот же пикчербокс?
Номер ответа: 18
Автор ответа:
Slavian
ICQ: 342202174
Вопросов: 2
Ответов: 14
Профиль | | #18
Добавлено: 06.11.04 19:48
у тебя VB6? ну я думаю да, у меня тоже...
НЕТ! СПЕЦИАЛЬНО СДЕЛАЛ ЧИСТЫЙ КОД!!! вот с этой фигней, попробую с пикчебоксом и имаджем, но не думамю что это поможет....