Başlangıç > Kodlar > Visual Basic 6 ile girilen ilk harfi büyük yapmak

Visual Basic 6 ile girilen ilk harfi büyük yapmak


Girilen string değerinin ilk karakterini büyük harfe çevirmek için

Girilen string değerinin ilk karakterini büyük harfe çevirmek için aşağıdaki kodu kullanabilirisiniz.

Private Sub Command1_Click()

Dim syeni As String
Dim seski As String

Dim trkarakter As String
Dim karaktersayisi As Integer

seski = Text1
syeni = StrConv(seski, vbProperCase)

trkarakter = Left(seski, 1)

If trkarakter = "i" Then
syeni = "İ" & Right(seski, Len(seski) - 1)
Me.Caption = syeni

ElseIf trkarakter = "ı" Then
syeni = "I" & Right(seski, Len(seski) - 1)
Me.Caption = syeni

ElseIf trkarakter = "ö" Then
syeni = "Ö" & Right(seski, Len(seski) - 1)
Me.Caption = syeni

ElseIf trkarakter = "ğ" Then
syeni = "Ğ" & Right(seski, Len(seski) - 1)
Me.Caption = syeni

ElseIf trkarakter = "ş" Then
syeni = "Ş" & Right(seski, Len(seski) - 1)
Me.Caption = syeni

Else

Me.Caption = syeni

End If

End Sub

Reklamlar
  1. 10/05/2011, 23:50

    ankara haber :

    Selamlar, Kod işime yaradı.. Ancak İ harfi muhtelemen diğer Türkçe karakterler için problemler çıkıyor sanırım.

    Kodlar güncellendi

    Beğen

  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: