Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
10/12/2008 21:30
Konu Sahibi
ozanakkaya
Yorumlar
0
Okunma
1189
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.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
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ı: 13)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
kutusuna sayısını sınırlama girilecek karakter metin


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

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