11704.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML
23
字号
<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:37:<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: 11704-->
</ul><!--end: 11704-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?