VB.NET เช็คข้อมูลของ textbox ให้กรอกเป็นตัวเลข Number เราจะต้องเขียนยังไง คับ

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Asc(e.KeyChar)
            Case 48 To 57 ' key โค๊ด ของตัวเลขจะอยู่ระหว่าง48-57ครับ 48คือเลข0 57คือเลข9ตามลำดับ
                e.Handled = False
            Case 8, 13, 46 ' ปุ่ม Backspace = 8,ปุ่ม Enter = 13, ปุ่มDelete = 46
                e.Handled = False

            Case Else
                e.Handled = True
                MessageBox.Show("สามารถกดได้แค่ตัวเลข")
        End Select
  
    End Sub

int result;

if (Int32.TryParse(txtConphoneC.Text, out result))
{
    // ข้อมูลนี้เป็นตัวเลข ใช้ตัวแปร result ต่อได้เลย
}

Dim result As Integer

If Integer.TryParse(txtConphoneC.Text, result) Then
    // ข้อมูลนี้เป็นตัวเลข ใช้ตัวแปร result ต่อได้เลย
End If