疑問 - 一些VB問題

[sob790717b]

INET 無法使用
我是使用VB6普及版的
跟這問題有關聯嗎

[mini]

關於第一個問題
你可以在 Form1 的 Unload事件 ( Private Sub Form_Unload )
加上一句
Unload Form10
程式碼
(也可試試 使用 End)

因為你的程式是由
Form10當進入點
之後
只是把 Form10視窗隱藏起來而已 ( Form10.Hide)
所以
當你關閉 Form1時
Form10其實還在執行


而你製作的按鈕 [離開程式(&X)]

使用了 End，其描述如下
End 陳述式可以強制程式碼終止，無須經過 Unload、QueryUnload，或 Terminate 事件，或任何其它的 Visual Basic 程式碼。Unload、QueryUnload，表單與物件類別模組的 Terminate 事件都不會執行。由物件類別模組所建立的物件會被破壞、以 Open 陳述式開啟的檔案會被關閉，程式所佔用的記憶體空間也會被釋放。

End 陳述式是一種強制程式停止執行的方式。一般要結束 Visual Basic 程式前，都必須先載出所有表單，確定沒有其它程式引用到其中的物件，且沒有執行中的程式碼，才能結束。

==========
總之 End 陳述式 是一種懶人用法就對了

[飛行船大大]

作者: sob790717b

INET 無法使用
我是使用VB6普及版的
跟這問題有關聯嗎

mini大已 說明的很清楚.

既然你在主選單 要想直接用結束
那你form10 中改成以下2行 (這樣即可)

Private Sub Timer1_Timer()
   Unload Me
   Form1.Show
End Sub

其實在實際設計中我幾乎沒使用end,因系統設計大的時候 很容易發生bug
下面這個送你ㄅ, 改用CloseAllForms Me

Public Sub CloseAllForms(frmCaller As Form)
   ' 程式功能 ： 關應用程式中　所有的forms . 目前的form最後才關
   ' 傳入參數 ： frmCaller - 最後才關的form名稱
   ' 傳出     ： 無
   ' 使用範例 ：
  '         CloseAllForms Me
   Dim Frm As Form
   
   On Error GoTo PROC_ERR
   For Each Frm In Forms
      If Not Frm Is frmCaller Then
         Unload Frm
      End If
   Next
   Unload frmCaller
   
   Exit Sub
PROC_ERR:
   MsgBox "Error: " & Err.Number & ". " & Err.description, , "CloseAllForms"
End Sub

-
ps:普及版功能有限制. 上網找專業版的 bt種子ㄅ !

[sob790717b]

那INET 元件的問題我無法使用...

有沒有winsocket的範例呢
另外關於飛行船大大說的下載ex.htm然後進行分析
藉此判斷是否版本不一樣
如果不一樣就提示使用者...

請問是著樣子的分析法?

因為我有一個 程式
要經常修正程式碼
想強迫使用者進行更新的動作

[飛行船大大]

作者: sob790717b

那INET 元件的問題我無法使用...

有沒有winsocket的範例呢
另外關於飛行船大大說的下載ex.htm然後進行分析
藉此判斷是否版本不一樣
如果不一樣就提示使用者...

請問是著樣子的分析法?

因為我有一個 程式
要經常修正程式碼
想強迫使用者進行更新的動作

大陸網站範例比較多, 但你的普及版可能 mswinsck shdocvw msinet 全都沒辦法用.
所以你只剩1個方式 就是用API ,上網搜 "URLDownloadToFile" 就可以了.

[sob790717b]

有請A大或版主大大通融一下
我最近不能很常上史版... 程式撰寫問題也還沒完全搞定


有請幫忙留著文章
問題解決以後我會按已解決的