按键精灵简单问题

Yifan2007

已老实，如图想实现注释上的功能  这里加case判断任务顺序(i)进行对应任务Call
应该加什么，本小白白改了一早上没改出来,附上源码(源码地址：https://bbs.anjian.com/showtopic-701281-1.aspx最后一个例子)





任务顺序 = Split(Form1.ListBox1.List, "|")
For i = 0 To UBound(任务顺序)
If instr(任务顺序(i), "√") > 0 Then
TracePrint 任务顺序(i)

'这里加case判断任务顺序(i)进行对应任务Call
End If
Next

xbang

应该是个整数型的。可以用 i
Select Case  i

Yifan2007

帮忙的大哥可以看一下我丢的链接最后一个例子，也就是第三个例子，原帖有图片

Yifan2007

@xbang

xbang

Select Case 任务顺序(i)//这个是变化的。调试返回值。下面根据返回的值，调佣
Case 0
    //情况1
    Call 子程序--sub1
Case 1
    //情况2
     Call 子程序--sub2
Case Else
    //否则
End Select

Yifan2007

xbang 发表于 2024-7-12 10:53
Select Case 任务顺序(i)//这个是变化的。调试返回值。下面根据返回的值，调佣
Case 0
    //情况1

这个例子我知道，但是select case 任务顺序   这一行会报错类型错误，读不出来