Узнать текст 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы