📄 14605.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: VB6 的做法 (更正)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: VB6 的做法 (更正)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:sephiroth@optimasoft.com.tw">Sephiroth</a> on June 25, 1999 at 09:00:31:<p>
In Reply to: <a href="14588.html">VB6 的做法</a> posted by Sephiroth on June 24, 1999 at 17:20:30:<p>
: VB6 动态建立控制项的方法:<p>: Private WithEvents mobjLabel As VB.Label<p>: Private Sub Form_Load()<br>:     Set mobjLabel = Controls.Add("VB.Label", "Label1")<br>:     With mobjLabel<br>:         .Caption = "Label1"<br>:         .Move 0, 0, 1500, 300 <br>:         .Visible = True<br>:     End With <br>: End Sub<p>动态建立的控制项可以是任意控制项, 只要不把 TypeLib 打错就行了. 当然 UserControl 也可以<br>动态建立, 但是要注意, 如果 UserControl造不出来就必须把 Alt-P-E Upgrade ActiveX Controls<br>的选项取消.<br>^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<p>上面这句说错了, 是 Alt-P-E Make Page, Remove information about unused ActiveX Controls<br>的选项要取消才对!<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14605-->
</ul><!--end: 14605-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -