I have a dialogue with some buttons and boxes. Eight of the buttons
does basically the same thing, but to different objects, so I need to
write 8 macros for these, one for each button, since I can not call a
subroutine with parameters from a command button.
My solution right now is to let the buttons call each own subroutine,
for example the first button calls:
Sub MySub1
MySub(1)
End Sub
So all the subroutines call MySub, but with different parameters, and
of course MySub looks something like this:
Sub MySub(X As Integer)
Dim CtlName As String
Dim Ctl As Object
Ctl=Dlg.getControl("ComboBox" + LTrim(Str(X)))
' Well, then it's doing stuff with Ctl and so on…
End Sub
Of the easiest way would to assign the first button to MySub(1) and so
on, making 8 subroutines unnecessary, but no matter what I try it
doesn't seem like this is possible.
Another solution would be to let all the 8 buttons call this one and
only subroutine:
Sub MySub
Dim X As String
X=Blahblah ' The name of the last button that was pressed…
Select Case X
Case "CommandButton1"
'Do something
'And so on
End Select
End Sub
Hm… when thinking about it, this solution is maybe not that much
convenient after all…
Suggestions?
Johnny Rosenberg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
