要用的组件
一个标签命名为“标签”
一个编辑框命名为“编辑框”
.版本 2
.程序集 窗口程序集1
.子程序 _编辑框_内容被改变
标签.标题 =棚携仔 编辑框.内容
呵呵,简单吧!
.版本 2.支持库 xplib
.支持库 EdirectX
.子程序 __启动窗口_创建完毕
置外形图片 (底图, #黑色)
屏幕.创建窗口模式 (取窗口句柄 (), 宽度, 高度)
.子程序 __启动窗口_可否被关闭, 逻辑型
RedrawWindow (0, 0, 0, 位或 (#RDW_INVALIDATE, #RDW_ALLCHILDREN, #RDW_UPDATENOW))
.子程序 _按钮1_被单击
.局部变量 tmp, 页面
RedrawWindow (0, 0, 0, 位或 (#RDW_INVALIDATE, #RDW_ALLCHILDREN, #RDW_UPDATENOW))
tmp = 屏幕.取前端页面 ()
tmp.选择字体 (到文本 (组合框1.内容), 到数值 (组合框2.内容), 到数值 (组合框2.内容), 到数值 (组合框2.内容))
tmp.写文字 (0, 0, 颜色选择器枣灶1.颜色, 编辑框1.内容)
tmp.写文字 (0, 140, 颜纤岩悄色选择器1.颜色, 编辑框2.内容)
tmp.写文字 (0, 280, 颜色选择器1.颜色, 编辑框3.内容)
tmp.写文字 (0, 420, 颜色选择器1.颜色, 编辑框4.内容)
tmp.写毁渣文字 (0, 560, 颜色选择器1.颜色, 编辑框5.内容)
tmp.写文字 (0, 700, 颜色选择器1.颜色, 编辑框6.内容)
tmp.写文字 (0, 840, 颜色选择器1.颜色, 编辑框7.内容)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)