Vb Textbox Da İstenilen Yazı Olmayınca Hata Versin!

31/08/2018, 16:57

BİLLY THE KID

Merhaba,
  Ben visual basic de textbox a istenilen yazı olmayınca hata vermesini istiyorum yardım eder misiniz.
örnek: textbox  da 123 sayısı olmazsa hata verecek ama ali123456 gibi olursa hata vermiyecek çünkü  içinde 123 sayısı var.
05/11/2018, 17:20

drummers

(31/08/2018, 16:57)BİLLY THE KID yazdı: Merhaba,
  Ben visual basic de textbox a istenilen yazı olmayınca hata vermesini istiyorum yardım eder misiniz.
örnek: textbox  da 123 sayısı olmazsa hata verecek ama ali123456 gibi olursa hata vermiyecek çünkü  içinde 123 sayısı var.

Eğer amacınız textboxa sadece sayısal değer girilmesini izin vermekse şu fonksiyonu kullanabilirsiniz.
 Public Function Sadece_Sayisal(ByVal e As System.Object)
       Try
           If Not IsNumeric(e.Text) And e.Text <> "" Then
               MsgBox("Lütfen sayısal değer giriniz !!!!", vbCritical)
               e.Text = ""
               e.Focus()
           End If
           Return e
       Catch ex As Exception
           MsgBox(ex.Message)
           Return Nothing
       End Try
   End Function

Kullanımı :
 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Sadece_Sayisal(TextBox1)
End Sub