📄 15502.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:Ringo@w3.twinsnet.com.tw">Ringo</a> on July 11, 1999 at 15:15:33:<p>
In Reply to: <a href="15384.html">VB6 动态新增控制项做法</a> posted by Sephiroth on July 08, 1999 at 15:28:48:<p>
: 没办法, 只好举个例子让大家看看: (VB6 适用)<p>: Option Explicit<p>: Private WithEvents Command1 As CommandButton<p>: Private Sub Command1_Click()<br>: <br>: MsgBox "Click Me!"<br>: <br>: End Sub<p>: Private Sub Form_Click()<br>: <br>: Set Command1 = Controls.Add("VB.CommandButton", "Command1")<br>: With Command1<br>: .Caption = "Run-Time Create"<br>: .Move (ScaleWidth - .Width) \ 2, (ScaleHeight - .Height) \ 2<br>: .Visible = True<br>: End With<br>: <br>: End Sub<p>谢谢<br>我试了一下,可以正常运作!!
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15502-->
</ul><!--end: 15502-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -