新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 以上