Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If CHK(TextBox1.Text) = False Then TextBox1.Focus() TextBox1.SelectAll() End If
End Sub
Function CHK(s As String) As Boolean Dim d As Double If Double.TryParse(s, d) Then Return True Else MessageBox.Show("数字を入力してください") Return False End If End Function
※これを複数のTextBox毎回やると If CHK(TextBox***.Text) = False Then TextBox***.Focus() TextBox***.SelectAll() End If がいたるところに乱立するのでFunction側でフォーカス合わせて文字の全選択までやりたいです
2.とりあえず動くけどこれでいいのか?というプログラム Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CHKObject(TextBox1) End Sub
Function CHKObject(s As Object) As Boolean Dim d As Double If Double.TryParse(s.text, d) Then Return True Else s.focus() s.selectall() Return False End If End Function
> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click > CHKObject(TextBox1) > End Sub > Function CHKObject(s As Object) As Boolean
CHKObject の引数は s As Object よりも txt As TextBox の方が良いと思います。