left函数不能直接用的，如果要用得这样：microsoft.VisualBasic.Left()
创新互联建站是一家专注于成都网站设计、成都做网站与策划设计,临沂网站建设哪家好?创新互联建站做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:临沂等地区。临沂做网站价格咨询:18980820575
mid函数可以直接用
另外还可以这样写：TextBox.Text.Substring（）
（）内容根据studio提示操作即可
表示ASCII码为8的字符
ASCII值为 8、9、10 和 13 分别转换为退格、制表、换行和回车字符。
==============================================================问题1截串的办法不太可行吧？BUG多而且难控制模拟backspace的最好办法应该是制造一个退格事件，发送给TextBox1例 TextBox1.Focus()
SendKeys.Send("{BACKSPACE}") 问题2一下代码过滤掉了除 0-9 . -之外的所有字符，考虑到数字里面常会出现负号，所以加入了chr（45） If e.KeyChar = Chr(48) And e.KeyChar = Chr(57) _
Or e.KeyChar = Chr(46) _
Or e.KeyChar = Chr(45) Then Else
e.Handled = True
End If 关于chrcode 楼主可以灵活运用，如果不知道具体的数字，可以打印出来看一下 For i As Integer = 15 To 100
Me.RichTextBox1.Text = Chr(i) " " i vbCrLf
Next 以上