vb程序运行时错误438
朋友给我发了个程序,好像是VB编的。但是我的电脑是win7操作系统,打开时出现了如图所示,我想问一下是不是我的电脑缺少什吗软件,还是其他的原因?能够解决的我悬赏50分!如...
朋友给我发了个程序,好像是VB编的。但是我的电脑是win7操作系统,打开时出现了如图所示,我想问一下是不是我的电脑缺少什吗软件,还是其他的原因?
能够解决的我悬赏50分!
如图所示 展开
能够解决的我悬赏50分!
如图所示 展开
5个回答
展开全部
第一,关于报错的问题,你可以使用on error resume next语句
第二,关于让程序知道已经取消自启动的问题有两种方式处理:
1.可以检查注册表
2.可以在执行完删除注册表后,在本地创建一个标示文件,点击按钮时先检验标示文件即可 ,给你一个实例代码吧
fno=freefile()
Open App.Path & "\states.ini" For Input As #1
Do Until EOF(1)
Line Input #1, a
Loop
Close #1
if val(a)<>1 then
'这里填写你的删除注册表的操作
'这一部分是用来把状态写进文件的
Open App.Path & "\States.ini" For Output As #fno
Print #fno, 1
Close #fno
else
msgbox "已经操作过了!"
end if
第二,关于让程序知道已经取消自启动的问题有两种方式处理:
1.可以检查注册表
2.可以在执行完删除注册表后,在本地创建一个标示文件,点击按钮时先检验标示文件即可 ,给你一个实例代码吧
fno=freefile()
Open App.Path & "\states.ini" For Input As #1
Do Until EOF(1)
Line Input #1, a
Loop
Close #1
if val(a)<>1 then
'这里填写你的删除注册表的操作
'这一部分是用来把状态写进文件的
Open App.Path & "\States.ini" For Output As #fno
Print #fno, 1
Close #fno
else
msgbox "已经操作过了!"
end if
展开全部
光说个错误号是没用的,你最好装上VB,再运行源程序,看看问题出在哪里。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把报错的那句代码贴出来、、、、、、、、、、
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
应该是这个程序不支持win7吧!兼容性问题
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
缺少vb运行环境
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询