精易论坛

标题: 编辑框-选择类属性 [打印本页]

作者: 想学坏的小孩    时间: 2010-1-21 16:26
标题: 编辑框-选择类属性
.版本 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.获取焦点 ()  ' 单击按钮时,按钮获得焦点,编辑框同时失去焦点。这时恢复编辑框的焦点,否则看不到编辑框中的光标。

编辑框-选择类属性.e

8.89 KB, 下载次数: 16, 下载积分: 精币 -2 枚


作者: longchaohua    时间: 2010-7-15 22:51
按钮8_被单击
作者: 想学坏的小孩    时间: 2010-7-15 22:55
按钮8_被单击
longchaohua 发表于 2010-7-15 22:51



    嘛意思啊
作者: ˇˇ    时间: 2013-6-17 16:38
谢谢LZ,分享。。东西拿走了。。。呵呵!
作者: yuan001    时间: 2013-7-12 13:59
没看懂




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4