高考问答草原不寂寞广场舞:VB-难题2！请高手进入！！！！！！！！！！
来源：百度文库 编辑：高考问答 时间：2024/04/27 18:44:39
Private Sub Command1_Click()
Dim logRow As Long
For logRow = 1 To 100 '把TEXT＋LOGROW 一直列表到TEXT100。
ListView1.ListItems.Add , , "text" & CStr(logRow)
Next logRow
'现在我把TIMER1换成CMD，打出列表
End Sub
Private Sub Form_Load()
ListView1.ColumnHeaders.Clear '设置LISTVIEW。
ListView1.ListItems.Clear
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , " 文本好", 1500
End With
End Sub
Private Sub Timer2_Timer()
Dim i As Long
With ListView1.ListItems
For i = .Count To 1 Step -1
If ListView1.ListItems(i).Text = "TEXT91" Then '我想要TMER2检测到列表上有若TEXT91出现就关闭程序
End
End If
Next
End With
End Sub
……………………………………………………
TIMER2，怎样都不能识别出来。。。。。晕
Dim logRow As Long
For logRow = 1 To 100 '把TEXT＋LOGROW 一直列表到TEXT100。
ListView1.ListItems.Add , , "text" & CStr(logRow)
Next logRow
'现在我把TIMER1换成CMD，打出列表
End Sub
Private Sub Form_Load()
ListView1.ColumnHeaders.Clear '设置LISTVIEW。
ListView1.ListItems.Clear
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , " 文本好", 1500
End With
End Sub
Private Sub Timer2_Timer()
Dim i As Long
With ListView1.ListItems
For i = .Count To 1 Step -1
If ListView1.ListItems(i).Text = "TEXT91" Then '我想要TMER2检测到列表上有若TEXT91出现就关闭程序
End
End If
Next
End With
End Sub
……………………………………………………
TIMER2，怎样都不能识别出来。。。。。晕
"text" 小写！ "TEXT91" 大写！
晕晕晕！