1.易语言怎么比较两个编辑框内容输出相同内容？
2.易语言中如何把编辑框的易语言编源码易语言代dpmc 源码内容记录到表格中呢记录一个在记录一个的谢谢要源码
易语言怎么比较两个编辑框内容输出相同内容？
代码如下.版本 2
.支持库 spec
.子程序 子程序1
.局部变量 我是编辑框1, 文本型
.局部变量 我是编辑框2, 文本型
.局部变量 s, 整数型
.局部变量 s1, 整数型
.局部变量 i, 整数型
.局部变量 我是编辑框1A, 文本型
.局部变量 我是编辑框2A, 文本型
.局部变量 返回值, 文本型
我是编辑框1 ＝ “”
我是编辑框2 ＝ “”
s ＝ 取文本长度 (我是编辑框1)
s1 ＝ 取文本长度 (我是编辑框2)
.如果真 (s ＞ s1)
s ＝ s1
.如果真结束
.计次循环首 (s, i)
我是编辑框1A ＝ 取文本中间 (我是编辑框1, i, 1)
我是编辑框2A ＝ 取文本中间 (我是编辑框2, i, 1)
.如果真 (我是编辑框1A ＝ 我是编辑框2A)
返回值 ＝ 返回值 ＋ 我是编辑框1A
.如果真结束
.计次循环尾 ()
调试输出 (返回值)
易语言中如何把编辑框的内容记录到表格中呢记录一个在记录一个的谢谢要源码
组件 外部数据库 超级列表框 Access数据库(表名:User 数据库名:DATA 密码:)
代码如下:
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 句柄, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 索引, 整数型
超级列表框1.类型 ＝ 3
超级列表框1.显示表格线 ＝ 真
超级列表框1.插入列 (0, “ID”, , , , )
超级列表框1.插入列 (1, “Name”, , , , )
超级列表框1.插入列 (2, “Password”, , , , )
外部数据库1.打开MDB数据库 (取运行目录 () ＋ “/DATA.mdb”, , “”, , )
句柄 ＝ 外部数据库1.查询 (“select * from User”)
超级列表框1.全部删除 ()
.判断循环首 (外部数据库1.尾记录后 (句柄) ＝ 假)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (外部数据库1.读 (句柄, 1)))
超级列表框1.置标题 (索引, 1, 外部数据库1.读 (句柄, 2))
超级列表框1.置标题 (索引, 2, 外部数据库1.读 (句柄, 3))
外部数据库1.到后一记录 (句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 ()
-----------------------------------------------------分割--------------------------------------------------------
以上是带数据库写法,手动写法也是一样,组件: 超级列表框 编辑框(3个) 按钮
代码如下:
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
超级列表框1.类型 ＝ 3
超级列表框1.显示表格线 ＝ 真
超级列表框1.插入列 (0, “ID”, , , , )
超级列表框1.插入列 (1, “Name”, , , , )
超级列表框1.插入列 (2, “Password”, , , , )
.子程序 _按钮1_被单击
.局部变量 索引, 整数型
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 编辑框1.内容)
超级列表框1.置标题 (索引, 1, 编辑框2.内容)
超级列表框1.置标题 (索引, 2, 编辑框3.内容)
连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
编辑框1.获取焦点 ()
