|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  Belirlenen karakterlerin Yazılmasını engelleme | ||||||||||
|
(#1)
|
|||||||||
|
[36]S.H.T Özel Üye
  
>Mesaj Sayısı: 1,618
>Açtığı Konu: 974
Level: 34 [  ]Paylaşım: 330 / 826
Üyelik tarihi: Jul 2007
Kullanıcı No: 113388
Rep Puani: 77
Rep Derecesi :
|
Belirlenen karakterlerin Yazılmasını engelleme -
03-27-2008
'Formunuza 1 adet textbox ekleyin
'Aşağıdaki kodları forma kopyalayın End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim sTemplate As String 'itediğiniz karakterleri aşağıya yazın sTemplate = "!@#$%^&*()_+=" If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0 |
|||||||||
|
||||||||||
 | ||||||||||
|
|
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
