编辑框-选择类属性

想学坏的小孩

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

信息框 (“起始选择位置：” ＋ 到文本 (编辑框1.起始选择位置), 0, )
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮2_被单击

信息框 (“被选择字符数：” ＋ 到文本 (编辑框1.被选择字符数), 0, )
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮3_被单击

信息框 (编辑框1.被选择文本, 0, )
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮4_被单击

编辑框1.被选择文本 ＝ 编辑框2.内容
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮5_被单击

编辑框1.被选择字符数 ＝ -1
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 __启动窗口_创建完毕

编辑框1.加入文本 (“编辑框1，已设置：” ＋ #换行符)
编辑框1.加入文本 (“    是否允许多行=真” ＋ #换行符)
编辑框1.加入文本 (“    滚动条=2 （纵向滚动条）” ＋ #换行符)
编辑框1.加入文本 (“    隐藏选择=假 （失去焦点时仍可看到反选文本）” ＋ #换行符 ＋ #换行符)
编辑框1.加入文本 (“如果编辑框1中没有被选中的文本，则‘起始选择位置’返回当前光标的位置。” ＋ #换行符 ＋ #换行符)
编辑框1.加入文本 (“选择指定文本时要注意，是不能选择半个汉字的。” ＋ #换行符)
编辑框1.加入文本 (“起始选择位置所在数据类型为编辑框，英文名称为SelStart，类型为整数型（int）。      返回或设置所选择文本的起始点；0 为位置 1 ，1 为位置 2，如此类推。如果没有文本被选中，则指出光标位置。如果设置位置时使用值 -1，则将当前光标位置移动到文本尾部。当类型为不可编辑下拉式时，本属性无效。”)

.子程序 _按钮6_被单击

编辑框1.起始选择位置 ＝ -1
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮7_被单击

.如果真 (到数值 (编辑框4.内容) ＞ 到数值 (编辑框3.内容))
    编辑框1.起始选择位置 ＝ 到数值 (编辑框3.内容)
    编辑框1.被选择字符数 ＝ 到数值 (编辑框4.内容) － 到数值 (编辑框3.内容) ＋ 1
.如果真结束
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮8_被单击

编辑框1.加入文本 (编辑框5.内容)  ' 在“编辑框1”的最后添加文本。（不会另起一行。）
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮9_被单击
.局部变量 临时, 文本型


输入框 (, , “请在这里输入”, 临时, )
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

.子程序 _按钮10_被单击

编辑框1.加入文本 (#换行符 ＋ 编辑框5.内容)  ' 在“编辑框1”的最后添加文本。（不会另起一行。）
编辑框1.获取焦点 ()  ' 单击按钮时，按钮获得焦点，编辑框同时失去焦点。这时恢复编辑框的焦点，否则看不到编辑框中的光标。

longchaohua

按钮8_被单击

想学坏的小孩

按钮8_被单击
longchaohua 发表于 2010-7-15 22:51

    嘛意思啊

ˇˇ

谢谢LZ，分享。。东西拿走了。。。呵呵！

yuan001

没看懂