1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Büyük-Küçük Harfe Çevir


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Text kutusuna girilen yazıdan seçmiş olduğumuz karakterleri büyük veya küçük harfe çevirebiliyoruz..
    Eklenecek nesneler; text1(yazı buraya yazılacak),
    command1(büyük harfe çevir), command2(küçük harfe çevir)
    Kod:
    Private Sub Command1_Click()
        If Len(Text1.SelText) > 0 Then  ' If Text1.SelLength > 0 then
            Text1.SelText = UCase(Text1.SelText)
        Else
            Text1.Text = UCase(Text1.Text)
        End If
    End Sub
    
    Private Sub Command2_Click()
        If Len(Text1.SelText) > 0 Then  ' If text1.SelLength > 0 then
            Text1.SelText = LCase(Text1.SelText)
        Else
            Text1.Text = LCase(Text1.Text)
        End If
    End Sub
    
    Private Sub Form_Load()
        Text1.ToolTipText = "Lütfen Cümlenizi Buraya Yazınız"
    End Sub