📄 15519.html
字号:
<html>
<head>
<title>Re: 为什么程式跑出来不正确呢?可否帮我看看?Why?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 为什么程式跑出来不正确呢?可否帮我看看?Why?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:live4war@yahoo.com">战豪</a> on July 12, 1999 at 07:15:12:<p>
In Reply to: <a href="15501.html">Re: 为什么程式跑出来不正确呢?可否帮我看看?Why?</a> posted by 阿太 on July 11, 1999 at 11:45:51:<p>
'噢!原来是这样,是动态的载入物件矩阵!很简单啰(但也花了我差不多30分锺去实作...真差劲...),看看以下的Coding是否适用?<br>'表单上有一List1的物件,Index为1,Visible为True,Width=1000,Height=600<br>'Button物件名为cmdAdd,两个TextBox物件分别为Text1及Text2<br>'建议你加入栏位及列位数量的检查,否则来个200烂400列.....真不敢想像.....<br>'另外,最好在Form_Unload事件中,也呼叫ClearAddedObject程序,以交回程式所耗用之记忆体资源!!!<p><br>Private Sub cmdAdd_Click()<br>Dim a As Integer, b As Integer, obj As Integer 'a=栏位数;b=列行数,obj=载入List1物件数<br>Dim row As Integer, col As Integer '存放物件.Left及.Top之变数<br>Dim i As Integer, j As Integer '计算器<p>If IsNumeric(Text1) And IsNumeric(Text2) Then '检查输入TextBox物件内容为数值否<br> a = Text1: b = Text2<br>Else<br> MsgBox "请输入数值以供测试!"<br> Exit Sub<br>End If<br>ClearAddedObject '在重新载入物件前,先清除已载入之ListBox物件<p>obj = 1: col = List1(1).Left: row = List1(1).Top '初始化各项变数<br>For i = 1 To a<br> For j = 1 To b<br> If obj = 1 Then<br> List1(obj).AddItem i & vbTab & j '因第一个ListBox为可见物件,所以无需加以处理,直接于此执行各内容及设定<br> Else<br> Load List1(obj) '开始载入第二个ListBox物件<br> With List1(obj)<br> If obj = ((i - 1) * a) + 1 Then '检查是否需要起始另一新列<br> col = List1(1).Left<br> row = row + 600<br> Else<br> col = col + 1000<br> End If<br> .Move col, row '将新载入之ListBox物件放到应当出现的地方<br> .AddItem i & vbTab & j '处理ListBox物件内容<br> .Visible = True<br> End With<br> End If<br> obj = obj + 1 '设定下一个物件变数<br> Next j<br>Next i<br>End Sub<p>Private Sub ClearAddedObject()<br>If List1.Count > 1 Then<br> For i = 2 To List1.Count<br> Unload List1(i)<br> Next i<br>End If<br>List1(1).Clear '清除旧有List1内容<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15519-->
<!--top: 15621--><li><a href="15621.html">谢谢你,战豪兄</a> <b>阿太</b> <i>08:30:44 7/14/99</i>
(<!--responses: 15621-->0)
<ul><!--insert: 15621-->
</ul><!--end: 15621-->
</ul><!--end: 15519-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -