Question

按键精灵程序多选框获取输入框内容为变量

Answer 1

多选框获取变量？什么意思？说明白点谢谢，是不是QUI界面变动有问题？如果是因为点选多选框无效的话，那是因为脚本每个事件是不同的，就是说多选框1和多选框2里面的变量变动是不会相互影响的，脚本未启动的话界面设置是不会提取脚本内的任何数据的，只会根据那个事件内的变量来变动，我建议你增加几个隐藏的输入框，然后根据那几个隐藏的输入框内的文本来判断命令，比如点选了多选框1那么输入框1里面的文本变化为XX，同时点选会变化为XX，然后根据最终输入框文本内的内容来判断代码，下面是我的示例代码，运行需求是两个多选框和一个输入框25，输入框25在脚本完成后可以改为隐藏的，其实事件代码只要完成了一个就可以直接复制过去了，只是改一下名字罢了。

A = Form1.InputBox25.Text
B = Array("a1+", "a2+")
C = Array("多选框1", "多选框2")
For i = 0 To UBound(B)
    If InStr(A, B(i)) <> 0 Then 
        MessageBox "选中了" & C(i)
    Else 
        TracePrint "没选中" & C(i)
    End If
Next
Event Form1.LoadOver
    Form1.InputBox25.Text = ""
    Form1.CheckBox1.value = 0
    Form1.CheckBox2.value=0
End Event
Event Form1.CheckBox1.Click
    A = Form1.InputBox25.Text
    If Form1.CheckBox1.value = 1 Then 
        Form1.InputBox25.Text = A & "a1+"
    ElseIf Form1.CheckBox1.value = 0 Then
        Form1.InputBox25.Text = Replace(A, "a1+", "")
    End If
    TracePrint Form1.InputBox25.Text
End Event
Event Form1.CheckBox2.Click
    A = Form1.InputBox25.Text
    If Form1.CheckBox2.value = 1 Then 
        Form1.InputBox25.Text = A & "a2+"
    ElseIf Form1.CheckBox2.value = 0 Then
        Form1.InputBox25.Text = Replace(A, "a2+", "")
    End If
    TracePrint Form1.InputBox25.Text
End Event