要多想问题啊..


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

郁闷,图我放到yahoo相册里面的 昨天上传的时候看的到
等我上完两节课再来想办法

[IMG]http://blog.sina.com.cn/pic/3fbe2957020001wq[/IMG]

运行起来就看到网址
[IMG]http://blog.sina.com.cn/pic/3fbe2957020001wr[/IMG]
我需要含有html的那些

看不见图 直接点它在新窗口中打开

要多想问题啊..


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