Question

vb 文本 数字被高亮选中

例如text1.text中有如下字符：
dfd123gfgf654fdf
在text1的单击事件中，单击1或2或3的左右两边，则数字123被高亮选中，同理单击6或5或4的左右两边则654被高亮选中（即鼠标单击处有数字的则被高亮选中）

Answer 1

teml = Text1.SelStart
For i = teml To 1 Step -1
If IsNumeric(Mid(Text1.Text, i, 1)) = False Then
tems = i
Exit For
End If
Next
For i = teml + 1 To Len(Text1.Text) Step 1
If IsNumeric(Mid(Text1.Text, i, 1)) = False Then
teme = i - 1
Exit For
End If
Next
If teme - tems > 1 Then
Text1.SelStart = tems
Text1.SelLength = teme - tems
End If