Узнать текст 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д