Does anyone use CodeJock activeX

[diddi]

greets all. i am trying to use a third party .ocx on a form and when i reference it in a Class module it errors because i dont know what to put in front of "PushButton"

normal version...

Public WithEvents allButtons As MSForms.CommandButton

all good.

new version...

Public WithEvents allButtons As PushButton

 

[Norie]

Have you searched the Object Browser for PushButton to see what library it belongs to?

 

[diddi]

thx Norie, heres the code now. no error, but class not invoked on pushbutton_click

Sub MyForm()
    Dim myButtons() As New Class1
    With Me
        ReDim myButtons(0 To .Controls.Count - 1)
        For i = 0 To .Controls.Count - 1
            If Left(.Controls(i).Name, 10) = "PushButton" Then
                Set myButtons(i).allButtons = Me.Controls(i)
            End If
        Next i
    End With



class module:   class1....

Public WithEvents allButtons As XtremeSuiteControls.PushButton

Private Sub allButtons_Click()
    MsgBox (Val(Mid$(allButtons.Name, 11)))
End Sub

 

[diddi]

Re: Does anyone use CodeJock activeX -Solved

got it! wrong scope for variable. for interested parties: should work with any thrd party .ocx

thx Norie. I will use the object browser next time

Dim myButtons() As New Class1

Sub MyForm()
    With Me
        ReDim myButtons(0 To .Controls.Count - 1)
        For i = 0 To .Controls.Count - 1
            If Left(.Controls(i).Name, 10) = "PushButton" Then
                Set myButtons(i).allButtons = Me.Controls(i)
            End If
        Next i
    End With

My class module: class1....

Public WithEvents allButtons As XtremeSuiteControls.PushButton

Private Sub allButtons_Click()
    MsgBox (Val(Mid$(allButtons.Name, 11)))
End Sub

 

[Norie]

Re: Does anyone use CodeJock activeX -Solved

diddi

Glad you got the answer.

Where did you find this 'PushButton' control? I searched the CodeJock site and couldn't find it.