Узнать текст ToolTip-a контрола в чужом приложении ? - VB

Узнай цену своей работы

Формулировка задачи:

Чужое приложение (CorelDRAW), в нём есть до десятка контролов класса - "Edit", причем местоположение их совершенно разное у разных юзеров, workspace настраивается индивидуально, текст в них постоянно меняется в процессе работы с программой. Мне надо узнать hwnd одного из них, чтоб "вписывать" в него нужное мне число. Все hwnd нахожу (EnumChildWindow), "отфильтровываю" все класса "Edit", но не могу выделить нужный мне - не отличаются они ничем, не за что зацепиться. Но вот ToolTip-ы у них разные. Есть ли возможность получать текст ToolTip-а контрола при известном hwnd этого контрола?

Решение задачи: «Узнать текст ToolTip-a контрола в чужом приложении ?»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Dim appCD   As CorelDRAW.Application
  5.     Dim cmdBar  As VGCore.CommandBar
  6.     Dim ctlIdx  As Long
  7.     Dim ctl     As VGCore.Control
  8.  
  9.     Set appCD = GetObject("", "CorelDraw.Application")
  10.    
  11.     For Each cmdBar In appCD.CommandBars
  12.        
  13.         If cmdBar.Name = "Transform" Then
  14.        
  15.             For ctlIdx = 0 To cmdBar.Controls.Count - 1
  16.                
  17.                 Set ctl = cmdBar.Controls(ctlIdx + 1)
  18.                
  19.                 Debug.Print
  20.                 Debug.Print "Caption: "; ctl.Caption
  21.                 Debug.Print "DescriptionText: "; ctl.DescriptionText
  22.                 Debug.Print "ID: "; ctl.ID
  23.                 Debug.Print "Parameter: "; ctl.Parameter
  24.                 Debug.Print "Tag: "; ctl.Tag
  25.                 Debug.Print "ToolTipText: "; ctl.ToolTipText
  26.                 Debug.Print "Visible: "; ctl.Visible
  27.                 Debug.Print
  28.  
  29.             Next
  30.            
  31.         End If
  32.        
  33.     Next
  34.    
  35. End Sub

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


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

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

7   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы