Invoke

DukereD

макрософил
Топикстартер
Сообщения
277
Реакции
68

DukereD

макрософил
Топикстартер
Сообщения
277
Реакции
68
Вот нашел

Код:
Private Sub Form_Load()
    Dim appCD
    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
 
  • Спасибо
Реакции: mnemonix и _MBK_

dastin

Некромант-любитель
12 лет на форуме
Сообщения
1 798
Реакции
1 667
А где-то можно узнать
Загружаем
c:\Program Files\Corel\CorelDRAW Graphics Suite 20**\Draw\UIConfig\DrawUI.xml
в текстовый редактор и внимательно рассматриваем, не забывая про комментарии типа
<itemData guid="3324df3f-e302-4946-8ba9-6b1511700818" component="DocInfoTool" type="button" enable="*And(*Bind(DataSource=DocInfoDataSource;Path=IsDocInfoEnabled),*Bind(DataSource=AppDS;Path=DocumentAvailable))" newForVersion="14"
также есть макрос Get_guID и аддон бразильского разлива DrawUIExplorer - облегчающие рассматривание
 
  • Спасибо
Реакции: eugeny