Private Sub Form_Activate()
On Error Resume Next
Dim statingaddress '定义开始地址statingaddress
Me.Show
Combo1.Clear
toolbar.Refresh
Open "url.txt" For Input As #2
Input #2, statingaddress
Close #2
If Len(statingaddress) > 0 Then
Combo1.Text = statingaddress
Combo1.AddItem statingaddress
WebBrowser1.Navigate statingaddress
End If
End Sub

有谁能告诉我每行代码的意思
谢谢!

代码没抄全吧On Error Resume Next
你的next部分代码呢，大概意思是将url。txt的内容输入到combo中吧，我也只是看代码这么认为的，不一定对哦，呵呵

希望你先看看VB的基础语法.

On Error Resume Next 的错误处理方式，只要这一句就可以了，Next是指执行出错地方的下一句，楼主写的是对的，呵呵！！

[此贴子已经被作者于2007-1-23 15:50:38编辑过]

代码的意思是：从url这个文本文件里面读出某一个路径地址，将其添加并显示到combo里面，同时再用浏览器打开上述读出的路径地址.

我知道On Error Resume Next 是错误处理方式，他写了出错就执行NEXT语句部分，可是又没写NEXT部分语句，所以我才说没抄全呀

On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。

楼上正解 ON Error Resume Next 就是说出错就不执行当前代码 而是继续往下跑. 显然 这不是一种好的编码方式 一般只在特定情况下才用

哈哈，你再这样说人家就要笑死了。
已经有人给你指出了。你还坚持
这一句的意思是：如果出错，执行下一句
NEXT就是下一个的意思啊。
用这个有优点也有缺点，优点就是你不用写出错处理，缺点是：不知道有没有出错。