VB. İLe Yazdığımız Yazıya Göre Değişen Form Rengi Yapmak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Azrail    0 Yorum    125 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 01.02.2016, 10:18:16 #1
Azrail Because.
Süper Üye
Status: Çevrimdışı Yorum Sayısı:545 Konu Sayısı:55 Üyelik Tarihi:24.01.2016 Rep Puanı: 75

Merhaba Arkadaşlar Tamamen Kendi Yazımdır...

Textbox'a Yazdıklarımıza Göre Formun Rengini Değiştireceğiz....

2 Türlüsü Var Kardeşlerim.....

Formda Sadece 1 Buton 1 Textbox Olacak....


Bu İlk Kod Kardeşlerim Bu Kod Rengin İsmine Bağlı Olacak... 

Kod=

Kod:
Private Sub Command1_Click()
Command1.Caption = "değiştir"
If Text1.Text = "mavi" Then
Form1.BackColor = &HFF0000
End If
If Text1.Text = "kırmızı" Then
Form1.BackColor = &HFF&
End If
If Text1.Text = "yeşil" Then
Form1.BackColor = &HFF00&
End If
If Text1.Text = "sarı" Then
Form1.BackColor = &HFFFF&
End If
If Text1.Text = "turuncu" Then
Form1.BackColor = &H80FF&
End If
If Text1.Text = "kahverengi" Then
Form1.BackColor = &H40&
End If
If Text1.Text = "siyah" Then
Form1.BackColor = &H0&
End If
If Text1.Text = "turkuaz" Then
Form1.BackColor = &HFFFF00
End If
If Text1.Text = "gri" Then
Form1.BackColor = &H808080
End If
If Text1.Text = "mor" Then
Form1.BackColor = &HFF00FF
End If
If Text1.Text = "pembe" Then
Form1.BackColor = &HFFC0FF
End If
End Sub


Buda 2. Kod Kardeşlerim Buda Renk Koduna Bağlı Olacak..

Kod:
Private Sub Command1_Click()
Form1.BackColor = (Text1.Text)
End Sub
'burada texbox a yazacağınız kodlar yukarıdaki "then" bölümünden sonraki kısımdaki kodlar gibi olacak.


Emeğe Saygısızlık Etmeyin Kardeşlerim...

Kullanıcı İmzası
En Karanlık Gece Bile Sona Erer ve Güneş Yeniden Doğar.


Adama Adam Gibi Davranırız.

Keşke Mallara Zam Gelsede Kendilerini Ucuza Satmasalar.








Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir