扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
left函数不能直接用的，如果要用得这样：microsoft.VisualBasic.Left()
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的云龙网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
mid函数可以直接用
另外还可以这样写：TextBox.Text.Substring（）
（）内容根据studio提示操作即可
如果是在你的程序内发送按键用 sendkeys，测试代码：
Text1.SetFocus
Text1.SelStart = Len(Text2.Text)
SendKeys "{backspace}"
如果是向其他软件窗口发送就复杂些，你要先用 FindWindow()获取窗口句柄，然后发送消息 SendMessage()，以上都是API函数，具体可以百度
==============================================================问题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 以上
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网