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

vB光标

楼上的答案都太复杂了,还用到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 = ...

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

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

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

把以下代码加入到对应按钮事件中: text0.setfocus text0.value=“”

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

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

Private Sub Text1_GotFocus() Text1.SelStart = Len(Text1) Text1.SelLength = 1 End Sub

不会啊~我试过了光标启动停在text1啊~

用 API 函数 GetCarePos,给个示例做参考(窗体上放置一个 Timer、一个 Label): Option ExplicitPrivate Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim a A...

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