vb6编译的时候自动退出
❶ 使用vb6.0编写程序时，当我调试某些程序时会自动关闭，这是为啥
初始化失败你也可以撒 只不过那些程序加了这代码而已On error goto Err 在程序尾部添加如下代码：Err: MsgBox "初始化失败",16,"错误"即可 意思是 如果程序启动的时候遇到错误就弹出 初始化失败 以上代码放在窗体form_load事件中 或者把工程启动对象设置为Sub_main()那么就在主函数sub_main()下写入以上代码即可 你说的会自动关闭 有可能是你的代码问题 你自己检查一下 是不是程序运行的时候你用了unload或者关闭窗体这类的代码 还有就是 你程序在运行的时候出错了 自动退出 如果是这样的话 那你就要检查你的代码正确性。
❷ win7系统，之前装的vb6.0精简版，能用，重装win7旗舰后，运行vb,编完代码，点击运行就自动退出vb系统
还是重新安装试下吧。。。
❸ vb6.0生成的exe文件为什么运行时一闪就没了
程序编译的过程中有
exe文件生成，生成的方式有两种：debug和
release，一般电脑的运行的时候的是
release
❹ 使用vb6时经常莫名其妙地出现故障
1）WIN7 中安装并运行VB6确实有些勉强，毕竟VB6属于Visual Studio 98 十几年前的开发工具。
2）在WIN7中使用VB6需要一些设置，否则经常出现各种莫名其妙的问题（无论是完整版还是精简版都会遇到）。如何设置WIN7中的VB6请参考http://www.doc88.com/p-396948968607.html
❺ 在VB6.0结束按钮的代码怎么写 编译后一点结束按钮程序就退出 在vb.net中用的是Me.Close（）
结束自身窗体：unload me结束其他窗体：unload 窗体名强制结束程序：End
❻ 编写的vb6的程序，，点击运行后，出现vb已停止运行的问题
appcrash直译就是“程序撞车”，但发生appcrash事件的撞车程序却不尽相同，却常常与IE的插件有关——我的就是。
首推解决办法：用“Windows清理助手”清理系统，把IE的插件都清理后重启。一般都能够解决。
如果不行，那就卸载新安装的程序，通过“运行/msconfig/启用”将可疑的启动加载项都去掉，重启。
内容引用自网络
❼ VB6.0 怎么写鼠标键盘无操作后程序自动退出
'*项目:VB鼠标键盘无操作后程序自动退出
'*作者:网络知道qq15495835
'*团队:VB学习团
'*团队地址：http://..com/team/view/vb%E5%AD%A6%E4%B9%A0%E5%9B%A2
'在MDIForm1中添加一个时间Timer1控件，然后把下面的代码复制到MDIForm1窗口中
"user32"(pliiAsLASTINPUTINFO)AsBoolean
PrivateTypeLASTINPUTINFO
cbSizeAsLong
dwTimeAsLong
EndType
"kernel32"()AsLong
DimmEventAsLASTINPUTINFO
DimStopTimeAsLong
DimPrvEventAsLong
PrivateSubMDIForm_Load()
Timer1.Interval=1
EndSub
PrivateSubTimer1_Timer()
mEvent.cbSize=Len(mEvent)
GetLastInputInfomEvent
StopTime=mEvent.dwTime
Debug.PrintGetTickCount-StopTime
IfGetTickCount-StopTime>=5000Then'在5000毫秒后不动作就退出,你可以改成你需要的时间
End
EndIf
EndSub
'请参考采纳！谢谢！
❽ VB6 制作网页文件 添加链接时自动关闭是什么原因如何解决
安装的是VB精简版的话
那就会出现这样的问题的
因为某些控件被删减了，制作成了所谓的精简版VB6，安装的时候未成功注册控件，就会出现VB在加载某些工程时加载控件过程中的的IDE崩溃。完全版的VB6有好几百M
去重新下载一个吧
❾ vb6.0问题，会自动关闭程序
……如果VB没报错的话就不是它的原因，
其它程序有这样的情况吗，
系统问题、病毒、木马也可能会造成程序自动关闭。
❿ VB6.0调试一个通过域名获取服务器IP地址的程序时编译器没有提示出错就退出了VB的编辑界面，请问什么原因
你的代码打错了一些字,请更改为这样
Function GetIP(name As String) As String
'On Error GoTo Err
Dim Hostent_Addr As Long
Dim Host As HOSTENT
Dim HostIP_Addr As Long
Dim temp_IP_Address() As Byte
Dim i As Integer
Dim IP_Address As String
Hostent_Addr = gethostbyname(name)
If Hostent_Addr = 0 Then
GetIP = "主机名不能解析"
Exit Function
End If
RtlMoveMemory Host, Hostent_Addr, LenB(Host)
RtlMoveMemory HostIP_Addr, Host.hAddrList, 4
ReDim temp_IP_Address(1 To Host.hLength)
RtlMoveMemory temp_IP_Address(1), HostIP_Addr, Host.hLength
For i = 1 To Host.hLength
IP_Address = IP_Address & temp_IP_Address(i) & "."
Next
IP_Address = Mid(IP_Address, 1, Len(IP_Address) - 1)
GetIP = IP_Address
End Function