杭州交通信息网筹集善款箱子:VB-难题3！续难题2
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/19 22:20:14
还是关于TIMER2的问题
Private Sub Timer2_Timer()
Dim i As Long
With ListView1.ListItems
For i = .Count To 1 Step -1
If ListView1.ListItems(i).Text = "TEXT91" Or "TEXT18" Then '我想要TMER2检测到列表上有若TEXT91*****和TEXT18*****出现就关闭程序
End
End If
Next
End With
End Sub
请看有注解的那一行代码，现在我用OR，希望TIMER2能两个（n个）数值都可以检测得到。请问应该怎么做？用OR不行啊～～～好说类型不符合！
Private Sub Timer2_Timer()
Dim i As Long
With ListView1.ListItems
For i = .Count To 1 Step -1
If ListView1.ListItems(i).Text = "TEXT91" Or "TEXT18" Then '我想要TMER2检测到列表上有若TEXT91*****和TEXT18*****出现就关闭程序
End
End If
Next
End With
End Sub
请看有注解的那一行代码，现在我用OR，希望TIMER2能两个（n个）数值都可以检测得到。请问应该怎么做？用OR不行啊～～～好说类型不符合！
ListView1.ListItems(i).Text = "TEXT91" Or ListView1.ListItems(i).Text = "TEXT18"
or 的两边必须是关系表达式！你的写法会让编译器误会
"TEXT18"是个独立的表达式！hoho
要N个的话做个数组循环吧 类似
ls="text1,text2"
lsa=split(ls,",")
for i=0 to ubund(lsa)
if listviews1.listitems(i).text= lsa(i) then
'退出
end if
next
小A同学还是好好练练基本功吧,呵呵