sastowe
14 years agoSuper Contributor
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
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