Codejock Developer Community : SOLVED: Get text from xtpControlEdit in CommandBar

SOLVED: Get text from xtpControlEdit in CommandBar : Hi SuperMario, My bad. I guess...

Mon, 12 Apr 2010 16:59:08 +0000

Author: mstuart
Subject: 16557
Posted: 12 April 2010 at 4:59pm

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

SOLVED: Get text from xtpControlEdit in CommandBar : They said Control.Text not Control.Edit.Or...

Mon, 12 Apr 2010 16:53:26 +0000

Author: SuperMario
Subject: 16557
Posted: 12 April 2010 at 4:53pm

They said Control.Text not Control.Edit.

Or if you really want, just cast it??

            If Code = XTPControlNotify.XTP_EN_CHANGE Then
               Dim x As CommandBarEdit
               Set x = Control
               Debug.Print x.Text
            End If

SOLVED: Get text from xtpControlEdit in CommandBar : Hi, I typed in the Control.Edit...

Mon, 12 Apr 2010 11:35:40 +0000

Author: mstuart
Subject: 16557
Posted: 12 April 2010 at 11:35am

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.

SOLVED: Get text from xtpControlEdit in CommandBar : mstuart wrote:Hi all, I've...

Sun, 11 Apr 2010 01:58:01 +0000

Author: Aaron
Subject: 16557
Posted: 11 April 2010 at 1:58am

mstuart wrote:

Hi all,
I've placed into my VB6 application, the event handler you mentioned.
But there is no Control.Text for the Control object in the CommandBars_ControlNotify event.

I'm unable to get this working.
Can you help me on this please?

Hi,

I know it doesn't show but it's really there Just use the code I mentioned and it will work (at least with VB)

SOLVED: Get text from xtpControlEdit in CommandBar : I use SuitePro v13.3.1 Control.Text...

Sat, 10 Apr 2010 10:22:20 +0000

Author: gibra
Subject: 16557
Posted: 10 April 2010 at 10:22am

I use SuitePro v13.3.1

Control.Text property, really, doesn't appear using Intellisense, however it is there and work.

May be a BUG?

Dim ID_TOOLBAR_EDIT_SEARCH = 1002

Private Sub CommandBars_ControlNotify(ByVal Control As XtremeCommandBars.ICommandBarControl, ByVal Code As Long, ByVal NotifyData As Variant, Handled As Variant)
    If Control.Id = ID_TOOLBAR_EDIT_SEARCH Then
        Debug.Print ctrlEditSearch.Text
    End If
End Sub

SOLVED: Get text from xtpControlEdit in CommandBar : Hi all, I've placed into...

Wed, 07 Apr 2010 16:06:37 +0000

Author: mstuart
Subject: 16557
Posted: 07 April 2010 at 4:06pm

Hi all,
I've placed into my VB6 application, the event handler you mentioned.
But there is no Control.Text for the Control object in the CommandBars_ControlNotify event.

I'm unable to get this working.
Can you help me on this please?

SOLVED: Get text from xtpControlEdit in CommandBar : Hi, You can also use: Private...

Wed, 07 Apr 2010 12:39:10 +0000

Author: Aaron
Subject: 16557
Posted: 07 April 2010 at 12:39pm

Hi,

You can also use:

Private Sub CommandBars_ControlNotify(ByVal Control As XtremeCommandBars.ICommandBarControl, ByVal Code As Long, ByVal NotifyData As Variant, Handled As Variant)
    Select Case Control.Id
        Case ID_TOOLBAR_SEARCH 'the ID of the CommandbarControl
            If Code = XTPControlNotify.XTP_EN_CHANGE Then

                Me.wndReportControl.FilterText = Control.Text
                Me.wndReportControl.Populate
            End If
    End Select
End Sub

This event is fired everytime (in your case typing characters into CommandBarsEdit). The params are poorly documented so I had to findout myself. But it works and that what matters, right?

SOLVED: Get text from xtpControlEdit in CommandBar : bump - anybody have incite on...

Wed, 07 Apr 2010 11:25:43 +0000

Author: mstuart
Subject: 16557
Posted: 07 April 2010 at 11:25am

bump - anybody have incite on this issue?

SOLVED: Get text from xtpControlEdit in CommandBar : Hi all, I'm new to the forum,...

Tue, 06 Apr 2010 22:17:46 +0000

Author: mstuart
Subject: 16557
Posted: 06 April 2010 at 10:17pm

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?