Lcase Kodu Çalışmıyor

[ses]

Arkadaşlar aşağıda göründüğü üzere lcase kodunu yazdım fakat uygulamaya koymuyor bir türlü formda lcase kodunun işlevini göremedik.

Private Sub ListBox1_Click()
LCase (Label1)
If ListBox1.Value = "Bu harfle başlayan bir terim" Then
Label1 = ""
Exit Sub
Else
Label1 = Terimler(1, ListBox1.ListIndex)
End If
End Sub

 

[janveljan]

Label1 = LCase(Label1) şeklinde deneyin.

Label1 = LCase(Replace(Replace(Label1, "İ", "i"), "I", "ı")) bu şekilde de I İ leri düzelmiş olursunuz.

 

[ses]

janveljan kardeşim yine olmadı Lcase komutunu bir türlü kullanamıyorum formda kullandığım kod bu sadece

Sub ekle()
ListBox1.Clear
For Sayac = 0 To UBound(Terimler, 2)
ListBox1.AddItem Terimler(0, Sayac)
Next
End Sub

Private Sub Command_Click()
ReDim Terimler(0 To 1, 0 To 2) As String
Terimler(0, 0) = "ahmet"
Terimler(1, 0) = "erkek"
Terimler(0, 1) = "hasan"
Terimler(1, 1) = "erkek"
Terimler(0, 2) = "betül"
Terimler(1, 2) = "bayan"
Call ekle
For Sayac = 0 To TerimSayisi - 1
ListBox1.AddItem Terimler(Sayac, 1)
Next
ListBox1.ListIndex = 0
If ListIndex = 1 Then
Label1 = Terimler(ListBox1.ListIndex, 1)
End If
End Sub

Private Sub ListBox1_Click()
Label1 = LCase(Label1)
If ListBox1.Value = "Bu harfle başlayan bir terim" Then
Label1 = ""
Exit Sub
Else
Label1 = Terimler(1, ListBox1.ListIndex)
End If
End Sub

 

[Orion1]

Lcase fonksiyonunun değerleri küçük harfe çevirdiğini biliyormusunuz?
Başka bir beklentiniz olmasın diye söylüyorum.

 

[ses]

cvp

Lcase fonksiyonunun değerleri küçük harfe çevirdiğini biliyormusunuz?
Başka bir beklentiniz olmasın diye söylüyorum.

lcase küçük harfe çeviriyor evet biliyorum ama benden hocamın istediğide bu zaten yazdığım halde çalışmaması sizcede garip değilmi ?

 

[Orion1]

Peki listboxa tıkladığınızdamı değişmiyor.Çünkü kodu listbox'ın click olayına yazmışsınız.

 

[algil]

birde bunu deneyin

Sub ekle()
ListBox1.Clear
For Sayac = 0 To UBound(Terimler, 2)
ListBox1.AddItem Terimler(0, Sayac)
Next
End Sub

Private Sub Command_Click()
ReDim Terimler(0 To 1, 0 To 2) As String
Terimler(0, 0) = "ahmet"
Terimler(1, 0) = "erkek"
Terimler(0, 1) = "hasan"
Terimler(1, 1) = "erkek"
Terimler(0, 2) = "betül"
Terimler(1, 2) = "bayan"
Call ekle
For Sayac = 0 To TerimSayisi - 1
ListBox1.AddItem Terimler(Sayac, 1)
Next
ListBox1.ListIndex = 0
If ListIndex = 1 Then
Label1 = LCase(Terimler(ListBox1.ListIndex, 1))
End If
End Sub

Private Sub ListBox1_Click()
Label1 = LCase(Label1)
If ListBox1.Value = "Bu harfle başlayan bir terim" Then
Label1 = ""
Exit Sub
Else
Label1 = LCase(Terimler(1, ListBox1.ListIndex))
End If
End Sub

 

[ses]

tmm hocam oldu emeğinize sağlık çok teşekkürler