📄 15384.html
字号:
<html>
<head>
<title>VB6 动态新增控制项做法</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>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 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><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15384-->
<!--top: 15502--><li><a href="15502.html">Re: VB6 动态新增控制项做法</a> <b>Ringo</b> <i>15:15:33 7/11/99</i>
(<!--responses: 15502-->0)
<ul><!--insert: 15502-->
</ul><!--end: 15502-->
<!--top: 15425--><li><a href="15425.html">Sephiroth 谢谢你</a> <b>小吴</b> <i>10:05:38 7/09/99</i>
(<!--responses: 15425-->0)
<ul><!--insert: 15425-->
</ul><!--end: 15425-->
</ul><!--end: 15384-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -