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

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

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就，略过。

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

装在其它电脑上的win7系统

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