请教TextBox如何在SetFocus时，让焦点自动跳到行末

13808843088

请教TextBox如何在SetFocus时，让焦点自动跳到行末,也就是有两个TextBox，当setfocus textbox2时，里面有字"12"程序默认将焦点设置在"1"前面，请问如何将其设置在"2"后面，谢谢

st788796

Function Name dcl-TextBox-SetSel
Syntax   (dcl-TextBox-SetSel ÎÞ±êÌâ/Form1/TextBox1 Start [as Long] End [as Long] {NoScroll [as Boolean]})
Return Type Boolean (T if successful; otherwise NIL)
Applies To Text Box

This method selects a range of characters in the edit box. Start and End are the character positions (zero based), respectively, of the first selected character and the character following the last selected character. If Start is -1, all selections are removed. If End is -1, all characters from Start to the last character in the edit box are selected. The replacement text is automatically scrolled into view unless NoScroll is T.

st788796

Function Name	dcl-TextBox-SetSel
Syntax	(dcl-TextBox-SetSel xxx/Form1/TextBox1 Start [as Long] End [as Long] {NoScroll [as Boolean]})
Return Type	Boolean (T if successful; otherwise NIL)
Applies To	Text Box

This method selects a range of characters in the edit box. Start and End are the character positions (zero based), respectively, of the first selected character and the character following the last selected character. If Start is -1, all selections are removed. If End is -1, all characters from Start to the last character in the edit box are selected. The replacement text is automatically scrolled into view unless NoScroll is T.

newer

试试：dcl-Control-SetPos

Function Name	dcl-Control-SetPos
Syntax	(dcl-Control-SetPos ÎT±êìa/Form1/TextBox1 Left [as Long] Top [as Long] {Width [as Long]} {Height [as Long]})
Return Type	Boolean (T if successful; otherwise NIL)
Applies To	All Controls and Forms

This method sets the position and size of a form or control. If the control is a child window, the specified coordinates are relative to the upper left corner of the parent window's client area; otherwise they are screen coordinates. If the optional Width and Height arguments are omitted, the control's size will remain unchanged. Both Width and Height must be greater than zero.

13808843088

newer 发表于 2014-12-6 21:57
试试：dcl-Control-SetPos

谢谢，实验了一下，仿似不对，这个函数应该是控制控件的位置

newer

13808843088 发表于 2014-12-6 22:12
谢谢，实验了一下，仿似不对，这个函数应该是控制控件的位置

是的，看错了，不好意思。你试试ST的方法，setsel后，在清除，看看光标是在最后不？

13808843088

st788796 发表于 2014-12-6 21:57
This method selects a range of characters in the edit box. Start and End are the character positions ...

谢谢了，是setsel函数，还有请问下要在textbox中多行输入，应该进行什么处理呢？试了很多方法不行

st788796

13808843088 发表于 2014-12-7 09:15
谢谢了，是setsel函数，还有请问下要在textbox中多行输入，应该进行什么处理呢？试了很多方法不行

没有多行，启用垂直滚动条

13808843088

st788796 发表于 2014-12-7 09:28
没有多行，启用垂直滚动条

启用了垂直滚动条，它不换行

13808843088

filter style设置成multiline string，这个要回车，不回车碰到边就换行可以在EditChanged事件中加入\r\n

newer

13808843088 发表于 2014-12-7 09:15
谢谢了，是setsel函数，还有请问下要在textbox中多行输入，应该进行什么处理呢？试了很多方法不行

你用setsel函数怎么写的，把代码贴出来吧。

13808843088

newer 发表于 2014-12-7 12:10
你用setsel函数怎么写的，把代码贴出来吧。

我只有一个字符，写成(dcl-TextBox-SetSel file/Form/TextBoxn1 1)就行了

iLisp

不明白你为什么捉摸这些？像输注册码一样自动跳？

13808843088

iLisp 发表于 2014-12-7 17:59
不明白你为什么捉摸这些？像输注册码一样自动跳？

类似于文字自动排版，实际上很简单的功能，想让其自动化。