引用 | 編輯
ebolaman
2010-10-20 03:53 |
2樓
▲ ▼ |
||||||||||
在 VB6 裡,那是 "表單" 之間互相呼叫的方法
就是原先就設定好 表單1, 表單2 .... 只要用 FormX.Show 方法就能把另外一個表單叫出來 當然也可以用成隱藏檔案,那又是資源檔的技巧了 像是目前流行的 安裝檔,幾乎都是採用這種在程式裡面壓縮塞入一個安裝程式,或是用資源檔來裝著 等到你點安裝,在桌面的 Setup 檔案會放置一個 Exe 到 %Temp%\ 資料夾,然後再進行呼叫,常會以為正在安裝的檔案就是桌面的檔案,其實桌面執行的安裝檔早在呼叫完後就關閉了 例如:安裝 Google Earth 時候,主程式先解壓縮到 %Temp%\ 然後,主程式再去呼叫 被解壓縮的檔案,可以清楚看到程式的路徑在 ....Temp\7ZipSfx.000\ 不過在 VB 還是用表單會來的簡單點,我隨便做了一個,是 表單創建一個新的 "自己" 表單 然後互相給之前的 Sav_k 值,Caption 也會改變 用樹枝狀的呼叫層次結構就能清晰的了解~ 複製程式 Option Explicit Public Sav_k As Integer Private Sub CMD_Show_Click() Dim Fm As New Form1 If Me.Sav_k = 7 Then End With Fm .CMD_Show.Caption = Choose(Sav_k + 1, "再點一下", "按我", "點我", "用力的點", "再一次", "好了", "不要碰!") .Sav_k = Me.Sav_k + 1 .Caption = "此表單被目錄 " & Me.Sav_k + 1 & " 的表單呼叫" .Show End With End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub
x1 |
引用 | 編輯
toye7711toy
2010-11-02 04:19 |
3樓
▲ |
好帥喔
都不會做 @@" x0 |