knrt.net
当前位置:首页 >> vB光标 >>

vB光标

将下面一行代码插入你想要的地方,即可在执行到此代码时让光标位于最后了 text1.selstart = len(text1)-1 如果想选中全文,可以用以下命令 text1.selstart=1 text1.sellenght=len(text1) 其实selstart属性是光标位置,sellenght属性是选中文本长...

你不小心切换“插入/覆盖”状态了,按键盘上的 insert键就行了。

楼上的答案都太复杂了,还用到API,这是最简单的,实际验证通过! Function abc(ByVal txt As TextBox) As Long Dim s() As String, a As Long, b As String a = txt.SelStart If a > 0 Then b = Left(txt.Text, a) s = Split(b, vbCrLf) abc = ...

你是说在Form_Load里写上Text1.SetFocus就报错是吧~ 给你个解决办法: (如果Me.Show不影响你的Project整体效果的话) 在Text1.SetFocus一句上边加上Me.Show就OK了~

如果你想在文本框最后加入,就: Text1.Text = Text1.Text & "===========================" 如果你想在文本框当前光标处开始加入,就: Text1.SelText = "==========================="

按一下键盘上的“插入”或者“INSERT”键试试看。

text1.SelStart =x 就是设置插入点(光标)的位置到第x个字符后Len是返回字符串字符个数,Len(text1.Text)就是text1的text的字符个数所以text1.SelStart = Len(text1.Text)就是将光标移到最后

可以。比如: Private Sub Command1_Click() 中间写你的代码。然后再最后加上 text1.setfocus End Sub

用下面代码可实现: Text1.SelStart = 0 Text1.SetFocus 关于此例中用到的Selstart SelStart:设置文本框光标位置 常用的组合 text1.selstart =0:text1.sellength=len(text1.text) 这句代码的意思,是从文本框首位开始,选中文本框中的全部字符

用SendKeys只能想Windouws程序中添加字符,你是写报告,具体的什么报告啊?是办公软件的那种格式? 比如在记事本中写入字符 先在VB中添加一个按钮 在按钮中加入事件 Dim ReturnValue ReturnValue = Shell("NotePad.EXE", 1) ' 在这里打开要运行的程...

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com