在XP上编译的程序,在win7 上运行就出现这种错误提示。

[ 本帖最后由 lzb3158 于 2015-2-10 07:37 编辑 ]

这个不是VB自带的错误提示信息，原因有两点：
1.提示框标题不应该是“ERROR！！！"
2.错误提示信息应该是这样的：“Runtime Error "10054"”
所以，这应该是用on error语句转到另外一个代码出现的提示框，该错误处理代码可能是
Msgbox "GetMsg Error 10054","ERROR!!!"
如果要排错，就把错误处理模块去掉，就是不要有On error语句
否则无法排错.

Private Sub Command1_Click()
Dim S1 As String, I As Long, J As Long
Dim S2 As String, S3 As String
Open "c:\temp.txt" For Input As #1
S1 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
I = InStr(S1, "59")
On Error Resume Next
J = InStr(I, S1, vbNewLine)
S2 = Mid(S1, I + 3, J - I - 18)
Text1.Text = S2
End Sub

我使用了防止出错代码 On Error Resume Next 如果记事本了没有查找到相关信息就会出错，这个改怎么改一下呢？意思说没有查找到59就，略过。

on error rusume next应该已经有错误处理了，不应该再出现啊
只有一个可能：
13号错误：变量未定义
查一下你的变量是否定义过，而且全局变量不能和局部变量同名。

但是在xp上，某些win7上没有出现这个提示！

“某些”Win 7指什么？

装在其它电脑上的win7系统

分别是什么版本？
正常运行的是什么版本？家庭版？专业版？企业版？旗舰版？32位？64位？
异常运行的呢？
这些都要说。
这应该是运行环境缺少必要的组件，你是不是多加了一些控件？

我在旗舰版32位测试正常，在win7上主要是 CommonDialog1、Winsock1这两个控件报错。现在我主要启动就检测系统里是否带有这个2个控件，如果没有就复制到相关目录并注册，然后才启动主程序。在其他win7版上没有亲自测试。

这是可行方案，当然前提是你的问题是因为本地电脑无控件造成的。