2287.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 30 行

HTML
30
字号
<html>
  <head>
    <title>原来的方法不能用,另一种方法..</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>原来的方法不能用,另一种方法..</h1>
    </center>

<HR><p>
Posted by <a href="mailto:yfwu@iname.com">小吴</a> on March 16, 1998 at 17:09:21:<p>
In Reply to: <a href="2284.html"><b>使用 Forms 集合也不行</b></a> posted by antony on March 16, 1998 at 06:47:13:<p>
忘了 Forms, Controls, Printers 等集合不是标准 OLE 集合。那就只能土法链钢啦!将下面这段程式码 copy 到你的程式中然后呼叫吧!<p>Function FindForm(ByVal FormName As String) As Form<br>  Dim frm As Form<p>  For Each frm In Forms<br>    If frm.Name = FormName Then <br>      Set FindForm = frm<br>      Exit For<br>    End If<br>  Next frm<br>End Function
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2287-->
<!--top: 2291--><li><a href="2291.html"><b>能不能更好?</b></a> antony <i>19:49:02 3/16/98</i>
(<!--responses: 2291-->1)
<ul><!--insert: 2291-->
<!--top: 2294--><li><a href="2294.html"><b>当然不能</b></a> 小吴 <i>22:23:20 3/16/98</i>
(<!--responses: 2294-->0)
<ul><!--insert: 2294-->
</ul><!--end: 2294-->
</ul><!--end: 2291-->
</ul><!--end: 2287-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

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