11705.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行
HTML
27 行
<html>
<head>
<title>Re: 请问:如何取得程式中所有 Form 之名称(用dir()试试看)</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 请问:如何取得程式中所有 Form 之名称(用dir()试试看)</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by nothing on April 07, 1999 at 08:46:52:<p>
In Reply to: <a href="11696.html">Re: 请问:如何取得程式中所有 Form 之名称(无内文)</a> posted by Help on April 06, 1999 at 23:32:08:<p>
: : 请查vb-help 中之"forms", 即可找到解答<br>: : for i to forms.count-1<br>: : debug.print forms(i).name <br>: : next<p>: 以上之作法只能取得已经 LOAD 进来 From 之资料<br>: 我的需求是包括尚未 Load(在 MDIForm 之情形) 进来所有 Form 之资料<br>: 不知是否有其中方法?<p>用dir()试试看<br>Private Sub Command3_Click()<br>Myfile = Dir("C:\account\*.frm")<p>Do While Myfile <> "" ' 执行回圈。<br> MsgBox (Myfile)<br> Myfile = Dir ' 寻找下一个档案。<br>Loop<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11705-->
<!--top: 11747--><li><a href="11747.html">Re: 还是不能</a> <b>Help</b> <i>22:27:33 4/07/99</i>
(<!--responses: 11747-->0)
<ul><!--insert: 11747-->
</ul><!--end: 11747-->
</ul><!--end: 11705-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?