Как используя BitBlt сделать скриншот отдельного окна

[Vova_2581]

Собственно вопрос в заголовке...
Использую код вида...

Код: Выделить всё

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
   Me.Show
   Dim A1 As Long
   Dim hHost As Long
   hHost = FindWindow("TfrmClock", vbNullString)
   A1 = GetDC(hHost)
   Picture1.AutoRedraw = True
   BitBlt Picture1.hDC, 0, 0, Screen.Width, Screen.Height, A1, 0, 0, SRCCOPY
End Sub

Но почему-то все время получаю скриншот текущего экрана. В чем тут моя ошибка? Подскажите, если не трудно.

[Debugger]

Во-первых:

Код: Выделить всё

Screen.Width, Screen.Height

Тебя это не смущает? это наверняка больше, чем размер формы.

Во-вторых: посмотри внимательно, что возвращает твой FindWindow. Он ищет окна с именем класса "TfrmClick" среди окон верхнего уровня, не просматривая детишек. Убедись, что имя класса формы у тебя правильно введено. Почему-то у меня насчет этого сомнения.
Открой "Блокнот" и замени

FindWindow("TfrmClock", vbNullString)

на

Код: Выделить всё

FindWindow(vbNullString, "Безымянный - Блокнот")

Всё замечательно работает.

[Хакер]

Цирк. Я думал, речь идёт о том, чтобы сделать скриншот натурально определённой формы. Например треугольной формы или круглой.
А тут мы опять имеем типичную глупость. Есть вообще две разновидности этой глупости. Лёгкая: это когда экземпляры VB-шных форм называются не экземлярами VB-шных форм, а формами. Тяжёлая: когда любые окна в системе называют формами.


Во-вторых, для того, чтобы снимать скриншот всего окна, а не только его содержимого, надо получать хендл DC всей области окна (а не только клиентской). То есть использовать GetWindowDC.

И не забывать про ReleaseDC.

[Vova_2581]

Debugger
У этой формы (окна, экземпляра и т.д.) нет дочерних – это одна форма (окно, экземпляр). Ну вот найти блокнот у меня не получилось. Может покажешь свой код?

Хакер
Ты мне напомнил анекдот. Один гражданин спрашивает другого:
- Скажите который час?
Второй отвечает:
- Во-первых, что значит час? Правильно спрашивать: время?.. Во-вторых, что значит «который»?.. Правильно спрашивать «сколько»...
Не цепляйся к мелочам и не смеши меня, будь проще!

А насчет GetWindowDC – это уже по делу! спасибо за подсказку, поработаю...

[Debugger]

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
    Shell "notepad"
    Debug.Print FindWindow(vbNullString, "Безымянный - Блокнот")
End Sub

[Vova_2581]

Ха!!! Получилось!
Спасибо всем!
Debugger
Отдельная благодарность за подсказку насчет

Код: Выделить всё

Screen.Width, Screen.Height

- в них то все и дело!

[Хакер]

У этой формы (окна, экземпляра и т.д.) нет дочерних – это одна форма (окно, экземпляр).

Тест на сообразительность не пройден. Важна не слова, которые всего лишь оболочка, а понимание смысла. А понимания смысла как не было, так и нет.

[ger_kar]

Ну вообще понятие форма употребляется в разных смыслах. И в зависимости от контекста, смысл и так вполне бывает понятен. Конечно между формой как классом (шаблоном) и ее экземпляром как объектом этого класса разница есть. И если например речь бы шла о сути понятий, которые используются в технологии COM разница может быть бы и была. Но тут в принципе и так было понятно, что имелось ввиду. гораздо проще написать Форма, чем экземпляр формы, когда и без этого уточнения понятно что имелось ввиду. Как говориться пишем форма, а в уме экземпляр

[Хакер]

Здесь не имеется в виду ни форма, ни экземпляр формы. Так что как ни крути — неправильное понятие. К тому же всё усугубляется ещё и тем, что возникает неоднозначность: то ли имелась в виду форма или экземпляр формы, то ли геометрическая форма скриншота.

Ни у кого не хватает дальновидности думать не только о том, как тему поймут при обсуждении, но и о том, каково потом будет другим людям через пару лет при поиске по ключевым словам.

[Qwertiy]

Я, кстати, тоже сначала подумал, что нужно сделать скриншот окна, имеющего непрямоугольную форму...

[Vova_2581]

Ладно, ладно... Ну, извините за неточную формулировку в теме. Что же мне теперь повеситься что-ли?! Тогда у меня просьба к модератору: измените название темы должным образом, и тогда снимем все дальнейшие споры.

[Qwertiy]

Тогда у меня просьба к модератору: измените название темы должным образом, и тогда снимем все дальнейшие споры.

Почему бы самому не изменить? Правильный вариант - "окна", если ещё не понял.