Metin Kutusuna Girilecek Karakter Sayısını Sınırlama
Tarih
10/12/2008 21:30
Konu Sahibi
ozanakkaya
Yorumlar
0
Okunma
954
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:45
Metin kutusuna girilen karakter sayısına limit eklemeye yarayan örnek uygulamadır.

Kendi formunuza uygularken;

1-) Formun tuş önizleme özelliği evet olarak değiştirin,

2-) Karakter limiti ekleyeceğiniz metin kutusunun Tuşa Basıldığında özelliğine

Visual Basic Code
Private Sub Form_KeyPress(KeyAscii As Integer)
Call LimitKeyPress(Me.metinkutusu, 11, KeyAscii)
End Sub


koddaki Me.metinkutusu yerine kendi metin veya açılan kutunuzun ismini yazınız. 11 yerine 5 yazarsanız metin kutusuna 5 karakterden fazlası girilemez.

karakter limiti ekleyeceğiniz metin kutusunun değiştiğinde olayına

Visual Basic Code
Call LimitChange(Me.metinkutusu, 11)

kodu ekleyin.

3-) Yeni bir modül oluşturun ve aşağıdaki kodları ekleyin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub LimitKeyPress(ctl As Control, iMaxLen As Integer, KeyAscii As Integer)
On Error Resume Next
    If Len(ctl.Text) - ctl.SelLength >= iMaxLen Then
        If KeyAscii <> vbKeyBack Then
            KeyAscii = 0
            Beep
        End If
    End If

End Sub


Sub LimitChange(ctl As Control, iMaxLen As Integer)
On Error Resume Next
      If Len(ctl.Text) > iMaxLen Then
        MsgBox "Truncated to " & iMaxLen & " characters.", vbExclamation, "Too long"
        ctl.Text = Left(ctl.Text, iMaxLen)
        ctl.SelStart = iMaxLen
    End If
End Sub



Ek Dosyalar
.rar   karakterlimit.rar (Dosya Boyutu: 24,06 KB / İndirme Sayısı: 11)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Metin Kutularında Otomatik Tamamlama esrefigit 37 14.581 28/01/2015, 13:02 atoz112
  sorgu eksik metin aliyorga 2 1.088 30/08/2014, 13:29 atoz112
  mail de metin alanının renkli olması svs007 1 1.209 10/01/2013, 20:27 Yandemir
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 6 3.817 18/10/2012, 00:48 mehmetdemiral
  metin kutusundaki harflerin timer ile tek tek yazdırılması accessman 3 1.568 22/04/2012, 23:59 perisanoglu


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