|
楼主 |
发表于 2010-4-23 08:20:54
|
显示全部楼层
吉林省长春市
修复一个BUG 机器号只能显示最后一位 修复了一下- .版本 2
- .支持库 sock
- .支持库 spec
- .子程序 __启动窗口_创建完毕
- .局部变量 机器名, 文本型
- .局部变量 网吧名, 文本型
- .局部变量 显示位置, 文本型
- rtn = GetWindowLong (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE)
- rtn = 位或 (rtn, #WS_EX_LAYERED)
- SetWindowLong (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE, rtn)
- SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), #白色, 200, 3)
- 时钟1.时钟周期 = 1000
- 显示位置 = 读配置项 (取当前目录 () + “\配置.ini”, “显示位置”, “位置”, )
- .如果真 (显示位置 = “1”)
- _启动窗口.位置 = 1
- .如果真结束
- .如果真 (显示位置 = “2”)
- _启动窗口.移动 (取屏幕宽度 () - 宽度, 10, , )
- .如果真结束
- .如果真 (显示位置 = “3”)
- _启动窗口.移动 (取屏幕宽度 () - 宽度, 取屏幕高度 () - 20 - 高度, , )
- .如果真结束
- 滚动文本 = 读配置项 (取当前目录 () + “\配置.ini”, “网吧公告”, “公告”, )
- 网吧名 = 读配置项 (取当前目录 () + “\配置.ini”, “网吧名”, “名”, )
- 机器名 = 取本机名 ()
- 机器名 = 取文本右边 (机器名, 3)
- 调试输出 (机器名)
- .如果 (取文本左边 (机器名, 1) = “0”)
- 机器名 = 取文本右边 (机器名, 2)
- .如果真 (取文本左边 (机器名, 1) = “0”)
- 机器名 = 取文本右边 (机器名, 1)
- .如果真结束
- .否则
- .如果结束
- 标签2.标题 = 机器名 + “号机器”
- 标签3.标题 = 网吧名 + “欢迎您”
- 时钟2.时钟周期 = 5
复制代码 |
|