要多想问题啊..
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "html") Then
List2.AddItem List1.List(i)
End If
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "html") Then
List2.AddItem List1.List(i)
End If
Next
End Sub
我的msn: myfend@