vb做程式要怎么一个程式叫出另一个程式?

Home Home
引用 | 编辑 jason5312
2010-10-17 19:12
楼主
推文 x0
就是我第一个程式做好了
用地一个程式叫出另外一个
那要怎么做出来?  
是隐藏档案吗?
可是我看别人的档案都没有这种隐藏档 ..

访客只能看到部份内容,免费 加入会员



献花 x0
引用 | 编辑 ReZa
2010-10-17 20:40
1楼
  
请问可以拍图来看看吗..

用文字解说可能无法太了解您的意思

献花 x0
引用 | 编辑 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




本帖包含附件
档名: zip FormPop.rar   (2022-06-09 14:16 / 36 KB)   下载次数:5


献花 x1
引用 | 编辑 toye7711toy
2010-11-02 04:19
3楼
  
好帅喔

都不会做 @@"

献花 x0