nasıl kullanacağız bunu. net kodları var mıdır. . net kullandığım için yabancı geliyor bunlar biraz.

O Zaman Bu Kodu Kullanmazzsın Olur Biter, Yani Normal Textbox'a N Yazılıyor ise O Yazılsın, Veya Sadece "," "Rakkam" Yazılmasını İstiyorsan Onu Bi Araştırayım..

Private Sub Text1_KeyPress If KeyAscii <> 8 Then If Not IsNumeric(Chr Then KeyAscii = 46 End If End Sub bu kod çok işime yaradı sağolun. bir textbox'a bu kod ile nokta girilmiş olduktan sonra ikinci ve daha sonraki noktaların girilmesini nasıl engelleriz? yukarıdaki kod üzerinde nasıl bir değişiklik yapmak lazım sizce?

Çokkkkkkkkk Büyük Teşekkür Ederim Japon

bende böyle bi kod yazdım ve sayılar harcinde tuşlara basamıyosunuz bence doğrusu bu ama genede siz bilirsiniz Sub Text1_KeyPress Dim say As String say = Chr If say < "0" Or say > "9" Then If Not Chr = Chr(46) Then Beep KeyAscii = 0 End If End If End Sub üstteki kodda (If Not Chr = Chr(46) Then) bulunan yerdeki 46 yı sayılar ve basılmasını istediğiniz tuşun asci kodunu yazacaksınız basılan tuşun asci kodunu bulmak içinde Private Sub Form_KeyPress MsgBox "Basılan Tuşun Ascii Değeri :" & KeyAscii End Sub bunu kullanın hadi sağlıcakla -

sağol dostum hemen cevap yazdığın için sadece rakam ve virgül kullanılmasını istiyorum. bazı kullanıcılar nokta kullanıyor mesala hesap yanlış oluyor veya yazı yazıyorlar proğram hata veriyor. bu yüzden sordum bu soruyu. teşekkürler.

TextBox'a sadece rakam girilmesi için söyle bir kod var: Private Sub Text1_KeyPress If KeyAscii <> 8 Then If Not IsNumeric(Chr Then KeyAscii = 0 End If End Sub bu güzel işe yarıyor çoğu yerde ama bazen rakam ve Virgül "," kullanılmasıda gereken hesaplamalar oluyor ve yukardaki kod buna izin vermiyor. acaba buna göre düzenleme yapılabilirmi? çünkü kullanıcılar bazen rakamlar arasına virgül yerine nokta koyuyor ve hesaplama farklı çıkıyor bazende harf giriyorlar proğram hata veriyor bunları önlemek istiyorum. teşekkürler...

Al Arkadaşım Senin için Biraz Uğraştım Ve Buldum Sadece Rakam Ve Virgülden Başka hiç Birşey Giremezler.. Buyur.. Kod: Private Sub Text1_KeyPress If KeyAscii <> 8 Then If Not IsNumeric(Chr Then KeyAscii = 44 End If End Sub