Seltext ve sellenght komutlarını kullanarak. private sub command1_click()
if text1.sellenght <> then ' eğer text1 deki metin seçili ise
text1.text= ucase (text1.seltext) ' yalnızca seçili metini büyült ve text1e aktar
else ' seçili metin yoksa
text1.text= ucase (text1.text) ' text1 in içindeki metni büyült ve text1 e aktar .
end if
end sub
private sub command2_click()
if text1.sellenght >0 then ' eğer text1 deki metin seçili ise
text1.text =lcase (text1.seltext) ' yalnızca seçili metni küçült ve text1e aktar
else ' seçili metin yoksa
text1.text=lcase (text1.text ) ' text1 in hepsini küçült ve text 1e aktar.
end if
end sub
Text'dekı Yazıları Buyuk Harfe Veya Küçük Harfe Çevirmek (Açıklamalı)
Konu Sahibi / Yazar
PELİN
Kategori / Forum
Visual Basic
Yorumlar / Cevaplar
0
Okunma / Görüntüleme
5958
Text'dekı Yazıları Buyuk Harfe Veya Küçük Harfe Çevirmek (Açıklamalı)
Konuyu Okuyanlar: 1 Ziyaretçi
![[Resim: 114ld.jpg]](http://b1112.hizliresim.com/s/c/114ld.jpg)