1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
' test
Option Explicit On
Public Class Form1
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "0123456789"
TextBox2.Text = "9876543210"
End Sub
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'If IsNumeric(TextBox1.Text) = False Then
TextBox1.SelectAll()
TextBox1.Focus()
'End If
'If IsNumeric(TextBox2.Text) = False Then
TextBox2.SelectAll()
TextBox2.Focus()
'End If
End Sub
End Class |
Partager