Buton İle Form Rengi Değişsin..

Formunuza 1 Button Ve 1 ComboBox Ekleyin..

Kodlar :

Private Sub Command1_Click()
If Combo1 = "kahverengi" Then
Form1.BackColor = &H4080&
End If
If Combo1 = "sarı" Then
Form1.BackColor = &HFFFF&
End If
If Combo1 = "mor" Then
Form1.BackColor = &H800080
End If
If Combo1 = "yeşil" Then
Form1.BackColor = &HFF00&
End If
If Combo1 = "pembe" Then
Form1.BackColor = &HFF00FF
End If
If Combo1 = "mavi" Then
Form1.BackColor = &HFF0000
End If
If Combo1 = "turuncu" Then
Form1.BackColor = &H80FF&
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "Renk Değiştir.."
Combo1.AddItem "kahverengi"
Combo1.AddItem "pembe"
Combo1.AddItem "mavi"
Combo1.AddItem "turuncu"
Combo1.AddItem "yeşil"
Combo1.AddItem "sarı"
Combo1.AddItem "mor"
End Sub

Categories: Visual Basic