AccessTr.neT

Tam Versiyon: Metin Kutusuna Girilecek Karakter Sayısını Sınırlama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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