Hej!
Jag har 15 st indexade textrutor (1-15).
Jag vill kunna dubbelklicka på vem som helst av de 15 rutorna och då ska bakgrundsfärgen ändras till vbRed.
Detta är ju inte svårt, det är ju bara att göra en händelse-procedur med händelsen dblClick och ändra egenskapen på bakgrunden.
Problemet är att jag kommer att ha 105 textrutor på formuläret innan jag är klar, och jag vill INTE ha 105 händelseprocedurer.
finns det nåt sätt att slippa ha en dblClick-procedur för varje textruta?
skapa eget objekt kanske ?

Leif Nejman

Typ så här?

Private Sub TextBox_DblClick(Index As Integer)
    Set_BG_Color
End Sub

Public Sub Set_BG_Color()

    Dim i As Integer
    
    For i = 0 To TextBox.Count - 1
        TextBox(i).BackColor = vbRed
    Next i

End Sub

Tack!
men det funkar inte som jag vill.
När jag dubbelklickar på en av de indexade txtrutorna så blir alla utom en röda.
bara den jag klickar på ska bli röd.
mina textrutor har namn txtVisa och har index 1- 15
jag ändrade i for-loopen från start 0 till start 1 eftersom textrutorna börjar på 1

LN

Så här då kanske:
Den du klickar på blir röd och alla andra blir vita.

Private Sub TextBox_DblClick(Index As Integer)
   Set_BG_Color Index
End Sub

Public Sub Set_BG_Color(ByVal Index As Integer)

    Dim i As Integer
    
    For i = 0 To TextBox.Count - 1
        If Index = i Then
            TextBox(i).BackColor = vbRed
        Else
            TextBox(i).BackColor = vbWhite
        End If
    Next i

End Sub

Funkar !
Tack så mycket för hjälpen.
Leif Nejman