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.
güzel olmuş
Arkadaslar vscroll 1 de prevate yazmıs yanlıslıkla arkadas orayı private yapın.
ben visual studio 2008 kullunıyom acaba ondada bu şekildemi:uzul:
çok güzel olmuş ellerinize sağlık:D
Paylaşım için TeşekkürLer....
Çok Güzel Olmuş Eline Sağlık
ben de çalışmıyor arkadaşlar neden acaba?

Yukarı Git