Forum Discussion

sastowe's avatar
sastowe
Super Contributor
15 years ago

third party controls

I am reading the <a href="http://smartbear.com/support/viewarticle/15056/#General">Addressing Toolbar Buttons" topic in help. It is not helping. I believe because the program I am testing uses a third party ActiveX Control called CodeJock Toolbars.



In screwing around with this, I made the following sub



Sub ClickStatusToolbarFilterButton



  set o = Sys.Process("Instrument Manager").VBObject("imMainForm").Window("MDIClient", "", 1).VBObject("frmStatus", 5000)

  if o.Exists Then



    set t = o.Window("XTPDockBar", "xtpBarTop", 1).Window("XTPToolBar", "Default Toolbar", 1)

    't.ClickItem(12)

    for i = 0 to t.wButtonCount - 1

      Log.t.Caption

    next

      

  end if

 

See the commented out ClickItem. I tried to click by caption and by index. Neither worked. So I tried to loop through to see what I could see. t.wButtonCount is reporting 0 buttons.



Does anyone have advice about how to determine how to get to these buttons for this third party control?



Thanks



S



 



End Sub