㈠ VB6.0 運行錯誤 急急急!
用vb自帶的打包工具 製作一個安裝包 一般就可以解決你上述問題 有問題的電腦一般都是缺少文件和注冊,安裝包可以解決這些問題
㈡ VB6.0編寫的應用程序運行時錯誤'339'
從程序上來解決是不太可能的,因為你寫的程序後,它要引用很多的文件,那麼目標機器上少一個文件也不可以的還是要打包.可以用setup Factory,有漢化版的,可以專門針對Vb生成安裝程序,可以把你所用到的所有文件都打包成安裝程序
㈢ vb 調試運行正常,編譯成exe後運行錯誤
你看看你各窗體的日誌文件,看看是哪個窗體的調用過程或參數無效
㈣ VB6運行第一次正常,運行第二次報錯
這種現象是因為 在子程序結尾處 變數xlBook 未清空。
應將Set excel_App = Nothing 改成 Set xlBook = Nothing
我試驗了,是可以通過的。
-----------------------
你將如下 代碼 拷至 VBE,試一試:
Dim xlApp As New Excel.Application '定義並創建EXCEL對象
Dim xlBook As Excel.Workbook '創建工作簿
'xlapp.DisplayAlerts =False
xlApp.Visible = True '讓Excel可見
Set xlBook = xlApp.Workbooks.Open(App.Path & "/dot.xls") '打開Excel模板
With xlBook.ActiveSheet
.Range("b4") = Text1.Text '填充第一行第一列的值
.Range("i4") = Text2.Text ' 填充其他行列的值,具體的填充位置得根據模板來做
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=1234 '表格設定密Set excel_Book = excel_App.Workbooks.Open(App.Path & "dot.XLS")
ChDir "D:評定表牧牛科技"
Dim a As Long
ActiveWorkbook.SaveAs Filename:="D:評定表牧牛科技" & Text1.Text & Text2.Text & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Excel.ActiveWorkbook.Close
Set xlBook = Nothing ' 只變這一行 代碼即可。
End Sub
㈤ VB程序 為什麼直接運行可以運行而全編譯執行或者生成exe文件報錯
編譯器里運行只是運行到哪裡就臨時編譯到哪裡
可能你程序中有錯誤,所以編譯會出錯,但是卻不影響直接運行。
因為編譯EXE是全部編譯,同時編譯器會檢查語法等操作,所以會發現一些你沒發現的問題。
㈥ vb6.0 做的程序運行出現使用源錯誤提示
這個可能是系統里某個部件用到OFFICE的控制項,而OFFICE沒有安裝好。建議把這台電腦的OFFICE刪了,重新安裝一個完全版即可。
㈦ 為什麼VB環境下調試正常,生成EXE後運行則發生錯誤
你應該是把這個程序放到了沒有安裝vb6的電腦上運行了,這樣你必須要將這個程序用到的dll也一起附帶過去,程序裡面有個自帶的打包可以實現。
㈧ 編寫的vb6的程序,,點擊運行後,出現vb已停止運行的問題
一個C0000005錯誤是在Windows系統錯誤。這是一個異常發生的錯誤,當一個進程(應用程序,驅動程序等)試圖執行處理器指令引用的內存空間由操作系統分配給該進程之外。有許多可能的原因,從損壞的數據表,一個糟糕的網路連接,ActiveX控制項,或列印機或視頻驅動程序錯誤。不知道你看到的是什麼類型的錯誤,這是不可能猜測原因可能是什麼。
㈨ 為什麼windows7 安裝了vb6.0後 運行時總出現Vb6.exe-系統錯誤
VB6.0、VC6.0是專門為 Windows 95 和 Windows 98 設計的。
Win7 無法兼容非.NET系列的編譯器,如VB6.0、VC6.0等等,建議用VS2005、VS2008、VS2010。如果一定要用VB6.0建議安裝Windows XP或更低版本的操作系統。可以在Win7中安裝 Windows XP 虛擬機。
㈩ 我用VB6.0編了一個計算器程序,運行時顯示運行時錯誤424需要對象
測試了下,代碼應該是沒問題的。估計是編譯器的問題。還有 其實你這個窗體載入裡面這部分代碼完全可以在對象的屬性窗口設置的,沒必要在程序裡面設置吧。
測試代碼:
Private Sub Command1_Click()
x = Val(Text1.Text)
x = Val〔Text1.Text〕
End Sub
兩條代碼是一樣的 但是第一條代碼可以執行 第二條出錯。
我也不知道什麼原因、