|
可视没效果,只能把主窗口藏在登入窗口后面,调试的时候正常,编译出来主窗口又弹出来了,- <火山程序 类型 = "通常" 版本 = 1 />
- 方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
- 参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象" 折叠>
- 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
- {
- 变量 用户名 <类型 = 文本型 折叠>
- 变量 用户名数组 <类型 = 文本数组类>
- 变量 快捷 <类型 = 文本型>
- 变量 快捷数组 <类型 = 文本数组类>
- <折叠> 如果 (文件是否存在 (取运行目录 () + "\\name.txt") == 真)
- {
- 用户名 = 多字节到文本 (读入文件 (取运行目录 () + "\\name.txt", ))
- 分割文本 (用户名, "\n", 用户名数组, , )
- 计次循环 (用户名数组.取成员数 ())
- {
- 组合框_名称.加入项目 (用户名数组.取成员 (取循环索引 ()), )
- }
- 组合框_名称.现行选中项 = 0
- 如果 (文件是否存在 (取运行目录 () + "\\kuaijie.txt") == 真)
- {
- 快捷 = 多字节到文本 (读入文件 (取运行目录 () + "\\kuaijie.txt", ))
- 分割文本 (快捷, "\n", 快捷数组, , )
- 计次循环 (快捷数组.取成员数 ())
- {
- 组合框_快捷.加入项目 (快捷数组.取成员 (取循环索引 ()), )
- }
- }
- }
- <折叠> 否则
- {
- 信息框 ("文件丢失,关闭!", , )
- 结束 ()
- }
- 选择框_置顶.选中 = 真
- 编辑框_号码.获取焦点 ()
- 取程序 ().文本朗读.创建 ()
- 取程序 ().文本朗读.语速 = 文本到整数 (编辑框_语速.内容)
- 模拟按键.键盘单击 (20, )
- 登入窗口.创建窗口 (, , , , )
- 登入窗口.获取焦点 ()
- 返回 (1)
- 组合框_港澳.现行选中项 = 0
- }
- <火山程序 类型 = "通常" 版本 = 1 />
- 方法 登入窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
- 参数 来源对象 <类型 = 登入窗口 注释 = "提供事件产生的具体来源对象">
- 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
- {
- <折叠> 如果 (文件是否存在 (取运行目录 () + "\\GAZHMM.ini") == 假)
- {
- 按钮_登入.标题 = "注册"
- }
- 否则
- {
- 方法_识别 ()
- 置为主窗口 ()
- 总在最前 = 真
- 取程序 ().主窗口对象.禁止 = 真
- 取程序 ().主窗口对象.高度 = 高度
- 取程序 ().主窗口对象.宽度 = 宽度
- 取程序 ().主窗口对象.左边 = 左边
- 取程序 ().主窗口对象.顶边 = 顶边
- }
- 返回 (0)
- }
复制代码
|
|