Toplu Textbox Biçimlendirme Hk
Tarih
01/02/2012 19:15
Konu Sahibi
drummers
Yorumlar
4
Okunma
2041
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
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


mcmaho
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çözüldü 
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


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
06/12/2016,00:25
Çözüldü 
Değişiklik yapmak istediğiniz textboxların .tag özelliğine örn:2122 yazıp

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   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


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
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

Visual Basic Code
AddHandler TextBox1.TextChanged, AddressOf BasHarfleriBuyukYaz


Sorunu böyle çözdüm...

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  TextBox'a Tarih Formatı Girdirme Mettleshade 2 85 24/11/2016, 18:38 Mettleshade
  alt alta textbox gkmanil 11 1.762 29/05/2016, 14:06 atoz112
Çözüldü ListBox Ve TextBox ~~KaG~~ 6 2.613 14/10/2015, 13:12 atoz112
Çözüldü TextBox ı for ile değişkenli kullanmak Gorkemku 1 1.439 26/05/2014, 10:02 alpeki99
Çözüldü Textbox matematiksel işlem ve para formatı drummers 3 1.801 15/04/2012, 23:02 drummers


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya