VB 2008_Textboxlara sayı dışında bir değer girmeyi ve boş geçmeyi engelleme

NBATMAN

Üye
Katılım
7 Şub 2008
Mesajlar
136
Puanları
1
Merhaba,

Sayısal (matematiksel) işlemlerde Kodlar aşağıdaki gibi olmalı aksi takdirde sayı dışında herhangi bir şey ( harf v.s ) girildiğindede hata alınır. Bunun önüne geçmek için aşağıdaki kodlar işinizi tam görür düşüncesindeyim.


Imports System.Text.RegularExpressions

Public
Class Form1

Dim
sonuc As Integer

Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ""Or TextBox2.Text = ""Then
MsgBox("Lütfen bütün alanları eksiksiz doldurunuz!")
Else
sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
MsgBox(sonuc)
EndIf
EndSub

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim r As Regex
r =
New Regex("[0-9]")
e.Handled =
Not r.IsMatch(e.KeyChar.ToString())
EndSub

PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim r As Regex
r =
New Regex("[0-9]")
e.Handled =
Not r.IsMatch(e.KeyChar.ToString())
EndSub
End
Class
 

Forum istatistikleri

Konular
127,967
Mesajlar
913,969
Kullanıcılar
449,613
Son üye
Liderpano

Yeni konular

Geri
Üst