acil vbasic sorusu

[Peka]

ş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?

[The_Delucian]

vb kodunu bılmem de ...
ASCII kodu olarak 46*The Bagımsız Oyun Bagımlısı

[Catscratch]

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]

[Peka]

eyvallah elleriniz dert görmesin[hline]Tyler_gs :
merhaba baaluo nickinin anlamı nedir besiktas ataturk anadoluyla bi alakası varmıdır?

[Catscratch]

Ama illa bi bug bulcam deyip ctrl+alt+q yada B yada E ye felan basarsan o zaman o karakterler çıkıo. Kastırmak lazm onlar için.[hline]This Cat Scratches Free.