SOLVED: Get text from xtpControlEdit in CommandBar

Hi all,
I'm new to the forum, and have been implementing/developing with the COM Suite 13.2.1 for a couple of months now.

My development tool for the past 18 years has been eDeveloper 9.4 by Magic Software. And recently we started using the Codejock COM Suite in our CRM product.

To learn the Codejock products, I installed VB6 and learned it from the Codejock samples, so that I could implement the Report Control into our software.
I got it working, but now am seeing the power of VB6 and Codejock combined and have started proto-typing certain parts of our software in VB6.

With that, I need all the help I can get, and have been searching on the forum quite a bit. Some thiing I have found answers for and some I have submitted to tech support.

But haven't found an answer to the following:
I need to capture the text value from an xtpControlEdit control that is loaded into a Commandbar.
For each key down, the CommandBarKeyDown event is 1 character behind in its handler.

Here's my VB6 code:

Private Sub CommandBars_CommandBarKeyDown(CommandBar As XtremeCommandBars.ICommandBar, KeyCode As Long, Shift As Integer)
    
    If KeyCode <> 0 Then
        Dim ControlEdit As CommandBarEdit
        Set ControlEdit = CommandBar.SelectedControl
        Debug.Print ControlEdit.Text
    End If
    
End Sub

Private Sub Form_Load()
    Dim bar As CommandBar
    
    Me.CommandBars.DeleteAll
    CommandBars.VisualTheme = xtpThemeOffice2003
    
    Set bar = Me.CommandBars.Add("Toolbar", xtpBarTop)
    bar.Controls.Add xtpControlButton, 1000, "Button 1"
    bar.Controls.Add xtpControlButton, 1001, "Button 2"
    bar.Controls.Add xtpControlEdit, 1002, "Search"
End Sub

I will be using the xtpControlEdit to filter a Report Control for each character typed by the user. Being 1 character behind in its value is not good, and would result with incorrect data.

Q: do I have the correct code, or is it that there is a change required?

Hi,

Hi,
I typed in the Control.Edit code and it didn't error at that time. But when I run the program and type into the commandbar edit control, it returns the error:
Run-time error '438':
Object doesn't support this property or method

I'm using Codejock Suite v13.2.1

I'll build a demo program that demonstrates this commandbar edit control and report control, and return with my findings.

Here's my handler code:
Private Sub ACommandBars_ControlNotify(ByVal Control As XtremeCommandBars.ICommandBarControl, ByVal Code As Long, ByVal NotifyData As Variant, Handled As Variant)
    Select Case Control.Id
        Case 4 'this is the edit control's id
            If Code = XTPControlNotify.XTP_EN_CHANGE Then
               Me.AReportControl.FilterText = Control.Edit
               Me.AReportControl.Populate
            End If
    End Select
End Sub

Findings:
VB6 continues to report the above error with the code "Control.Edit".

Anybody have a solution to this issue: as the user types each character into a CommandBars ControlEdit control, it filter the report control.

Hi SuperMario,
My bad. I guess I meant to type Control.Text.
I changed it and now it is working.