按键精灵安卓-【UI界面】把多选框变成单选框

界面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]