Nesnede şarta bağlı renk değiştirme

[EKREM1661]

Selamlar.. Arkadaşlar şöyle bir şey yapmaya yardımcı olurmusunuz.?

Userform üzerinde Label1 ve TextBox1 olsun.. Eğer textbox1 de veri var ise; Label1' in rengi değişsin (diyelimki gri olsun) Not: Bu renk değişikliği Label1'e tıklanınca da meydana getirilse olabilir.

 

[mancubus]

tabii bir çok şekilde olabilir. ben örnek vereyim.

ilgili userform'un kod modülüne kopyalayın. kendi değişikliklerinizi yapın.

userform'a tıklandığında

Private Sub UserForm_Click()

    If TextBox1 <> "" Then Label1.BackColor = vbBlue

End Sub

label'a tıklandığında

Private Sub Label1_Click()

    If TextBox1 <> "" Then Label1.BackColor = vbBlue

End Sub

TextBox1'e veri girildiğinde

Private Sub TextBox1_Change()

    Label1.BackColor = vbBlue

End Sub

TextBox1'den başka bir nesneye geçildiğinde

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Label1.BackColor = vbBlue

End Sub

Label1'in zemini mavi olur.

 

[EKREM1661]

Sayın mancubus..! verdiğiniz örnekler için teşekkürler ve hayırlı akşamlar dileğiyle..