vb文本框实时字符串提取数字，一边输入一边提取，分割符回车符

楼主的思路蛮奇怪的。。。。
private sub text1_change()
dim Tmp() as string
tmp=split(text1.text,chr(13))
for i=0 to ucase(tmp)
　list1.additem getnum(tmp(i))
next
end sub
function GetNum(Sp as string) as string '这个是取得字符串内数字部分
dim Vl as string
　for i=1 to len(sp)
　　vl=mid(sp,i)
　　if isnumeric(vl) then
　　　getnum=vl
　　　exit for
　　end if
　next
end function

Private Sub text1_change()
Dim Tmp
List1.Clear
Tmp = Split(Text1.Text, Chr(13))
For i = 0 To UBound(Tmp)
　List1.AddItem GetNum(CStr(Tmp(i)))
Next
End Sub
Function GetNum(Sp As String) As String '这个是取得字符串内数字部分
Dim Vl As String
　For i = 1 To Len(Sp)
　　Vl = Mid(Sp, i)
　　If IsNumeric(Vl) Then
　　　GetNum = Vl
　　　Exit For
　　End If
　Next
End Function
汗。。。。手打果然老有错。。。。这个是测试好的代码，拖个text和list
附上测试结果。、。。

成功了。。。用keypress事件