📄 14399.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:s9397@ms19.hinet.net">姜海坤 </a> on June 18, 1999 at 23:13:05:<p>
Option Explicit<p><br>Private Sub cmdadd_Click(index As Integer)<br> Dim intcount As Integer<br> Dim lngwidth As Long<br> Dim lngheight As Long<br> intcount = cmdbutton.Count<br> lngwidth = cmdbutton(0).Width<br> lngheight = cmdbutton(0).Height<br> Load cmdbutton(intcount)<br> cmdbutton(intcount).Caption = "&" & CStr(intcount)<br> If cmdbutton(intcount).Left<= _<br> frmmain.Width - lngwidth Then<br> cmdbutton(intcount).Top = cmdbutton(intcount - 1).Top<br> cmdbutton(intcount).Left = cmdbutton(intcount- 1) _<br> .Left+lngwidth<p> Else<br> cmdbutton(intcount).Top = cmdbutton(intcount - 1).Top <br> +lngheight<br> cmdbutton(intcount).Left = cmdbutton(0).Left<br> End If<br> cmdbutton(intcount).Visible = True<br> End Sub<br>以上程式之if cmdbutton(intcount).Left <=frmmain.Width - lngwidth Then<br>一段中,为何 cmdbutton(intcount).Left 的值是固定的,有所不明?<br>其该段原始程式为cmdbutton(intcount-1).Left <=frmmain.Width - _<br> 2*lngwidth Then<p><br> <p> <p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14399-->
</ul><!--end: 14399-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -