|
2精币
.版本 2
.程序集 窗口程序集1
.程序集变量 长度, 小数型
.程序集变量 方向, 文本型
.子程序 __启动窗口_创建完毕
方向 = “左”
画板2.字体 = 标签2.字体
长度 = 画板2.取高度 (“A”) ÷ 2
.子程序 _时钟1_周期事件
.如果真 (标签1.左边 = 0)
方向 = “右”
.如果真结束
.如果真 (标签1.左边 + 标签1.宽度 = 画板1.宽度)
方向 = “左”
.如果真结束
.如果 (方向 = “左”)
标签1.左边 = 标签1.左边 - 1
.否则
标签1.左边 = 标签1.左边 + 1
.如果结束
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
标签2.标题 = 到文本 (读入文件 (通用对话框1.文件名))
标签2.宽度 = 取文本长度 (标签2.标题) × 长度
标签2.左边 = 画板2.宽度
时钟2.时钟周期 = 10
.如果真结束
.子程序 _时钟2_周期事件
.如果真 (标签2.左边 + 标签2.宽度 = 0)
标签2.左边 = 画板2.宽度
.如果真结束
标签2.左边 = 标签2.左边 - 1
这两句不理解
长度 = 画板2.取高度 (“A”) ÷ 2
标签2.宽度 = 取文本长度 (标签2.标题) × 长度 |
最佳答案
查看完整内容
调试输出(画板2.取高度 (“A”))'得到16
所以:长度=8
调试输出(取文本长度 (标签2.标题))'打开文本长度
标签2.宽度 = 取文本长度 (标签2.标题) × 8
|