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

Basit Bir Kuaför Takip Programı Yapmıştım Gecen Sene Paylaşayım Dedim.Öğrenme Aşamasındayız Daha

Arkadaşlar. Biraz daha geliştirilmiş bir versiyonunu sattığım, birçok kullanıcısı olan ve halen geliştirmekte olduğum Fatura-Stok-Cari-Garanti-Arızalı ürün takibi bulunan Bilgisayarcılara yönelik programımı sizlere sunuyorum. Epeyce bir sürede hazırlanmıştır. İçinde bazı yerler vardır ki şu anda ben de bakınca "ne kadar amatörce hazırlamışım" diyorum. Yine de 2003 yılında başladığım programın 2007'deki son hali olarak -Daha ileri bir halini sattığım için sunamıyorum- sunuyorum. Aslında setup halinde, lisans korumalı ve ağ ortamında çok kullanıcı kullanımı için hazırlanmışt. Ben burada sunmak için farklı bir şekilde açık ve tek dosya haline getirdim. İndirip çözemediğiniz yerler olursa buraya veya öm'e yazabilirsiniz.

Merhaba,
form özelliklerinden başlığı kaldırılan formlar normalde hareket ettirilemez, bazan bu durum çok cansıkıcı olur;
ilişikteki örnekte form başlığını kendiniz özel hazırladığınız halde onu istediğiniz gibi hareket ettiriyorsunuz.
Saygılar,