VB中SendKeys与退格键backspace怎么联用?
VB中SendKeys与退格键backspace怎么联用?我要实现约束文本框中只要数字,输入字母后弹窗,关弹窗后删除字母。PrivateSubText1_Change()...
VB中SendKeys与退格键backspace怎么联用?我要实现约束文本框中只要数字,输入字母后弹窗,关弹窗后删除字母。
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(T1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys ?
End If
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys ?
End If 展开
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(T1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys ?
End If
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys ?
End If 展开
2个回答
展开全部
SendKeys "{BKSP}" 即可。
见以下例程:
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys "{BKSP}" ’两个联用
End If
End Sub
见以下例程:
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys "{BKSP}" ’两个联用
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-11-04
展开全部
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys "{BKSP}"
End If
End Sub
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字!", 48, "错误提示"
SendKeys "{BKSP}"
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询