[已解决]text的exit事件

殿堂之上

如果exit中text的输入不符合要求，在不清空的情况下如何选定输入的内容，比如输入“ssDFD",但是不是数字，如何选中“ssDFD"？还有控件中text与value有区别不？

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-9-25 23:33

请参考附件.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(TextBox1) Then
    Cancel = True
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
  End If
End Sub

跳转到最佳答案楼层

yyyydddd8888

学习中！

danio112

直接鼠标托动不能选择？
在窗体中，text 与value没有区别，一样的。但在单元格中就可能不一样了。

殿堂之上

danio112 发表于 2013-9-25 22:33
直接鼠标托动不能选择？
在窗体中，text 与value没有区别，一样的。但在单元格中就可能不一样了。

可以啊，但是那样不更好，直接可以输，不要拉

hwc2ycy

文本框在获取焦点后不就会自动选择的嘛。

大灰狼1976

请参考附件.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(TextBox1) Then
    Cancel = True
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
  End If
End Sub