📄 8301.html

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

💻 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:w100@ms1.url.com.tw">洪扬</a> on December 14, 1998 at 22:07:43:<p>
我事先在Form上拉出一个frame,然后在frame里放一个Label,<br>frame及Label的index属性都设为1(也就是两者都是控制项阵列),<br>为什么程式执行之后,只看得到Frame,却看不到Label,请问关键在那里?<br>我程式码如下:<br>Private Sub Form_Load()<br>Dim i As Integer, t As Long, k As Integer<br>For i = 2 To 60<br>    Load DeskFrame(i)<br>    Load DeskLabel(i)<br>Next<br>t = 72<br>For i = 1 To 60<br>    k = i Mod 10<br>    DeskFrame(i).Move IIf(k = 0, 10, k) * 850, t<br>    DeskFrame(i).Visible = True<br>    DeskFrame(i).Caption = i<br>    DeskFrame(i).BackColor = RGB(238, 123, 155)<br>    DeskLabel(i).Move IIf(k = 0, 10, k) * 850 , t<br>    DeskLabel(i).Visible = True<br>    If i Mod 10 = 0 Then<br>       t = t + 650<br>    End If<br>Next<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8301-->
<!--top: 8315--><li><a href="8315.html">漏了一行啦!</a> <b>小吴</b> <i>08:30:39 12/15/98</i>
(<!--responses: 8315-->0)
<ul><!--insert: 8315-->
</ul><!--end: 8315-->
</ul><!--end: 8301-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -