📄 13262.html
字号:
<html>
<head>
<title>关于动态产生控制项</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>关于动态产生控制项</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:pipal@ms8.hinet.net">百吉</a> on May 22, 1999 at 18:06:47:<p>
在阿柳VB 6.0的书中提及用load & unload来动态增减控制项<br>，也可用Controls.Add与Controls.Remove来增减控制项，我打算<br>用 Controls.Add来完成类似阿柳VB 6.0的书中 EX10-13的例子<br>我的程式码如下<p>Option Explicit<p>Dim WithEvents ctlMyControl As CommandButton<p>Private Sub ctlMyControl_Click()<br> MsgBox "产生动态元件一"<br>End Sub<p>Private Sub Form_Click()<br> Dim test As Long<br> Dim test1 As Long<br> <br> For test = 1 To 2<br> <br> Set ctlMyControl = Controls.Add("VB.CommandButton", "newCam")<br> ctlMyControl.Left = 240 + (test * 1600)<br> ctlMyControl.Top = 240<br> ctlMyControl.Caption = "离开(&X)"<br> ctlMyControl.Visible = True<br> test = test + 1<br> <br> Next<br> <br>End Sub<p>Private Sub Form_Load()<br> <br> Set ctlMyControl = Controls.Add("VB.CommandButton", "buttom")<br> ctlMyControl.Left = 240<br> ctlMyControl.Top = 240<br> ctlMyControl.Caption = "离开(&X)"<br> ctlMyControl.Visible = True<br> <br>End Sub<p>在我执行后click一次Form时可动态的产生一个CommandButtom，<br>但我第二次click Form时，却出现 "已有一名为newCam的控制项存在"<br>我该如何修改此程式，方可完成动态的产生多个控制项。谢谢。<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13262-->
<!--top: 13289--><li><a href="13289.html">Re: 关于动态产生控制项</a> <b>帅帅阿柳</b> <i>22:47:20 5/23/99</i>
(<!--responses: 13289-->1)
<ul><!--insert: 13289-->
<!--top: 13292--><li><a href="13292.html">抱歉,补充一点</a> <b>帅帅阿柳</b> <i>00:03:12 5/24/99</i>
(<!--responses: 13292-->0)
<ul><!--insert: 13292-->
</ul><!--end: 13292-->
</ul><!--end: 13289-->
</ul><!--end: 13262-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -