Страница: 1 |
Народ, нужна помощь. Вот тут пишу свой ActiveX контрол и не знаю как лучше сделать его перерисовку. У меня сейчас в методе Paint чтото вроде UserControl.Cls но при исполнении заметно мерцание. Как его избавится в VB 6.0? В Delphi я перехватывал сообщение WM_Paint и в обработке было чтото вроде InvalidateRect... Можно ли организовать чтото похожее на VB?
Как? Вообще-то, чтобы использовать сабклассинг, лучше быть монстром в VB. Одна ошибка - и валится твоя программа вместе с VB без права переписки. А то и вся система. Нашел. Статья что надо. Спасибо. Допустим для текста. if uMsg=WM_PAINT then dim ps as PAINTSTRUCT hdc=BeginPaint(hWnd,ps) GetClientRect hWnd, rect DrawText hdc, OurText,-1, rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER EndPaint hWnd, ps end if Страница: 1 |
Вопрос: FormPaint
Добавлено: 26.09.03 12:29
Автор вопроса: lnu
BitBlt...
DrawText...
MoveTo...
LineTo...
BeginPaint
...
DrawText...
...
EndPaint
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #1
Добавлено: 26.09.03 12:43
Ну сообщение можно перехватить, используя сабклассинг...
Номер ответа: 2
Автор ответа:
lnu
Вопросов: 8
Ответов: 14
Профиль | | #2
Добавлено: 26.09.03 12:48
И что такое вообще сабклассинг? (В Visual Basic'е я новачок)
Номер ответа: 3
Автор ответа:
grayk
Вопросов: 5
Ответов: 100
Профиль | | #3
Добавлено: 26.09.03 13:11
А через AutoRedraw=True не пробовал?
Номер ответа: 4
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #4
Добавлено: 26.09.03 13:19
> И что такое вообще сабклассинг?
Пойитай статью Шатрыкина Ивана на этом сайте (она в пятёрке самых
популярных статей, не помню точно, как называется).
Номер ответа: 5
Автор ответа:
lnu
Вопросов: 8
Ответов: 14
Профиль | | #5
Добавлено: 26.09.03 13:35
Номер ответа: 6
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #6
Добавлено: 27.09.03 21:56
Номер ответа: 7
Автор ответа:
AASoft
Вопросов: 86
Ответов: 920
Профиль | | #7
Добавлено: 27.09.03 21:57
zadelaj bez uberi strochku s .Cls...