重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb.net程序出错后再重启程序,目前我能实现的最好的方法就是
成都创新互联公司专注于企业网络营销推广、网站重做改版、衢江网站定制设计、自适应品牌网站建设、HTML5、购物商城网站建设、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为衢江等各大城市提供网站开发制作服务。
先用shell命令 “生一个儿子”,然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工!!!
你需要两个创建两个程序...
首先在你的主程序的代码里面添加它们:
'main program
public sub restart()
shell app.path "\restart.exe " app.path "你的主程序的名字.exe",vbhide
end
end sub
用于重启的程序,叫做restart.exe
先创建标准exe工程
然后再在右边的工程资源管理器中右键点击form1
在弹出的菜单中选择移除form1
然后点击菜单条上面的添加模块
在新添加的module1里添加它们
'restart program
sub main
shell command
end sub
生成exe到你的主程序所在的目录
这时你便可以在主程序的任意地方添加一行restart来重新启动你的程序了
VB.NET调用IE代码示例:
Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种VB.NET调用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
同类问题讲的是代码部分。回答说需要重新编译。但是我的VB2008不知道重新编译按钮在哪里。重新生成无效。
为什么VB.NET修改代码后,依然运行原来的状态?这是同样的问题。有网友回答:在工程项目上,使用鼠标右键的菜单栏,选择“”重新编译“”一下,应该就OK了
我的认识是这样:一般是因为你没有修改完错误表里要害错误,比如变量声明。如果是这样,你可以修改一部分致命错误,我说的不是VB6,而是VB2008。你不修改,它不执行更新部分,它有很好的记忆力。
以上是因为点击了不再显示,需要恢复错误提示。VB2008在工具-选项界面下方有“显示所有设置”前面方框需勾选才能有后文:--生成并运行 。右边会有:运行时当出现生成或部署错误时。 把下拉框点开你就能看到了。