📄 5392.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: load,unload</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: load,unload</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:trytsai@homail.com">东吴电算人</a> on September 08, 1998 at 17:02:44:<p>
In Reply to: <a href="5388.html">load,unload</a> posted by 询朊 on September 08, 1998 at 16:03:27:<p>
: : 我写一个程式想要动态新增PICTUREBOX或COMMANDBUTTON，CWW指点我用LOAD来新增，可是小弟不才，不知道如何运用，可否详细说明一下（VB线上说明只有说明如何载入FORM的方式，并没有解释如何载入物件的方法）<br>: : 谢谢！ <br>就是利用物件阵列来作，以下我写的小范例，参考看看..<p>首先在新开表单上有三个物件, Label1, Command1, Command2<br>先在 Label1 的 index 属性设为 0 宣告成物件阵列<p><br>Dim gintIdx As Integer '宣告物件阵列指标<p>Private Sub Command1_Click()<br>'当按下 Command1 时就增加一个 Label 物件<p>    gintIdx = gintIdx + 1<br>    Load Me.Label1(gintIdx) 'Load 进来一个 Label 物件<br>    <br>    Me.Label1(gintIdx).Caption = Now() & " Label " & Str(gintIdx)<br>    Me.Label1(gintIdx).Top = Me.Label1(gintIdx - 1).Top + 300<br>    Me.Label1(gintIdx).Left = Me.Label1(gintIdx - 1).Left + 300<br>    Me.Label1(gintIdx).Visible = True   '让 Load 进来的物件可以看见<br>    <br>    Me.Caption = "Window = " & Str(gintIdx)<br>End Sub<p>Private Sub Command2_Click()<br>'当按下 Command2 时就减少一个 Label 物件<p>    If (gintIdx > 0) Then<br>        Unload Me.Label1(gintIdx)   'UnLoad 掉一个 Label 物件<br>        gintIdx = gintIdx - 1<br>        Me.Caption = "Window = " & Str(gintIdx)<br>    End If<br>End Sub<p>Private Sub Form_Load()<br>    gintIdx = 0 '物件阵列指标初始值为 0<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5392-->
</ul><!--end: 5392-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -