Visual Basic 6.0 Hesap Makinesi Yardım

[cannurbey]

Merhaba arkadaşlar ben bir hesap makinesi yapıyorum da bir şey de takıldım arkadaşlar kullanıcı text alanlarını boş bıraktığında ve text alanlara rakamdan veya sayıdan başka bir şey girdiğinde nasıl uyarı veririz yani kişi birinci alana harf yazdığında ve işleme bastığında uyarı çıkacak (msgbox ile) lütfen yardım edin. 0 ile 0'ın bölümünü bile kendim kurcalayarak buldum ama bu ikisini bulamadım (araştırdım oysaki) şimdiden teşekürker arkadaşlar...

[cannurbey]

ancak bu konu hakkında engin bilgilerinize ihtiyacım var arkadaşlar !

[civil]

Text in keypress olayına bir tane filtre yazacaksın şöyleki senin karakterlerin sadece 0123456789 ve , olsun bunlar dışında bir şey girildiğinde uyarı verecek ve karakteri silecek ... vb6 da kodlar nasıl bilmiyorum ama sana bu kadar fikir verebiliyorum ...

[bunalthe]

"try catch" araştır...

[bunalthe]

pardon ama vb 6.0 da try catch olmayabilir .net te var dı...yok sa cok ozur...

[Cattivo]

maskedit ile yapılabilir, veya aşağıdaki kodları kullanabilirsin

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
MsgBox "sayı gir"
Else
GoTo 123
End If
123
End Sub

boş bırakıldığında hata vermesi için ise:

private sub command1_click()
if text1.text = "" then 
msgbox "hata"
else
'buton kodları
end if
end sub

[cannurbey]

çok teşekkür ederim herkese ilgilendiğiniz için sonunda oldu demekki keypress'miş kodlar da çalıştı tekrar saolun civil, bunalthe ve cattivo kardeş çok teşekkürler yardımlarınız için.

[esatözgür]

googleden ararken gözüm çarptı, arkadaşlar benimde bu konuda sıkıntım var. hazır kodları yazıyorum ''çalışma zamanı hatası ''424'' ''diyor, nerde hata yapıyorum acaba.

[Revlis]

bunalthe, mesajından alıntı:

pardon ama vb 6.0 da try catch olmayabilir .net te var dı...yok sa cok ozur...

vb 6 da try catch yok ama on error goto ile hata tuzaklayabilirsiniz.