————————————————(_启动窗口 代码)————————————————
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 A, 整数型
.子程序 _时钟1_周期事件, , , 渐现
.如果 (A < 255)
A = A + 1
设置窗口透明度 (_启动窗口.取窗口句柄 (), A)
.否则
时钟备饥睁1.时钟周期 = 0
A = 255
时钟2.时钟周期 = 10
.如果结束
.子程序 _时钟2_周期事件, , , 渐隐
.如果 (A > 0)
A = A - 1
设置窗口透明度 (_启动窗口.取窗口句柄 (), A)
.否则
时钟2.时钟周期 = 0
载入 (窗口1, , 真)
销毁 () ' 销毁 有图片的这个窗口
.如果结束
.子程序 __启动窗口_创建完毕
边框 = 0 '肢纯 无边框
底图 = #背景图
设置窗口透明度 (_启动窗口.取窗口句柄 (), 0)
时钟1.时钟周期 = 10 ' 渐隐渐现
A = 0 ' 初始数0 最大为255
——仿岁——————————窗口1 即为你的程序主窗口———————————————
给你一个简单一点的源码,因为不知道你要的是什么效果只要一个时钟,然后吧你的图片载入资源库 .版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕_启动窗口.边框 = 0 ' 不要边框_启动窗口.宽度 = 取屏幕宽度 () ' 全屏
_启动窗口.高度 = 取屏幕桐告高度 () ' 全屏
时钟1.时钟周期 = 1000 ' 开始换图.子程序 _时钟1_周期事件
.局部变量 随机数, 整数型置随机数种子 ()
随机数 = 取随机数 (1, 3) ' 假设三幅图片
.如果 (随机数 = 1)
_启动窗口.底图 = #图1
.否则.如果结庆没束
.如果 (随机数 = 2)
_启动窗口.底图 = #图2
.否则.如果结束
.如果 (随机数 = 3)
_启动窗口.底图 = #图3
.否则.如果结束 如果要高级或者复杂点的请说局差明清除点
经试验,是可行的,只是你代码写错了。你把图片框1写成图片框15了。这是我的代好嫌亩码:
.版本 2
.子程序 _图片框1_鼠标左键友森被按下, 逻辑型
.参数 横向位置, 整数型者岩
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (通用对话框1.打开 ())
图片框1.图片 = 读入文件 (通用对话框1.文件名)
.如果真结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)