引用 | 编辑
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
![]() |
引用 | 编辑
toye7711toy
2010-11-02 04:19 |
3楼
▲ |
好帅喔
都不会做 @@" ![]() |