Forum Discussion
Here is the critical code:
'*************************************************************************************************************
' Actual Object Spy of the control down to the actual grid item in the listbox
'*************************************************************************************************************
'Aliases.UTSEnterprise1.HwndSource_ApplicationWindow.ApplicationWindow.LayoutRoot.zWorkspaceGrid.zAppDock
' .LayoutRoot.zAppDock.BankDeposit.Grid.zLayoutRoot.zScrollViewer.zPageForm.zStackAllExpanders
' .zexpF1_Step3_CreatePrepareBankDeposit.zgrdLayout_Step3_F1.zstkStep3_F1.zgrd_F1_B.zstkDepositBags
' .zmultiselectDepositbags.zLayoutGrid.zSourceListBox.WPFObject("ListBoxItem", "", 1)
' .WPFObject("Grid", "", 1).WPFObject("TextBlock", "Bag48474-1", 1)
'*************************************************************************************************************
Set scrollViewer = Aliases.UTSEnterprise1.HwndSource_ApplicationWindow.ApplicationWindow.LayoutRoot.zWorkspaceGrid.zAppDock.LayoutRoot.zAppDock.BankDeposit.Grid.zLayoutRoot.zScrollViewer
Set list = scrollViewer.zPageForm.zStackAllExpanders.zexpF1_Step3_CreatePrepareBankDeposit.zgrdLayout_Step3_F1.zstkStep3_F1.zgrd_F1_B.zstkDepositBags.zmultiselectDepositbags.zLayoutGrid.zSourceListBox
Set listItem = list.WPFObject("ListBoxItem", "", 1).WPFObject("Grid", "", 1)
' Obtain the list of items and current delimiter
'NOTE - Nothing I put in here seems to help... I've read the help file on FindAll over and over.
ItemString = listItem.FindAll("wndProps", "*", 5)
' Log the search results
If UBound(ItemString) >= 0 Then
For i = 0 To UBound(ItemString)
msg = MessageDlg("FullName: " & ItemString(i), mtConfirmation, msg, 0)
Next
End If
What do I need actually use in the FindAll statement to iterate through all the properties? Or is there a better/simpler way for getting the "Bag48474-1" Caption/Text?
wItems returns 0
The UBound(ItemString) returns -1
Related Content
Recent Discussions
- 3 hours agodhundley