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