command bar FindControl keeps returning the same

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   I got this working in the end, incase anyone ever needs it

vb6 

CJMenuPopUp = name of my CommandBars object
ID_REPORTS_CLIENTS = a long (name happened to match the button ID, its a long which equals the ID in the button xml > designed > export xml)

Public Sub FillReportsListBox()

Dim cbcTemp As CommandBarControl

Set cbcTemp = frmMain.CJMenuPopUp.FindControl(xtpControlPopup, ID_REPORTS_CLIENTS, True, True)

Dim intx As Integer
    intx = 1

While (intx < cbcTemp.CommandBar.Controls.Count)
  
   Debug.Print cbcTemp.CommandBar.Controls(intx).Caption
   intx = intx + 1

Wend

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
paulhaggo Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 21 June 2018 Status: Offline Points: 19	Post Options Post Reply Quote paulhaggo Report Post Thanks(0) Quote Reply Topic: command bar FindControl keeps returning the same Posted: 05 December 2018 at 5:10am
	I got this working in the end, incase anyone ever needs it vb6 CJMenuPopUp = name of my CommandBars object ID_REPORTS_CLIENTS = a long (name happened to match the button ID, its a long which equals the ID in the button xml > designed > export xml) Public Sub FillReportsListBox() Dim cbcTemp As CommandBarControl Set cbcTemp = frmMain.CJMenuPopUp.FindControl(xtpControlPopup, ID_REPORTS_CLIENTS, True, True) Dim intx As Integer intx = 1 While (intx < cbcTemp.CommandBar.Controls.Count) Debug.Print cbcTemp.CommandBar.Controls(intx).Caption intx = intx + 1 Wend

paulhaggo Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 21 June 2018 Status: Offline Points: 19	Post Options Post Reply Quote paulhaggo Report Post Thanks(0) Quote Reply Posted: 03 December 2018 at 5:04am
	Hello I am trying to loop the menu to find captions of sub menu items I did email support 4 days ago, no answer Yet again, the extra paid support is awful The basic idea here, is a function, which i supply a button id and it puts the child button captions in a listbox I know the code works because If i use it once, it works.. and if i close the exe and try a different button, it returns the new correct buttons values However, if I press around the buttons without restarting the exe, i always get the same data back So it appears to be caching, does anyone know how to clear the find function, the nothing vb method do not seem to work My code is below, thank you Public Sub FillReportsListBox(strParentButtonName As String) Dim cbcTemp As CommandBarControl Set cbcTemp = frmMain.CJMenuPopUp.FindControl(xtpControlButton, strParentButtonName, True, False) Debug.Print cbcTemp.ID lvwReports.ClearList Dim intx As Integer intx = 1 Dim lngItem As Long While (intx < cbcTemp.Controls.Count) lngItem = lvwReports.AddItem(cbcTemp.Controls(intx).Caption) intx = intx + 1 Wend Set cbcTemp = Nothing End Sub