今天在论坛里找了一下,发现都没有太简单的组合框读取置相应的编辑框密码,
基本上都是读取配置项,比较麻烦,自己写了一个,比较简单,希望对大家有用吧.
组合框读取密码.rar
(306.17 KB, 下载次数: 28)
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
|
_组合框_账号_鼠标左键被按下 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 账号数据 | 文本型 | | | _分割文本 | 文本型 | | 0 | i | 整数型 | | | 账号密码 | 文本型 | | 0 | x | 整数型 | | |
组合框_账号. 清空 ()账号数据 = 到文本 (读入文件 (取运行目录 () + “\账号.txt”)) _分割文本 = 分割文本 (账号数据, #换行符, ) 计次循环首 (取数组成员数 (_分割文本 ), i ) 账号密码 = 分割文本 (_分割文本 [i ], “|”, ) 组合框_账号. 加入项目 (删首尾空 (账号密码 [1 ]), ) 计次循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 账号 | 文本型 | | | 账号数据 | 文本型 | | | _分割文本 | 文本型 | | 0 | i | 整数型 | | | 账号密码 | 文本型 | | 0 |
账号 = 组合框_账号. 取项目文本 (组合框_账号.现行选中项 )账号数据 = 到文本 (读入文件 (取运行目录 () + “\账号.txt”)) _分割文本 = 分割文本 (账号数据, #换行符, ) 计次循环首 (取数组成员数 (_分割文本 ), i ) 账号密码 = 分割文本 (_分割文本 [i ], “|”, ) 如果真 (账号 = 账号密码 [1 ])  编辑框_密码.内容 = 删首尾空 (账号密码 [2 ])  计次循环尾 ()
|