HTMLayout自绘登录界面源码

HTMLayout自绘登录界面

.版本 2

.程序集 窗口程序集1
.程序集变量 Hwnd, HL窗口
.程序集变量 编辑框_Us, HL编辑框
.程序集变量 编辑框_Pa, HL编辑框
.程序集变量 User, 文本型
.程序集变量 Pass, 文本型

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

Hwnd.绑定 (取窗口句柄 ())
Hwnd.修改窗口扩展风格 (#窗口扩展_分层)
Hwnd.载入文件 (取运行目录 () ＋ “/Skin/login-box.htm”)
User ＝ “admin”
Pass ＝ “8888”
Hwnd.事件_挂接元素事件 (&主窗口_特性事件, #筛选事件_特性事件)

.子程序 主窗口_特性事件, 逻辑型
.参数 参数_元素句柄, 整数型, , he
.参数 参数_目标元素句柄, 整数型, , target
.参数 参数_事件类型, 整数型, , type “特性事件_”开头常量
.参数 参数_额外参数, 整数型, , reason 根据不同事件而定
.局部变量 局部_元素, HL元素
.局部变量 局部_属性, 文本型
.局部变量 参数_ID, 文本型

.如果真 (位与 (参数_事件类型, #事件阶段掩码_已处理) ＝ #事件阶段掩码_已处理)
    参数_事件类型 ＝ 位与 (参数_事件类型, 32767)
.如果真结束
.判断开始 (参数_事件类型 ＝ #特性事件_编辑值已改变)
    局部_元素.置句柄 (参数_元素句柄)
    参数_ID ＝ 局部_元素.取属性 (“id”)
    .如果真 (参数_ID ＝ “user”)
        编辑框_Us.置句柄 (参数_元素句柄)
    .如果真结束
    .如果真 (参数_ID ＝ “pass”)
        编辑框_Pa.置句柄 (参数_元素句柄)
    .如果真结束

.默认

.判断结束

.判断开始 (参数_事件类型 ＝ #特性事件_按钮被按下)
    局部_元素.置句柄 (参数_目标元素句柄)
    局部_属性 ＝ 局部_元素.取文本 ()
    .如果真 (局部_属性 ＝ “login”)
        .如果真 (编辑框_Us.取文本 () ＝ “”)
            信息框 (“账号不能为空！”, #信息图标, )
            返回 (真)
        .如果真结束
        .如果真 (编辑框_Pa.取文本 () ＝ “”)
            信息框 (“密码不能为空！”, #信息图标, )
            返回 (真)
        .如果真结束

        .如果 (编辑框_Us.取文本 () ＝ User)
            .如果 (编辑框_Pa.取文本 () ＝ Pass)
                信息框 (“恭喜,登录成功！”, #信息图标, )

            .否则
                信息框 (“密码错误！”, #信息图标, )

            .如果结束

        .否则

            信息框 (“账户不存在！”, #信息图标, )

        .如果结束

    .如果真结束

.默认

.判断结束
返回 (真)

@Blankness