Text kutusunun rengini değiştirmek

Bu programımızda text kutusunun arkaplan resmini RGB ile renkleri karıştırarak boyamayı öğreneceğiz.

Kullanılacak araçlar: 3 adet VScroll, 1 adet TextBox.

İlk önce formumuzu resimdeki şekilde hazırlayalım:



Daha sonra sonra Form_Load bölümünün içine girip şu kodları yazıyoruz..


Private Sub Form_Load()

Vscrolll.Max=255

Vscroll2.Max=255

Vscroll3.Max=255

End Sub



Vscroll1 kodları:


Prevate Sub Vscroll1_Change()

Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

End Sub



Vscroll2 kodları:


Prevate Sub Vscroll2_Change()

Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

End Sub



Vscroll3 kodları:


Prevate Sub Vscroll3_Change()

Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

End Sub



Dikkat: Arkadaşlar Vscroll kodlarında RGB'nin altındaki kodlar RGB'nin yanında olmalıdır. Yani kod tek satırda olacak.

Son Görünümü:



Kolay gelsin arkadaşlar...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

teşekkür ederim private yerine Prevate yazmışsın. bide change olayı yerine scroll olayını kullanırsanız daha iyi sonuç alırsınız.
• 12 yıl önce
güzel olmuş
• 12 yıl önce
Arkadaslar vscroll 1 de prevate yazmıs yanlıslıkla arkadas orayı private yapın.
• 12 yıl önce
ben visual studio 2008 kullunıyom acaba ondada bu şekildemi:uzul:
• 12 yıl önce
çok güzel olmuş ellerinize sağlık:D
• 11 yıl önce
Paylaşım için TeşekkürLer....
• 11 yıl önce
Çok Güzel Olmuş Eline Sağlık
• 11 yıl önce
ben de çalışmıyor arkadaşlar neden acaba?

Yukarı Git