Сообщество Чайников

Вопрос

Как скопировать текст, находящийся вне формы?

Ответ

Данная функция получает содержимое любого дочернего окна:

Function fncCaptureText(lIndex As Integer)
'lIndex — индекс дочерней формы
Dim rc As Integer
Dim wm As Integer
Dim lm As String
   wm = 1024
   lm = Space(1024)
 rc = SendMessage(Child(lIndex).hchild, &HD, wm, lm)
   If rc <> 0 Then lm = Left(lm, rc)
   msgbox lm
End Function

Ревягин Алексей