VPF::текстовое содержимое окон - Форум программистов

CompWorm

Дата 3.8.2005, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: нет
Всего: 31

данный код не работает для некоторых окон.
например для листбокса, особо важно - лейблов.
вообще он должен отображать в text1 текстовое содержимое окон при наведении на них курсора
----
вопрос: как оптимизировать его для ВСЕХ типов окон?
(ну для начала хотябы для лейблов)

Код


Option Explicit
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Const WM_GETTEXT = &HD

Private Sub Command2_Click()
    End
End Sub


Private Sub Timer1_Timer()
    Dim curpos As POINTAPI
    Dim WhWnd As Long
    Dim window_text As String
    
    Dim slength As Long
    Dim retval As Long

    
    
    GetCursorPos curpos
    WhWnd = WindowFromPoint(curpos.X, curpos.Y)
    
    window_text = String(65535, Chr$(0))
    retval = SendMessage(WhWnd, WM_GETTEXT, ByVal 65535, ByVal window_text)
    If retval > 0 Then Text1.Text = Left$(window_text, retval)

End Sub

Это сообщение отредактировал(а) CompWorm - 3.8.2005, 20:42

--------------------

>>> Indie Games Club! <<<

cardinal

Дата 3.8.2005, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Видать тебе сюда...
http://www.experts-exchange.com/Programmin...Q_21018080.html

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

CompWorm

Дата 4.8.2005, 03:57 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: нет
Всего: 31

Цитата

I'm running a vb application exe and need to get the caption of a Label in another vb application exe. Have no access to the second application. Any help greatly appreciated.

кто сказал что второй апликейшан - vb производства??? ну ладно. так может тоже сработает. просто я не совсем уверен, что то приложение написано на вб... smile

а в виде исходного проекта нет ли того кода, что описан в брифенге? просто там че-то ошибок многовато получается...
это мне надо для одного софта и честно говоря, я понятия не имею как там выводят нужный мне текст. собственно поэтому мне и нужен общий код для разных вариантов...

Это сообщение отредактировал(а) CompWorm - 4.8.2005, 04:02

--------------------

>>> Indie Games Club! <<<

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »