Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/02/2012 19:15
Konu Sahibi
drummers
Yorumlar
4
Okunma
2440
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
17/03/2017,22:33
Çö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
23/02/2017,01:00
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
Çözüldü TextBox'a Tarih Formatı Girdirme Mettleshade 2 507 24/11/2016, 18:38 Mettleshade
Çözüldü alt alta textbox gkmanil 11 2.442 29/05/2016, 14:06 atoz112
Çözüldü ListBox Ve TextBox ~~KaG~~ 6 3.091 14/10/2015, 13:12 atoz112
Çözüldü TextBox ı for ile değişkenli kullanmak Gorkemku 1 1.598 26/05/2014, 10:02 alpeki99
Çözüldü Textbox matematiksel işlem ve para formatı drummers 3 2.127 15/04/2012, 23:02 drummers

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.