有两个Listbox(List1,List2),一个command(cmd1)
List1中存放的是学生的数据如下
吴 兵 数学 85分 |
许 杨 数学 82分 |
周志鹏 数学 73分 |
李小芳 数学 76分 |
毛 敏 数学 85分 |
..... |
..... |
..... |
..... |
... |
谁帮帮我啊 急需!!!
[此贴子已经被作者于2006-3-8 14:14:06编辑过]
吴 兵 数学 85分 |
许 杨 数学 82分 |
周志鹏 数学 73分 |
李小芳 数学 76分 |
毛 敏 数学 85分 |
..... |
..... |
..... |
..... |
... |
上传了.
没运行的时候是这样的
[IMG]http://cn.f11.yahoofs.com/users/440d778az356ff775/a654/__sr_/7ef1cnb.jpg?phwItDEBuECGEorV[/IMG]
运行起来就是这样的
[IMG]http://cn.f11.yahoofs.com/users/440d778az356ff775/a654/__sr_/aa87cnb.jpg?phwItDEBhj35sVJR[/IMG]
代码是这样
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=49094&page=1"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim x As Long
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End Sub
现在我在list1中有很多网址,比如说我要提出含有html字样的网址放到List2中来
这下应该清楚了吧