Forms对象一个隐含的方法

今天在回答一个贴子，要求是根据窗口名称字符串显示窗口，我新建了一个VB工程，添加了两个Form，Form的名称分别为Form1和Form2，然后写了以下代码：

Private Sub Form_Load() ShowForm1 "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form strFormName = LCase(strFormName) For Each f In Forms If LCase(f.Name) = strFormName Then f.Show Exit Sub End If Next End Sub@H_<a href="/tag/301/" target="_blank" class="keywords">301</a>_4@ </p> <p> 奇怪的是，Form2居然没有<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>除来，跟踪了一下<a href="/tag/daima/" target="_blank" class="keywords">代码</a>，发现Form2.Count的值为1，原来，如果窗口只有被Load过，才会被加入到Forms里，如果窗口被Unload了，则会从Forms里移出。而现在要求是根据窗口<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>来加载窗口，那么，如何根据窗口<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a><a href="/tag/shengcheng/" target="_blank" class="keywords">生成</a><a href="/tag/chuangkouduixiang/" target="_blank" class="keywords">窗口对象</a>呢？Forms集合对象提供了Count<a href="/tag/shuxing/" target="_blank" class="keywords">属性</a>，它是否提供了Add<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>加入<a href="/tag/chuangkouduixiang/" target="_blank" class="keywords">窗口对象</a>？想到这儿，我立马写了以下<a href="/tag/daima/" target="_blank" class="keywords">代码</a>进行验证：</p> <p><textarea cols="50" rows="15" name="code" class="vb:nogutter:nocontrols">Private Sub Form_Load() ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form Set f = Forms.Add(strFormName) f.Show End Sub@H_<a href="/tag/301/" target="_blank" class="keywords">301</a>_4@ </p> <p> 哈哈，Form2果然被成功加载了，这说明Forms集合对象确实提供了一个隐含的Add<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>，该<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>可以被多次执行，每执行一次，就会实例一次Form2窗口类，比如以下<a href="/tag/daima/" target="_blank" class="keywords">代码</a>将会<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>两个Form2窗口类的实例：</p> <p><textarea cols="50" rows="15" name="code" class="vb:nogutter:nocontrols">Private Sub Form_Load() ShowForm "form2" ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form Set f = Forms.Add(strFormName) f.Show End Sub@H_<a href="/tag/301/" target="_blank" class="keywords">301</a>_4@ </p> <p> 为了防止窗口类Form2被重复实例化，因此将<a href="/tag/daima/" target="_blank" class="keywords">代码</a><a href="/tag/xiugai/" target="_blank" class="keywords">修改</a>如下：<br> <textarea cols="50" rows="15" name="code" class="vb:nogutter:nocontrols">Private Sub Form_Load() ShowForm "form2" ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form strFormName = LCase(strFormName) '<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>已Load的窗口 For Each f In Forms If LCase(f.Name) = strFormName Then f.Show Exit Sub End If Next '<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>未Load的窗口 On Error Resume Next Set f = Forms.Add(strFormName) f.Show End Sub@H_<a href="/tag/301/" target="_blank" class="keywords">301</a>_4@ </p> <p> 这样就完整地实现了根据窗口<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>来<a href="/tag/shengcheng/" target="_blank" class="keywords">生成</a>窗口类的对象了。有了Add<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>，我又试了一下Remove<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>，结果失败了，可能该<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>只能由VB内部自己<a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a>吧。这个隐含的Add<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>非常有意思，当和<a href="/tag/caidan/" target="_blank" class="keywords">菜单</a>结合，我们就可以像Set objControl=Me.Controls.Add("控件<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>")动态加载控件一样来动态加载窗口了。</p></div> <div class="topcard-tags"></div> <ul class="list-group"> <li class="list-group-item"><a href="/vb/261901.html" title="Runtime error 5 Invalid procedure call or argument">上一篇：Runtime error 5 Invalid procedur</a><a href="/vb/261899.html" title="共轭梯度法" class="text-muted pull-right">下一篇：共轭梯度法</a> </li> </ul> </div> </div> </div>  <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <ins class="adsbygoogle" style="display:block" data-ad-format="autorelaxed" data-ad-client="ca-pub-4605373693034661" data-ad-slot="9144498553"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script></div> </div> </div> <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <div class="title"><h1>猜你在找的VB相关文章</h1></div> <div class="list_con"> <a href="/vb/802176.html" title="VB Format函数"><div class="title">VB Format函数</div> <div class="summary">Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802175.html" title="vb6/ASP FORMAT MM/DD/YYYY"><div class="title">vb6/ASP FORMAT MM/DD/YYYY</div> <div class="summary">VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802174.html" title="VB.net 捕获项目全局异常"><div class="title">VB.net 捕获项目全局异常</div> <div class="summary">在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802173.html" title="实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法"><div class="title">实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法</div> <div class="summary">转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802172.html" title="vb，wps，excel 分裂"><div class="title">vb，wps，excel 分裂</div> <div class="summary">Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div style="border-bottom: 1px solid #f4f4f4;margin-top:20px;"> <ins class="adsbygoogle" style="display:block" data-ad-format="fluid" data-ad-layout-key="-fr-2o+fp-dx-wx" data-ad-client="ca-pub-4605373693034661" data-ad-slot="4561116489"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div><div class="list_con"> <a href="/vb/802170.html" title="VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）"><div class="title">VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）</div> <div class="summary"> Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802169.html" title="VB.NET 使用ADODB連接資料庫滙出到EXCEL"><div class="title">VB.NET 使用ADODB連接資料庫滙出到EXCEL</div> <div class="summary">‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Di...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802168.html" title="vb.net 多线程運用 ping"><div class="title">vb.net 多线程運用 ping</div> <div class="summary">Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802167.html" title="VB等待进程结束"><div class="title">VB等待进程结束</div> <div class="summary">VB运行EXE程序，并等待其运行结束参考：https://blog.csdn.net/useway/article/details/5...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="/vb/802166.html" title="vb中去掉string数组的一部分"><div class="title">vb中去掉string数组的一部分</div> <div class="summary">今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号因为登陆的时...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div style="border-bottom: 1px solid #f4f4f4;margin-top:20px;"> <ins class="adsbygoogle" style="display:block" data-ad-format="fluid" data-ad-layout-key="-fr-2o+fp-dx-wx" data-ad-client="ca-pub-4605373693034661" data-ad-slot="4561116489"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div></div> </div> </div> </div>   <div class="col-sm-12 col-md-12 col-lg-3">  <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">编程分类</label> <div class="cate mt-20"><a href="/php/" title="PHP">PHP</a><a href="/java/" title="Java">Java</a><a href="/javase/" title="Java SE">Java SE</a><a href="/python/" title="Python">Python</a><a href="/csharp/" title="C#">C#</a><a href="/c/" title="C&C++">C&C++</a><a href="/ruby/" title="Ruby">Ruby</a><a href="/vb/" title="VB">VB</a><a href="/aspnet/" title="asp.Net">asp.Net</a><a href="/go/" title="Go">Go</a><a href="/Perl/" title="Perl">Perl</a><a href="/netty/" title="netty">netty</a><a href="/django/" title="Django">Django</a><a href="/delphi/" title="Delphi">Delphi</a><a href="/jsp/" title="Jsp">Jsp</a><a href="/netcore/" title=".NET Core">.NET Core</a><a href="/spring/" title="Spring">Spring</a><a href="/flask/" title="Flask">Flask</a><a href="/springboot/" title="Springboot">Springboot</a><a href="/springmvc/" title="SpringMVC">SpringMVC</a><a href="/lua/" title="Lua">Lua</a><a href="/laravel/" title="Laravel">Laravel</a><a href="/mybatis/" title="Mybatis">Mybatis</a><a href="/asp/" title="Asp">Asp</a><a href="/groovy/" title="Groovy">Groovy</a><a href="/thinkphp/" title="ThinkPHP">ThinkPHP</a><a href="/yii/" title="Yii">Yii</a><a href="/swoole/" title="swoole">swoole</a><div class="clearfix"></div> </div> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card">  <ins class="adsbygoogle" style="display:block" data-ad-client="ca-pub-4605373693034661" data-ad-slot="7756441254" data-ad-format="auto" data-full-width-responsive="true"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">最新文章</label> <ul class="n-list"><li><a href="/vb/802176.html" title="VB Format函数" target="_blank">• VB Format函数</a></li> <li><a href="/vb/802175.html" title="vb6/ASP FORMAT MM/DD/YYYY" target="_blank">• vb6/ASP FORMAT MM/DD/YYY</a></li> <li><a href="/vb/802174.html" title="VB.net 捕获项目全局异常" target="_blank">• VB.net 捕获项目全局异常</a></li> <li><a href="/vb/802173.html" title="实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法" target="_blank">• 实现用VB.Net/(C#)开发K/3</a></li> <li><a href="/vb/802172.html" title="vb，wps，excel 分裂" target="_blank">• vb，wps，excel 分裂</a></li> <li><a href="/vb/802171.html" title="VB文件 hash 查看器" target="_blank">• VB文件 hash 查看器</a></li> <li><a href="/vb/802170.html" title="VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）" target="_blank">• VB.NET MYSQL DataGridVie</a></li> <li><a href="/vb/802169.html" title="VB.NET 使用ADODB連接資料庫滙出到EXCEL" target="_blank">• VB.NET 使用ADODB連接資料</a></li> <li><a href="/vb/802168.html" title="vb.net 多线程運用 ping" target="_blank">• vb.net 多线程運用 ping</a></li> <li><a href="/vb/802167.html" title="VB等待进程结束" target="_blank">• VB等待进程结束</a></li> </ul> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">热门标签 <span class="pull-right tx-12"> <a href="/all" target="_blank">更多 ►</a></span> </label> <div class="topcard-tags"><a href="/tag/wenjianshijian/" title="文件时间" target="_blank">文件时间</a><a href="/tag/pythonm/" title="pythonm" target="_blank">pythonm</a><a href="/tag/xiangdengxing/" title="相等性" target="_blank">相等性</a><a href="/tag/PHPWarning/" title="PHP Warning" target="_blank">PHP Warning</a><a href="/tag/shijianwenti/" title="时间问题" target="_blank">时间问题</a><a href="/tag/wentijiejue/" title="问题解决" target="_blank">问题解决</a><a href="/tag/pcntlsignal/" title="pcntl_signal()" target="_blank">pcntl_signal</a><a href="/tag/caiyangdian/" title="采样点" target="_blank">采样点</a><a href="/tag/wavmokuai/" title="wav模块" target="_blank">wav模块</a><a href="/tag/dongtaiwenben/" title="动态文本" target="_blank">动态文本</a><a href="/tag/diaoyongpinlvxianzhi/" title="调用频率限制" target="_blank">调用频率限制</a><a href="/tag/duiwaibaolu/" title="对外暴露" target="_blank">对外暴露</a><a href="/tag/duogefangwenqingqiu/" title="多个访问请求" target="_blank">多个访问请求</a><a href="/tag/gengxinshujubiao/" title="更新数据表" target="_blank">更新数据表</a><a href="/tag/moxingjiegou/" title="模型结构" target="_blank">模型结构</a><a href="/tag/typefangfa/" title="type()方法" target="_blank">type()方法</a><a href="/tag/bijiaosudu/" title="比较速度" target="_blank">比较速度</a><a href="/tag/shouxieti/" title="手写体" target="_blank">手写体</a><a href="/tag/sobelsuanzi/" title="sobel算子" target="_blank">sobel算子</a><a href="/tag/baocunmoxing/" title="保存模型" target="_blank">保存模型</a><a href="/tag/Imagelei/" title="Image类" target="_blank">Image类</a><a href="/tag/nnConv2d/" title="nn.Conv2d" target="_blank">nn.Conv2d</a><a href="/tag/pytorch10/" title="pytorch1.0" target="_blank">pytorch1.0</a><a href="/tag/kaggle/" title="kaggle" target="_blank">kaggle</a><a href="/tag/DCGAN/" title="DCGAN" target="_blank">DCGAN</a><a href="/tag/jiaobingbi/" title="交并比" target="_blank">交并比</a><a href="/tag/rangeyongfa/" title="range()用法" target="_blank">range()用法</a><a href="/tag/dayinmoxing/" title="打印模型" target="_blank">打印模型</a><a href="/tag/fanjuanji/" title="反卷积" target="_blank">反卷积</a><a href="/tag/juanji/" title="卷积" target="_blank">卷积</a></div> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card">  <ins class="adsbygoogle" style="display:block" data-ad-client="ca-pub-4605373693034661" data-ad-slot="7756441254" data-ad-format="auto" data-full-width-responsive="true"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div> </div> </div>  </div>  </div> </div> <footer id="footer"> <div class="container"> <div class="row hidden-xs"> <dl class="col-sm-6 site-link"> <dt>最近更新</dt><dd><a href="/win11/1005328.html" title="小米手机重装系统价格多少?专业维修服务详解" target="_blank">· 小米手机重装系统价格多少?专业维修服务详解</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005327.html" title="手把手教你重装电脑系统,让你的电脑焕然一新!" target="_blank">· 手把手教你重装电脑系统,让你的电脑焕然一新!</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005326.html" title="教你一步步重装XP系统,让你的电脑重获新生" target="_blank">· 教你一步步重装XP系统,让你的电脑重获新生</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005325.html" title="从备份到上网:一步步教你重装电脑系统" target="_blank">· 从备份到上网:一步步教你重装电脑系统</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005324.html" title="Sony笔记本电脑一键重装系统详细图文教程" target="_blank">· Sony笔记本电脑一键重装系统详细图文教程</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005323.html" title="Lenovo笔记本重装系统超详细教程，小白也能轻松上手" target="_blank">· Lenovo笔记本重装系统超详细教程，小白也能轻松...</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005322.html" title="联想笔记本一键重装Win10系统详细教程" target="_blank">· 联想笔记本一键重装Win10系统详细教程</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005321.html" title="电脑系统故障无需愁,专业维修店帮你重装旧貌换新颜" target="_blank">· 电脑系统故障无需愁,专业维修店帮你重装旧貌换新...</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005320.html" title="联想笔记本一键重装Win10系统图文教程，小白也能轻松搞定！" target="_blank">· 联想笔记本一键重装Win10系统图文教程，小白也能...</a><span class="text-muted pull-right">02-05</span></dd> <dd><a href="/win11/1005319.html" title="笔记本重装系统图文教程：从光盘启动一步到位" target="_blank">· 笔记本重装系统图文教程：从光盘启动一步到位</a><span class="text-muted pull-right">02-05</span></dd> </dl> <dl class="col-sm-4 site-link"> <dt>好站推荐</dt><dd> <a href="https://www.runoob.com" title="菜鸟教程(www.runoob.com)提供了编程的基础技术教程, 介绍了HTML、CSS、Javascript、Python，Java，Ruby，C，PHP , MySQL等各种编程语言的基础知识。同时本站中也提供了大量的在线实例，通过实例，您可以更好的学习编程。" target="_blank">菜鸟教程</a></dd><dd> <a href="https://www.jb51.cc" title="编程之家(www.jb51.cc)是成立于2017年面向全球中文开发者的技术内容分享平台。提供编程导航、编程问答、编程博文、编程百科、编程教程、编程工具、编程实例等开发者最需要的编程技术内容与开发工具支持，与你一起学习编程，相信编程改变未来！" target="_blank">编程之家</a></dd><dd> <a href="" title="前端之家 f2er.com 前端开发人员所需学习知识手册。" target="_blank">前端之家</a></dd></dl> <dl class="col-sm-2 site-link"> <dt>商务合作</dt> <dd><a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=76874919&site=qq&menu=yes">联系我们</a></dd> </dl> </div> <div class="copyright"> Copyright © 2019 前端之家. 当前版本 V7.0.16<br> <span class="ml5">前端之家版权所有 <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">闽ICP备13020303号-10</a></span> </div> </div> </footer> <script type="text/javascript" src="/js/base.js"></script> </body> </html>