API创建窗口组件例程

易语言 2020-06-29 20:20:40

窗口上的组件直接创建不用再注册了。
.如果真 (消息值 = 1)
时钟 (窗口句柄, 时钟id, 1000, 0)
编辑框 = 创建窗口 (512, “Edit”, “”, 1342177280, 50, 50, 200, 25, 窗口句柄, 编辑框id, 模块句柄, 0)
按钮 = 创建窗口 (512, “Button”, “按我啊”, 1342177280, 90, 100, 100, 40, 窗口句柄, 按钮id, 模块句柄, 0)
返回 (缺省窗口函数 (窗口句柄, 消息值, 参数1, 参数2))
.如果真结束
.如果真 (消息值 = 273)
.如果真 (参数1 = 按钮id)
消息 (编辑框, 12, 17, “易语言api应用举例”)
.如果真结束
返回 (缺省窗口函数 (窗口句柄, 消息值, 参数1, 参数2))
.如果真结束
.如果真 (消息值 = 275)
.如果真 (参数1 = 时钟id)
消息 (窗口句柄, 12, 取文本长度 (到文本 (取现行时间 ())), 到文本 (取现行时间 ()))
.如果真结束
返回 (缺省窗口函数 (窗口句柄, 消息值, 参数1, 参数2))
载入系统默认的程序图标,当然你也可以用自己的图标替换。