太极实业同花顺:VB-中等题!请各位高手进来!!

来源：百度文库编辑：高校问答时间：2024/04/30 04:36:25

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
……………………………………………………
以上的操作必须要是大写!!能不能让它支持大小混写?
也就是说"TEXT"这个东西一定要是大写,要与下面的对应,如何使它大小写都可以识别出来?

晕！还是那个老问题啊？

If Ucase(ListView1.ListItems(i).Text) = "TEXT91" Then '我想要TMER2检测到列表上有若

这样就可以了！

偶才五年级

VB-中等题!请各位高手进来!! 请VB高手进来。 VB-中等题!!大家进来看看怎么解? 请VB高手进来解决这个问题请VB高手进来帮帮我啊 VB 问题高手进来 VB中等问题，请教各大高手！ VB中等问题，请教各大高手！关于VB，VB高手进来~！请各位语文高手进来探讨几道语文题！