Вопрос
Как скопировать текст, находящийся вне формы?
Ответ
Данная функция получает содержимое любого дочернего окна:
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
Ревягин Алексей
Copyright 2000-2004 Сообщество Чайников
Контактная информация