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