在 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