| Вопрос: LockWindowUpdate, UpdateWindow, Unlock... ? | Добавлено: 07.08.07 13:14 |
Автор вопроса:  VβÐUηìt | Web-сайт: смекаешь.рф
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #16 | Добавлено: 08.08.07 15:43 |
|
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SETREDRAW = &HB Private Sub Command1_Click() LockPicture End Sub Private Sub Command2_Click() UnlockPicture End Sub Private Sub LockPicture() SendMessage Picture1.hwnd, WM_SETREDRAW, 0, 0 End Sub Private Sub UnlockPicture() SendMessage Picture1.hwnd, WM_SETREDRAW, 1, 0 End Sub ? |
||
|
Номер ответа: 17 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #17 | Добавлено: 08.08.07 17:51 |
| Всем спасибо большое! Оказывается, если удалить Cls из перерисовки, то все будет нормально стираться и рисоваться заново, однако глюков не будет. Я не понимаю как это происходит, но это происходит, следовательно вопрос исчерпан! Еще раз всем спасибо! | ||