Vb.Net에서 오류가 발생하지 않고 텍스트 상자를 정수로 제한하려면 어떻게해야합니까?

Question

현재 시리얼 번호를 기반으로 USB 장치와 인터페이스하는 프로그램을 코딩하려고합니다. 텍스트 상자에 적절한 일련 번호를 받아들이도록 부분적으로 작업하지만, 정수 이외의 다른 부분은 상자에 넣으면 오류가 발생합니다. 이 문제를 어떻게 해결할 수 있습니까? 지금까지이 문제를 해결하기 위해 노력했지만 실패했습니다. 간단히 말해서, 나는 프로그램이 텍스트 상자에서 5 자리 시리얼을 읽고 연결을 시도하고, 정수가 아닌 다른 것이 추가되면 시리얼이 정확하지 않다는 것을 알리는 메시지를 사용자에게 던지기를 원할 것이다. 여기 내가 지금까지 가지고있는 것이있다.

'Declares an integer to be used for custom serial numbers incase phidgets need to be swapped. 
    Dim MC1Serial As Integer 
    'Throws error if there's no real serial in the corresponding box. 
    If TextSerial1.Text = 0 Then 
     MsgBox("Please ensure you have a proper serial numbers in the textbox, and not 0") 
    Else 
     MC1Serial = TextSerial1.Text 
    End If 
    'Creates a new instance of a MC for the first controller. 
    MC1 = New Phidget21COM.PhidgetMotorControl 
    'Attempts to attach phidget and either checks the box or throws an error. 
    MC1.Open(MC1Serial) 
    MC1.WaitForAttachment(1000) 
    If MC1.IsAttached = True Then 
     CheckMC1.Checked = True 
     'Enables the timer to allow the position of the buttons to update accordingly. 
     TimerJoysticks.Enabled = True 
    Else 
     MsgBox("There was a problem finding MC1. Check connections and settings.") 
    End If 

Answer 1

할 수있는 일이 많이 있습니다. Val Function이 그 중 하나입니다. IsNumeric을 사용하여 전체 입력 문자열이 실제로 숫자인지 확인할 수도 있습니다.

If Not IsNumeric(TextSerial1.Text) or Val(TextSerial1.Text) = 0 Then 
    MsgBox("Please ensure you have a proper serial numbers in the textbox, and not 0") 
    ' You should exit the sub here so that the code doesn't continue. 

Else 
    MC1Serial = CInt(TextSerial1.Text) 
End If