Узнать текст ToolTip-a контрола в чужом приложении ? - VB
Формулировка задачи:
Чужое приложение (CorelDRAW), в нём есть до десятка контролов класса - "Edit", причем местоположение их совершенно разное у разных юзеров, workspace настраивается индивидуально, текст в них постоянно меняется в процессе работы с программой. Мне надо узнать hwnd одного из них, чтоб "вписывать" в него нужное мне число. Все hwnd нахожу (EnumChildWindow), "отфильтровываю" все класса "Edit", но не могу выделить нужный мне - не отличаются они ничем, не за что зацепиться. Но вот ToolTip-ы у них разные. Есть ли возможность получать текст ToolTip-а контрола при известном hwnd этого контрола?
Решение задачи: «Узнать текст ToolTip-a контрола в чужом приложении ?»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim appCD As CorelDRAW.Application
Dim cmdBar As VGCore.CommandBar
Dim ctlIdx As Long
Dim ctl As VGCore.Control
Set appCD = GetObject("", "CorelDraw.Application")
For Each cmdBar In appCD.CommandBars
If cmdBar.Name = "Transform" Then
For ctlIdx = 0 To cmdBar.Controls.Count - 1
Set ctl = cmdBar.Controls(ctlIdx + 1)
Debug.Print
Debug.Print "Caption: "; ctl.Caption
Debug.Print "DescriptionText: "; ctl.DescriptionText
Debug.Print "ID: "; ctl.ID
Debug.Print "Parameter: "; ctl.Parameter
Debug.Print "Tag: "; ctl.Tag
Debug.Print "ToolTipText: "; ctl.ToolTipText
Debug.Print "Visible: "; ctl.Visible
Debug.Print
Next
End If
Next
End Sub