Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/02/2012 19:15
Konu Sahibi
drummers
Yorumlar
4
Okunma
2551
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çö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.

Kullanici Avatari

mcmaho

Aktif Üye
Aktif Üye
MU.... ÖZ....
 198
 20
 09/12/2011
34
 Muğla
 
 Ofis 2003
 13/11/2017,23:09
Çö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 >>>

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çö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.

Kullanici Avatari

goodfalles

Hesap Aktif Değil
Aktivasyon Bekleyen
 27
 306
 24
 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



Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çö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.


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.