Skip to main content

AccessTr.neT


Metin Kutusuna Girilecek Karakter Sayısını Sınırlama

Metin Kutusuna Girilecek Karakter Sayısını Sınırlama

#1
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

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

Call LimitChange(Me.metinkutusu, 11)
kodu ekleyin.

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

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

.rar karakterlimit.rar (Dosya Boyutu: 24,06 KB | İndirme Sayısı: 39)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Metin Kutusuna Girilecek Karakter Sayısını Sınırlama - Yazar: ozanakkaya - 10/12/2008, 21:30
Task