📄 11414.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re:  Answer &quot;Form是否已经Load进来了？&quot;</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re:  Answer &quot;Form是否已经Load进来了？&quot;</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:cas0865@tpts5.seed.net.tw">Spencer Yang</a> on March 27, 1999 at 12:33:10:<p>
In Reply to: <a href="11407.html">Form是否已经Load进来了？</a> posted by 泰维 on March 27, 1999 at 00:51:18:<p>
说明: <br>1)将要比对的表单名称放置于阵列 strX(0 to n)<br>2)已经载入的表单名称于置于阵列 strY(0 to n)<br>3)再比较 "比对组" 与 "载入组" 名称, 假如 strcomp 结果不等于 0者, 颢示不符等资讯。<p>Private Sub Form_Activate()<br>    Dim I                           '计数变数<br>    Dim J                           '计数变数<br>    Dim K                           '计数变数<br>    Dim L                           '计数变数<br>    Dim MyComp As Variant<br>    Dim strX(0 To 2) As String<br>    Dim strY(0 To 2) As String<br>    <br>    ' 设定要比较的表单名称(本人测试用的)<br>    strX(0) = "frmCompanyInput"<br>    strX(1) = "frmCalendar"<br>    strX(2) = "frmX"<br>   <br>    For I = 0 To Forms.count - 1<br>      strY(I) = Forms(I).Name<br>      J = J + 1<br>    Next I<br>    <br>    For K = 0 To 2<br>        For L = 0 To J - 1<br>            MyComp = StrComp(strX(K), strY(L), vbTextCompare)<br>            If MyComp <> 0 Then<br>                Debug.Print "the " & strX(K) & " unload."<br>            End If<br>        Next L<br>    Next K<br>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11414-->
<!--top: 11427--><li><a href="11427.html">Re:  Thanks to Spencer Yang</a> <b>泰维</b> <i>01:43:13 3/28/99</i>
(<!--responses: 11427-->0)
<ul><!--insert: 11427-->
</ul><!--end: 11427-->
</ul><!--end: 11414-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -