Вопрос или проблема
Я кодирую проект на VB6. (Windows 10 64bit) Мне нужно нарисовать TimeCode на PictureBox, который находится в другом клиентском приложении. Я сохраняю буфер PictureBox на серверном приложении и рисую на нем Timecode. Затем мне нужно скопировать его на удаленный PictureBox с его hWnd. Я использую GetDC(), чтобы получить Hdc удаленного PictureBox. Затем я использую BitBlt(), чтобы скопировать изображение из буфера в удаленный PictureBox. Все работает хорошо.
Но когда я минимизирую и восстанавливаю окно клиентского приложения, TimeCode стирается. Подобная проблема наблюдается в сети, но я не смог найти решение. Если я напрямую передаю PictureBox.Hdc в BitBlt(), то проблем нет. Когда я передаю значение GetDC() в BitBlt(), возникает проблема.
Может кто-то помочь мне решить эту проблему?
Private Sub cmdDraw_Click()
Dim sTimeCode As String
sTimeCode = "00:00:12:23"
Dim picTimeCodeHdc As Long
With picTimeCode
.Cls
.AutoRedraw = True
.CurrentX = 5
.CurrentY = (.ScaleHeight - .TextHeight(sTimeCode)) / 2
.ForeColor = vbGreen
picTimeCode.Print sTimeCode
.Refresh
picTimeCodeHdc = GetDC(picTimeCodeTarget.hwnd)
BitBlt picTimeCodeHdc, 0, 0, .ScaleWidth, .ScaleHeight, .hdc, 0, 0, vbSrcCopy
End With
'МЫ ДОЛЖНЫ ВЫЗВАТЬ ReleaseDC, ЧТОБЫ ОЧИСТИТЬ ОБЪЕКТ GDI
ReleaseDC picTimeCodeTarget.hwnd, picTimeCodeHdc
End Sub
Ответ или решение
Чтобы решить проблему с исчезающим изображением на PictureBox после сворачивания и восстановления окна клиента, необходимо использовать метод, который обеспечивает перманентность графики, несмотря на изменения в состоянии окна.
Ваша текущая реализация использует метод GetDC() для получения контекста устройства целевого PictureBox и BitBlt() для копирования изображения с буфера. Однако метод GetDC() может иметь проблемы с временным состоянием контекста при сворачивании/восстановлении окна.
Рекомендуется использовать альтернативный подход: хранить изображение в памяти и графически выводить его при каждом обновлении окна вместо использования GetDC(). Ниже приведен обновленный код, который делает это, гарантируя, что изображение будет отображаться независимо от изменения состояния окна:
Private Sub cmdDraw_Click()
Dim sTimeCode As String
sTimeCode = "00:00:12:23"
Dim picTimeCodeHdc As Long
' Создание временного буфера для рисования
With picTimeCode
.Cls
.AutoRedraw = True
.CurrentX = 5
.CurrentY = (.ScaleHeight - .TextHeight(sTimeCode)) / 2
.ForeColor = vbGreen
picTimeCode.Print sTimeCode
' Обновляем изображение на буфере
.Refresh
' Теперь используем hdc буфера для копирования
picTimeCodeHdc = GetDC(picTimeCodeTarget.hwnd)
BitBlt picTimeCodeHdc, 0, 0, .ScaleWidth, .ScaleHeight, .hdc, 0, 0, vbSrcCopy
End With
' Освобождаем контекст устройства
ReleaseDC picTimeCodeTarget.hwnd, picTimeCodeHdc
' Рисуем изображение в PictureBox на основе его области
picTimeCodeTarget.Refresh
End SubОбъяснение изменений:
-
Использование AutoRedraw: Убедитесь, что свойство
AutoRedrawустановлено вTrue. Это позволяет возможности PictureBox сохранять свое содержимое в буфере, что предотвращает его терять при изменении состояния окна. -
Повторная отрисовка: После копирования изображения с помощью
BitBlt()вызовитеRefresh()на целевом PictureBox. Это гарантирует, что содержимое PictureBox будет обновлено и отображено на экране. -
Обработка событий Windows: Возможно, стоит добавить обработчик событий Windows формата WM_PAINT для перерисовки содержимого PictureBox при необходимости. Это поможет поддерживать графику в актуальном состоянии.
При выполнении этих изменений ваше изображение должно оставаться постоянным даже после сворачивания и восстановления окна клиента. Обязательно протестируйте это в вашей среде VB6, чтобы убедиться, что проблема решена.