100 分 请问哪里有 vb err.number  所有错误代码的详细列表啊  谢谢啦

解决方案 »

  1.   

    顶一下,有的话也发我一份
    [email protected]
      

  2.   

    可捕获的错误
       可捕获的错误通常发生在应用程序运行时,但也有一些会发生在开发期间或编译时间。可使用 On Error 语句与 Err 对象来探测并回应可捕获的错误。1 – 1000 之间未使用的错误号都是保留给 Visual Basic 以后使用的。代码 信息 
    3没有返回的GoSub5无效的过程调用6溢出7内存不足9数组索引超出范围10此数组为固定的或暂时锁定11除以零13类型不符合14字符串空间不足16表达式太复杂17不能完成所要求的操作18发生用户中断20没有恢复的错误28堆栈空间不足35没有定义 子程序、函数,或属性47DLL 应用程序的客户端过多48装入 DLL 时发生错误49DLL 调用规格错误51内部错误52错误的文件名或数目53文件找不到54错误的文件方式55文件已打开57 I/O 设备错误58文件已经存在59记录的长度错误61磁盘已满62输入已超过文件结尾63记录的个数错误67文件过多68设备不可用70没有访问权限71磁盘尚未就绪74不能用其他磁盘机重命名75路径/文件访问错误76找不到路径91尚未设置对象变量或 With 区块变量92For循环没有被初始化93无效的模式字符串94Null 的使用无效97不能在对象上调用 Friend 过程,该对象不是定义类的实例298系统 DLL 不能被加载320在指定的文件中不能使用字符设备名321无效的文件格式322不能建立必要的临时文件325源文件中有无效的格式327未找到命名的数据值328非法参数,不能写入数组335不能访问系统注册表336ActiveX 部件不能正确注册337未找到 ActiveX 部件338ActiveX 部件不能正确运行360对象已经加载361不能加载或卸载该对象363未找到指定的 ActiveX 控件364对象未卸载365在该上下文中不能卸载368指定文件过时。该程序要求较新版本371指定的对象不能用作供显示的所有者窗体380属性值无效381无效的属性数组索引382属性设置不能在运行时完成383属性设置不能用于只读属性385需要属性数组索引387属性设置不允许393属性的取得不能在运行时完成 394属性的取得不能用于只写属性400窗体已经显示,不能显示为模式窗体402代码必须先关闭顶端模式窗体419允许使用否定的对象422找不到属性423找不到属性或方法424需要对象425无效的对象使用429ActiveX 部件不能建立对象或返回对此对象的引用430类不支持自动操作432在自动操作期间找不到文件或类名438对象不支持此属性或方法440自动操作错误442连接至型态程序库或对象程序库的远程处理已经丢失443自动操作对象没有默认值445对象不支持此动作446对象不支持指定参数447对象不支持当前的位置设置448找不到指定参数449参数无选择性或无效的属性设置450参数的个数错误或无效的属性设置451对象不是集合对象452序数无效453找不到指定的 DLL 函数454找不到源代码455代码源锁定错误457此键已经与集合对象中的某元素相关458变量使用的型态是 Visual Basic 不支持的459此部件不支持事件460剪贴板格式无效 未找到方法或数据成员 
    462远程服务器机器不存在或不可用463类未在本地机器上注册480不能创建 AutoRedraw 图象481图片无效482打印机错误483打印驱动不支持指定的属性484从系统得到打印机信息时出错。 确保正确设置了打印机485无效的图片类型486不能用这种类型的打印机打印窗体图象520不能清空剪贴板521不能打开剪贴板735不能将文件保存至 TEMP 目录744找不到要搜寻的文本746取代数据过长31001内存溢出31004无对象31018未设置类31027不能激活对象31032不能创建内嵌对象31036存储到文件时出错31037从文件读出时出错
    MSDN上的,不全
      

  3.   

    '自己列出来看吧:
    Private Sub Command1_Click()
    For i = 0 To 65535
    Label1.Caption = i
    DoEvents
    Debug.Print Str(i) & "   " & Error(i)
    DoEvents
    Next
    End Sub
      

  4.   

    Private Sub Command1_Click()
     MsgBox Text1.Text & "的错误的意思是" & Error(Text1.Text)
    End Subtext1里边输入错误号就可以了,随时查询