界面1: { 标签页1: { 多选框: { 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性", 名称:"多选框_主线", 提示内容:"主线任务", 点击响应:"主线任务", 选中:true, 文字大小:0, 高度:0, 宽度:0 }, 多选框: { 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性", 名称:"多选框_日常", 提示内容:"日常任务", 点击响应:"日常任务", 选中:false, 文字大小:0, 高度:0, 宽度:0 }, 多选框: { 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性", 名称:"多选框_悬赏", 提示内容:"悬赏", 点击响应:"悬赏", 选中:false, 文字大小:0, 高度:0, 宽度:0 }, 多选框: { 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性", 名称:"多选框_突破", 提示内容:"突破", 点击响应:"突破", 选中:false, 文字大小:0, 高度:0, 宽度:0 }, }, } 右侧代码 Function 重置(当前选项) Dim 选项列表() 选项列表(0) = "多选框_主线":选项列表(1)="多选框_日常" 选项列表(2) = "多选框_悬赏":选项列表(3)="多选框_突破" For each 选项 in 选项列表 If 选项 当前选项 Then UIP.SetAttribute 选项, {"选中":false} Else UIP.SetAttribute 选项, {"选中":true}//这一句保证永远有一个选项被选中 End If Next End Function Function 主线任务 重置("多选框_主线") End Function Function 日常任务 重置("多选框_日常") End Function Function 悬赏 重置("多选框_悬赏") End Function Function 突破 重置("多选框_突破") End Function [/hide]
|