Skip to main content

AccessTr.neT


Toplu Textbox Biçimlendirme Hk

Toplu Textbox Biçimlendirme Hk

Çözüldü #1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = StrConv(TextBox1.Text, vbProperCase)
TextBox1.SelectionStart = Len(TextBox1.Text)
End Sub

Bu kod ile Textbox1 e girilen verilerin ilk harflerini büyük yapabiliyorum.
Ben bunu her textbox için yazmak istemiyorum, çünkü çok textbox var. textboxların numaralarını yazıp (Textbox1,Textbox2,Textbox3 vs..vs..vs.) bunları toptan şu kodu uygula diyebilirmiyiz.
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
vb 6 kullanıyorum.vb.net hakkında bilgim yok ama textboxları, ilk textbox ın kpyası şeklinde oluştursan daha kolay olurdu. yani textbox1,textbox2 şeklinde degilde, textbox1(0),textbox1(1) vb şeklinde form üzerinde oluşturma gibi bir durum oluyor mu vb.nette. for döngüsüyle yapabilirsin. örnek: textbox1(i) şeklinde.
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #3
Değişiklik yapmak istediğiniz textboxların .tag özelliğine örn:2122 yazıp

   Private Sub IlkHarfiBuyukYap()
Dim ctl
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If ctl.Tag = 2122 Then
ctl.Text = StrConv(ctl.Text, vbProperCase)
ctl.SelectionStart = Len(ctl.Text)
Else
End If
Else
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call IlkHarfiBuyukYap()
End Sub

şeklinde bir çözüm kullanabilirsiniz.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #4
Dim textler(10) As Object
textler(0) = TextBox1
textler(1) = TextBox2
textler(2) = TextBox3
textler(3) = TextBox4
textler(4) = TextBox5
textler(5) = TextBox6
textler(6) = TextBox7
textler(7) = TextBox8
textler(8) = TextBox9
textler(9) = TextBox10
Dim i As Integer
For i = 0 To 13
textler(i).Text = StrConv( textler(i).Text, vbProperCase)
textler(i).SelectionStart = Len( textler(i).Text)
Next i

şöylede bi kullanım var ama şöyle olur tek butonla mesala 10textboxa bu işlemi yaptırmak gibi


yada en mantıklısı şu şekilde sanırım ayhan beyin kodu yazdıktan sonra tüm textboxların içine sadece IlkHarfiBuyukYap yazarsan tek tek olur textlere harf girilidğinde
Cevapla
Çözüldü #5

Private Sub BasHarfleriBuyukYaz(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim kontrol As TextBox = CType(sender, TextBox)
kontrol.Text = StrConv(kontrol.Text, VbStrConv.ProperCase)
kontrol.SelectionStart = Len(kontrol.Text)
End Sub

Projeninn load kısmına

AddHandler TextBox1.TextChanged, AddressOf BasHarfleriBuyukYaz

Sorunu böyle çözdüm...
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da