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;
Fuat ŞENGÜL
Fuat ŞENGÜL Samsun Havza ilçesinde 23.05.1990 da doğdu. Bilgisayar ile lise öğreniminde tanışan yazar Pascal, C/C++, Assembly ve Visual Basic dilleriyle birlikte yazılıma adım attı. 2008 yılında Fırat Üniversitesi Teknik Eğitim Fakültesi Bilgisayar öğretmenliğini kazandı. Öğrenimi sırasında web ve masaüstü yazılımları konusunda projelere imza atan yazar 2012 yılında mezun oldu. Yazar C/C++, C#, Asp.Net, Matlap, Jquery, Css ve Html gibi programlama dillerine hakim ve bu diller ile projeler üretmeye devam etmektedir. Bilişim Teknolojileri öğretmeni olarak görev yapmaktadır.
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