按键精灵 为什么我选择了下拉选项后 脚本都不会执行 Event Form1.血量.SelectChange 以下的代码呢？

Question

FindPic 0,0,1920,1080,"Attachment:\czw.bmp",0.9,czwX,czwY
If czwX > 0 And czwY > 0 Then
//MoveTo czwX, czwY
Delay 1000
End If
Event Form1.血量.SelectChange
Select Case Form1.ComboBox1.ListIndex
//索引项从0开始
Case 0
IfColor czwX + 80, czwY - 36, "010101", 0 Then
MoveTo czwX + 80, czwY - 36
KeyPress "6", 1
Delay 200

Else
End If

//Msgbox "你选中的下拉选项值是：1"
Case 1
IfColor czwX + 80, czwY - 26, "010101", 0 Then
MoveTo czwX + 80, czwY - 26
KeyPress "6", 1
Delay 200
Else
End If
//Msgbox "你选中的下拉选项值是：2"
Case 2
IfColor czwX + 80, czwY - 16, "010101", 0 Then
MoveTo czwX + 80, czwY - 16
KeyPress "6", 1
Delay 200
Else
End If
//Msgbox "你选中的下拉选项值是：3"
Case 3
IfColor czwX + 80, czwY - 6, "010101", 0 Then
MoveTo czwX + 80, czwY - 6
KeyPress "6", 1
Delay 200
Else
End If
//Msgbox "你选中的下拉选项值是：4"
Case 4
IfColor czwX + 80, czwY + 6, "010101", 0 Then
MoveTo czwX + 80, czwY + 6
KeyPress "6", 1
Delay 200
Else
End If
//Msgbox "你选中的下拉选项值是：5"
//判断为空
Case Else
Msgbox "没有选择任何值"
End Select

End Event

Answer 1

你应该用if来判断下拉选项如下面代码：
Dim 索引, 选项
索引 = Array(0,1,2,3,4,5,6,7,8,9) //设置选项对应值
选项 = 索引(Form1.ComboBox1.ListIndex) //得到选项对应值

Event Form1.Load //界面初始值设置
Form1.ComboBox1.List = "选项0|选项1|选项2|选项3|4|5|6|7|8|9"
Form1.ComboBox1.ListIndex = 选项0 //初始值
End Event
//判断选项
if 选项 = 0 Then

ElseIf 选项 = 1 Then

ElseIf 选项 = 2 Then

End If

以此类推知道吗？

Answer 2

下拉框可以不用Event
直接用Form1.（下拉框名称）.（初始选项）

Answer 3

你的血量是什么控件追问

血量是下拉框的名称

追答

Event Form1.血量.SelectChange
Select Case Form1.ComboBox1.ListIndex
//索引项从0开始

你这里是两个控件 还是一个控件？控件名称不一样。

追问

我本意是通过下拉菜单来选择我要触发的下面的case ，是不是我名字用错了还是杂的

追答

是

追问

我是新手 改哪个名字呢？·

追答

私信我吧