如何关注需要修正的文本框？

Question

我有几个用于输入值的文本框，但是我想要一个文本框来提示我，如果输入值时输入错误，以及将错误设置在该文本框上，我该怎么做呢？到目前为止，我有

  

尝试

       StuNames = CType(txtStuName.Text, String)
       a1 = CType(txtA1.Text, Decimal)
       a2 = CType(txtA2.Text, Decimal)

     

捕捉

       MessageBox.Show("Please input a valid value!", "Error")

      ?? txtA2.focus() ???

     

结束尝试

非常感谢任何指导，

感谢。

Answer 1

StuNames = txtStuName.Text
If Not Decimal.TryParse(txtA1.Text, a1) Then
    txtA1.Focus()
ElseIf Not Decimal.TryParse(txtA2.Text, a2) Then
    txtA2.Focus()
End If