在易语言状态上条显示光标在编辑框中的位置

Question

说明：我是用易语言做一个跟XP一模一样的记事本，

他的状态栏可以显示光标所在的行位置，列位置，比如：5 行 ，5列

Answer 1

用超级编辑框吧，编辑框的功能太少了。
给你一个用超级编辑框实现显示行号和列号的例子
窗口上画一个超级编辑框和一个状态条，在状态条上右键选择《设置“项目”》，设置项目为0：行号；1：空白；2：列号；3：空白
复制下面的代码到到窗口程序集中
——————代码开始——————
.版本 2
.支持库 iext
.支持库 iext2

.程序集 窗口程序集1

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

光标位置 (状态条1, 1, 3)

.子程序 _超级编辑框1_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

光标位置 (状态条1, 1, 3)

.子程序 _超级编辑框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

光标位置 (状态条1, 1, 3)

.子程序 _超级编辑框1_选择区被改变

光标位置 (状态条1, 1, 3)

.子程序 光标位置, , , 将光标在超级编辑框中的行号和列号显示在状态条上，使用超级编辑框的放开某键和鼠标左键被放开两种事件，最好在超级编辑框的选择区被改变事件中也加入这个了程序
.参数 状态条, 状态条, , 显示行列号的状态条
.参数 显示行索引, 整数型, , 状态条的栏目索引将行号显示的位置
.参数 显示列索引, 整数型, , 状态条的栏目索引将列号显示的位置
.局部变量 光标处字符位置, 整数型
.局部变量 行首位置, 整数型

状态条.置文本 (显示行索引, 到文本 (超级编辑框1.取字符所在行 () ＋ 1))
光标处字符位置 ＝ 超级编辑框1.起始选择位置 ＋ 1
' 或者用这一句：光标处字符位置 ＝ (超级编辑框1.发送信息 (176, 0, 0) ％ 65535) ÷ 2 ＋ 1
行首位置 ＝ 超级编辑框1.取行首位置 (超级编辑框1.取字符所在行 ())
状态条.置文本 (显示列索引, 到文本 (光标处字符位置 － 行首位置))
————代码结束————
试一下吧，好用请别忘记及时采纳。