16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub TextBoxPressure_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxPressure.KeyDown
If e.KeyCode < 96 And e.KeyCode <> 8 And e.KeyCode > 57 And e.KeyCode <> 110 Then
TextBoxPressure.ReadOnly = True
Remind.Label1.Text = "请从数字键盘输入正确数据!"
Remind.Show()
End If
If e.KeyCode < 48 And e.KeyCode <> 8 And e.KeyCode <> 110 Then
TextBoxPressure.ReadOnly = True
Remind.Label1.Text = "请从数字键盘输入正确数据!"
Remind.Show()
End If
If e.KeyCode > 105 And e.KeyCode <> 8 And e.KeyCode <> 110 Then
TextBoxPressure.ReadOnly = True
Remind.Label1.Text = "请从数字键盘输入正确数据!"
Remind.Show()
End If
End Sub