combobox yazı tipi

[alicanxy58]

Comboboxta 0 dan farklı değerlerin comboboxta görünmesi için nasıl bir kod kullanmalıyım.
Cevaplarınız için şimdiden tesekkür ederim.

 

[fedeal]

Private Sub ComboBox1_Change()
If ComboBox1.Text = 0 Then
ComboBox1.ForeColor = &H80000005
Else
ComboBox1.ForeColor = &H80000006
With ComboBox1.Font
.Name = "Arial Rounded MT Bold"
.Size = 12
End With
End If
End Sub

iyi çalışmalar.

 

[fedeal]

aslında font ismi ve boyutunu properties ayarlarından yapmanız daha doğru sebebi ise comboboxun change hadisesine yazıyoruz kodu ilk yazdıgımız numara istedigimize uymayacaktır.

ama önemli ise kodları şöyle yapabiliriz.


Private Sub ComboBox1_Change()

If ComboBox1.Text = 0 Then
ComboBox1.ForeColor = &H80000005
Else
ComboBox1.ForeColor = &H80000006
With ComboBox1.Font
.Name = "Arial Rounded MT Bold"
.Size = 12
End With
ComboBox1.Text = ComboBox1.Text
End If
End Sub

 

[alicanxy58]

Sayın Fedeal, Cevabınız işimi gördü çok tesekkür ederim..