# Re: 为什么程式跑出来不正确呢?可否帮我看看?Why?

Posted by 阿太 on July 11, 1999 at 11:45:51:

In Reply to: Re: 为什么程式跑出来不正确呢?可否帮我看看?Why? posted by 战豪 on July 11, 1999 at 02:48:04:

: : : 我想让VB自动依使用者输入之资料产生表格,
: : : 程式如下,但ListBox只跑出一行,一列,Help me

: : : Private Sub cmdAdd_Click()
: : : a = Text1.Text
: : : b = Text2.Text
: : : For j = 1 To b
: : : For i = 1 To a
: : : R = i
: : : Load List1(R)
: : : List1(0).SetFocus
: : : With List1(R)
: : : .Top = List1(R - 1).Top + 500
: : : .Visible = True
: : : .AddItem (R + 1)
: : : End With
: : : Next i
: : :
: : : Load List1(R + j)
: : : List1(0).SetFocus
: : : With List1(R + j)
: : : .Left = List1(i + j + 1).Left + 1095
: : : End With
: : : Next j
: : :
: : :
: : : End Sub

: 不明白老哥你为何要Load如此多个Listbox物件于一个表单之中!!???
: 假设你有二个Textbox物件来接收使用者输入的资讯并动态的加进Listbox清单中,方法如下:

: Private Sub cmdAdd_Click()
: Dim aStr as string
: aStr = Text1 & vbTab & Text2 '令二组文字分栏位放到清单中
: List1.AddItem aStr
: end sub

: 又或者你想将二个TextBox物件的输入当成一组矩阵,放进ListBox物件之中:

: Private Sub cmdAdd_Click()
: Dim aNo As Integer, bNo As Integer
: Dim i As Integer, j As Integer
: If IsNumeric(Text1) And IsNumeric(Text2) Then
: aNo = Text1: bNo = Text2
: Else
: MsgBox "请输入数值以供测试!"
: Exit Sub
: End If
: For i = 1 To aNo
: For j = 1 To bNo
: List1.AddItem i & vbTab & j
: Next j
: Next i
: End Sub

: 如你之问题属另一个层面的难度,Email我或re-post这裹吧!但请附带更详尽的说明啊~~
Sorry , 前面的程式是旧的,正确的是这一个,
Listbox 的Height:600, Weight:1095,Index:1
我想做的是做一个类似储物柜功能的表格,可能吗?

Private Sub cmdAdd_Click()
a = Text1.Text
b = Text2.Text
If R >= a Then Exit Sub
For j = 1 To b - 1
For i = 1 To a - 1
R = i + 1
Load List1(k + R)
'List1(1).SetFocus
With List1(k + R)
.Left = List1(k + R - 1).Left + 1095
.Visible = True
.AddItem (k + R)
End With
s = k + R
Next i
k = s
x = s + 1
Load List1(x)
'List1(0).SetFocus
With List1(x)
.Top = List1(x - R).Top + 588
.Visible = True
.AddItem (x)
End With
Next j
End Sub

Follow Ups:

- Re: 为什么程式跑出来不正确呢?可否帮我看看?Why? 战豪 07:29:46 7/12/99 (0)
- Re: 为什么程式跑出来不正确呢?可否帮我看看?Why? 战豪 07:15:12 7/12/99 (1)
  - 谢谢你,战豪兄 阿太 08:30:44 7/14/99 (0)