Başlangıç > Kodlar > Visual Basic 6 ile Textdekı yazıları büyük harfe veya küçük harfe çevirmek (Açıklamalı)

Visual Basic 6 ile Textdekı yazıları büyük harfe veya küçük harfe çevirmek (Açıklamalı)


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


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: