A faster way to code?

[Dave]

Hi All:

I've found a new snag with my forms, one has 25 check boxes and 50 text boxes. The other will have that many if not more. Of course all of them are creativly named checkbox1, checkbox2,...textbox1, textbox2,....etc and so forth.

The $64 question is:

Is there a quick and easy way to write code for all these check and text boxes? Here is a sample of the code for checkbox1.

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

TextBox1.Visible = True

TextBox1.SetFocus

TextBox2.Visible = True

ElseIf check = False Then

TextBox1.Value = Clear

TextBox2.Value = Clear

TextBox1.Visible = False

TextBox2.Visible = False

End If

End Sub

Try typing all that in 25 times as fast as you can

The textboxes will be paired (tb 1 with tb2 and so forth) and will have their own code to copy values to a worksheet. (would like a quick way to code this too.)

Any one have any ideas, or am I stuck with a whole butt load of typing?

Thanks for helping

Dave

[Nimrod]

Wouldn't making object arrays make your work easier ?
An object array for text boxes , checkboxes etc.

[Dave]

Hi again Nimrod:

Unfortunatly, I have only the faintest idea of how to use arrays (every time I try reading about them my head slams into the desktop at a high rate of speed). would you mind giving me an example of how to use them for this?

Thanks for the help and the quick post

Dave

[Mark O'Brien]

It would be easier, were it not for the fact that object arrays are not native to VBA6.

You can simulate object arrays using class modules, but this is quite a pain to set up and your error trapping needs to be spot on. (or else any error can destroy your objects)

There may be an example of how to do this on this board.

_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-05-05 21:59 ]

[Colo]

You can simulate object arrays using class modules, but this is quite a pain to set up and your error trapping needs to be spot on. (or else any error can destroy your objects)

Hi Dave. Here is a sample I made for you.

Please try.

sorry I can not explain this in English.

'------Class1�@Class module------------------------------------------

Option Explicit

Public WithEvents cbEvent As MSForms.CheckBox

Private cbIndex As Integer



Private Sub cbEvent_Change()

    'cbIndex has Index of CheckBox

   If UserForm1.Controls("CheckBox" & cbIndex) Then

        UserForm1.Controls("TextBox" & cbIndex).Visible = True

        UserForm1.Controls("TextBox" & cbIndex).SetFocus

        UserForm1.Controls("TextBox" & cbIndex + 1).Visible = True

    Else

'    ElseIf check = False Then

        UserForm1.Controls("TextBox" & cbIndex).Text = ""

        UserForm1.Controls("TextBox" & cbIndex + 1).Text = ""

        UserForm1.Controls("TextBox" & cbIndex).Visible = False

        UserForm1.Controls("TextBox" & cbIndex + 1).Visible = False

    End If

End Sub

Public Property Get Index() As Integer

    Index = cbIndex

End Property

Public Property Let Index(ByVal intIndex As Integer)

    cbIndex = intIndex

End Property 



'--------------------------------------------------------------------



'------Standerd module-----------------------------------------------

Option Explicit

Option Base 1

Public mcls(25) As Class1

Public mCollect As Collection

'--------------------------------------------------------------------



'-------UserForm1�@Userform module-----------------------------------

Option Explicit

Option Base 1



Private Sub UserForm_Initialize()

Dim i As Integer

    Set mCollect = New Collection

    With mCollect

        For i = 1 To 25

            Set mcls(i) = New Class1

            .Add Me.Controls("CheckBox" & i)

            mcls(i).Index = i

            Set mcls(i).cbEvent = .Item(i)

        Next i

    End With

End Sub

'--------------------------------------------------------------------