里面代码有错误现已经更改,代码如下:
界面1:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"--这是帅气的自定义界面--",
文字大小:25,
高度:0,
宽度:0
},
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"!!!功能列表!!!",
文字大小:22,
高度:0,
宽度:0
},
多选框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"生产1元钞票",
提示内容:"生产1元钞票",
选中:true,
文字大小:0,
高度:0,
宽度:0
},
多选框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"生产10元钞票",
提示内容:"生产10元钞票",
选中:true,
文字大小:0,
高度:0,
宽度:0
},
多选框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"生产50元钞票",
提示内容:"生产50元钞票",
选中:true,
文字大小:0,
高度:0,
宽度:0
},
水平布局:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"生成速率",
文字大小:0,
高度:0,
宽度:0
},
下拉框:
{
注释:"初始选项是可选属性,默认值为0。模版中设置了三个选项,您可以根据需要增加或减少,注意各选项之间用逗号分隔。",
名称:"生成速度",
选项:
[
"1张每秒",
"10张每秒",
"100张每秒",
],
初始选项:2
},
},
水平布局:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"输入口令",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"逗你玩~~",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:600
},
},
}
///////////////////////////////////////
Delay 1000
Dim 速率
速率 = ReadUIConfig("生成速度")
If 速率 = 0 Then
TracePrint "用户选择的生成速率是10张每秒"
ElseIf 速率 = 1 Then
TracePrint "用户选择的生成速率是50张每秒"
ElseIf 速率 = 2 Then
TracePrint "用户选择的生成速率是100张每秒"
End If
Dim 是否生产1元钞票,是否生产10元钞票,是否生产50元钞票
是否生产1元钞票 = ReadUIConfig("生产1元钞票")
是否生产10元钞票 = ReadUIConfig("生产10元钞票")
是否生产50元钞票 = ReadUIConfig("生产50元钞票")
If 是否生产1元钞票 = true Then
TracePrint "用户有生产1元钞票"
End If
If 是否生产10元钞票 = true Then
TracePrint "用户有生产10元钞票"
End If
If 是否生产50元钞票 = true Then
TracePrint "用户有生产50元钞票"
End If