广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3535 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
jason5312
个人头像
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x7 鲜花 x12
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] vb做程式要怎么一个程式叫出另一个程式?
就是我第一个程式做好了
用地一个程式叫出另外一个
那要怎么做出来?  
是隐藏档案吗?
可是我看别人的档案都没有这种隐藏档 ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



[ 此文章被三仙在2010-10-19 21:47重新编辑 ]


献花 x0 回到顶端 [楼 主] From:台湾中华电信 | Posted:2010-10-17 19:12 |
ReZa 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖 优秀管理员勋章
小有名气
级别: 副小有名气 该用户目前不上站
推文 x260 鲜花 x596
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

请问可以拍图来看看吗..

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


若从圣入凡,示现种种杂类,自为众生,故圣人逆顺皆得自在,一切业拘他不得。
圣成久有大威德,一切品类业,被祂圣人转,天堂地狱无奈何祂
[youtube][/youtube]

!完全停工!
新选单职业系统:作业进度90%
技能:作业进度60%
发表新文章:心情度:0%、想法度:100%
研究:57%
献花 x0 回到顶端 [1 楼] From:台湾台湾固网 | Posted:2010-10-17 20:40 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

在 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

此文章被评分,最近评分记录
财富:50 (by 三仙) | 理由: ^^ 因为您的参与,让程式设计更容易!!


My BOINC stats :

献花 x1 回到顶端 [2 楼] From:台湾台湾宽频 | Posted:2010-10-20 03:53 |
toye7711toy
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

好帅喔

都不会做 @@"


献花 x0 回到顶端 [3 楼] From:台固媒体 | Posted:2010-11-02 04:19 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.017576 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言