Diverse codes voor een TextBox groeperen in 1 code

[Scallebe]

Goede middag Specialisten

Ik heb 2 codes om de achtergrond- en tekstkleur te veranderen bij Enter en Exit

Enter :

Private Sub txtNaam_Enter()
    txtNaam.BackColor = &H404040
    txtNaam.ForeColor = &HFFFFFF
End Sub

Exit :

Private Sub txtNaam_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txtNaam.BackColor = &HFFFFFF
    txtNaam.ForeColor = &H0&
End Sub

Ik heb in mijn formulier 16 TextBoxen en 6 ComboBoxen.

Moet ik voor elke TextBox de code individueel instellen of kan dit gegroepeerd?

Indien gegroepeerd kan, hoe doe ik dat?

Bedankt


Groetjes


Pascal

 

[ExcelAmateur]

Ik denk dat als je de 2 codes in een aparte sub zet, de textboxen daar naar verwijzen, dat het wel lukt.
Misschien simpel gedacht?

 

[edmoor]

Zoiets?

Private Sub TextBox1_Enter()
    Call SetColor("ENTER")
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call SetColor("EXIT")
End Sub

Sub SetColor(FB As String)
    If FB = "ENTER" Then
        ActiveControl.BackColor = &H404040
        ActiveControl.ForeColor = &HFFFFFF
    Else
        ActiveControl.BackColor = &HFFFFFF
        ActiveControl.ForeColor = &H0&
    End If
End Sub

 

[Scallebe]

Edmoor,

Jouw code werkt. Mijn meegestuurde code ook. Daar zit hem niet zo het probleem.

Misschien heb ik mijn vraag verkeerd geformuleerd... Sorry daarvoor.

Mijn bedoeling is dat de 1e en de 2e code van toepassing zou moeten zijn voor alle TextBoxen en alle ComboBoxen in het formulier.

Nu zijn de codes geformuleerd voor 1 enkele TextBox. (of ComboBox)

Dus 1 code voor alle in te vullen "velden" bij enter en 1 code voor alle in te vullen "velden" bij exit.


Bedankt

Pascal

 

[ExcelAmateur]

Verwijs de ComboBoxen ook daar naar.

 

[edmoor]

Dat kan wel maar dan zal je er een eigen Class voor moeten maken waar je de betreffende objecten aan toekent.

 

[Scallebe]

edmoor,

Ik weet echt niet hoe je dat moet doen.

Ik heb nu voor elk TextBox en ComboBox de code herhaald...

Tenzij je mij wil helpen

Als je een voorbeeld zou willen maken voor 2 TextBoxen (txtNaam en txtVoornaam) dan kan ik de andere txtboxen wel aanvullen...


Bedankt


Groetjes

Pascal

 

[edmoor]

Ik heb even voor je gekeken maar zo'n Class module handeld helaas niet het _Enter en _Exit event voor een TextBox af.

 

[HSV]

Met Keycode?

 

[Scallebe]

HSV,

Bedankt.

ik zal dit even moeten bestuderen en zien hoe ik dit kan omzetten naar mijn formulier.

Groetjes

Pascal