Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

acil vbasic sorusu


Öne çıkan mesajlar

Mesaj tarihi:
şimdi ben bi ax^2+bx+c=0
denklemini hesapliyan programcik yaptim
a , b, ,c degerlerini alan 3 tane textbox war
bunlara hraf girişini nası lengelliyebilirim ?[hline]Tyler_gs :
merhaba baaluo nickinin anlamı nedir besiktas ataturk anadoluyla bi alakası varmıdır?
Mesaj tarihi:
Private Sub Text1_KeyPress(KeyAscii As Integer)

If IsCharAlphaNumeric(KeyAscii) = 0 And KeyAscii > 15 Then
SendKeys "{BACKSPACE}", 0
End If
If IsCharAlpha(KeyAscii) = 1 And KeyAscii > 15 Then
SendKeys "{BACKSPACE}", 0
End If

End Sub


Her text box'ın keypress'ine bunu koyarsan rahatlarsın biraz :D

Ha şu alttakileride (General) (Declarations) kısmına yazacan.

Private Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long
Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long


[hline]This Cat Scratches Free.

[Bu mesaj Catscratch tarafından 15 October 2003 16:12 tarihinde değiştirilmiştir]
Mesaj tarihi:
eyvallah elleriniz dert görmesin[hline]Tyler_gs :
merhaba baaluo nickinin anlamı nedir besiktas ataturk anadoluyla bi alakası varmıdır?
×
×
  • Yeni Oluştur...