event på array af combobokse ?

Private Sub Combo1_Change(Index As Integer)
  Select Case Index
        Case 0
        ' kode til index 0...
        Case 1
        ' kode til index 1...
        Case 2
        ' kode til index 2...
  End Select
End Sub

ellers kan du bruge IF index = 0 THEN osv..

Hej

>sjh  Kan man bare skrive 'index'?  Det tror jeg ikke, der skal nok stå
combo1(index).index    Og så skal det være på click-eventen.

/jørn

Ja joern, den kan du bruge hvis du fx. skal tjekke 10-15 bokse med samme egenskab..


Private Sub Text1_Change(Index As Integer)
  With Text1(Index)
      If Len(.Text) < 1 Or IsNumeric(.Text) = False Then
        MsgBox "Du skal skrive et tal i boksen"
        .SetFocus
      End If
  End With
End Sub

Hej.

>sjh Har prøvet, du har ret.

m.v.h. Jørn