[RESOLVED] passing objects on a sub-procedure

[leinkyle]

hi guys, I am making this program where I need to pass the name of the control( or the control) to a sub-procedure, the sub procedure is made inside the another form and I am using it to set the visibility etc. on the second form ( i.e. I pressed this command1(0), on the click event i will set first the visible and locked control on the second form before showing the second form)

I am using an active x control arrayed command button, but I'm having a problem doing this. This is the code and the error says

Public Sub ControlSet(objCtrl As Object, strButton As String, intIndex As Integer)
objControl = objCtrl  'object variable or  with blocked variable not set (error says)
intControlIndex = intIndex

and this is the command button where the object,the string, and the index value of the arrayed command button

Private Sub cmdFields_Click(Index As Integer)
frmAddItems.ControlSet Me.cmdFields, "cmdFields", Index
frmAddItems.Show vbModal
End Sub

I have seen a statement that passes an object/control on a sub procedure , but I am not sure how to do it in a arrayed active x ( or maybe I am just confused)

can someone give me a hand on this?..
thanks..


kyle

[jcis]

Set objControl = objCtrl

[RhinoBull]

Or you can type to Control (if you only passing controls to that procedure)

Private Sub Command1_Click(Index As Integer)
    Test Command1(Index)
End Sub

Public Sub Test(ctl As Control)
    Debug.Print ctl.Name
    On Local Error Resume Next
    Debug.Print ctl.Index
End Sub

[leinkyle]

arrgh, I forgot about that set stuff.. thanks a lot jcis

[leinkyle]

Or you can type to Control (if you only passing controls to that procedure)

Private Sub Command1_Click(Index As Integer)
    Test Command1(Index)
End Sub

Public Sub Test(ctl As Control)
    Debug.Print ctl.Name
    On Local Error Resume Next
    Debug.Print ctl.Index
End Sub

btw, what's the difference between an Object and a Control data type?

[RhinoBull]

Object is "generic" data type and Control is more specific.
You can pass say recordset or Word/Excel object (or control for that matter) variables to a Object type argument but you can only pass actual control (button, textbox, etc) to a Control type.

[leinkyle]

I see, now I know why did you pass the control to the sub procedure together with its index value.
thanks for the info rhino..