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

Posted by 战豪 on July 11, 1999 at 02:48:04:

In Reply to: Re: 为什么程式跑出来不正确呢?可否帮我看看?Why? posted by 阿太 on July 10, 1999 at 23:57:54:

: : 我想让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这裹吧!但请附带更详尽的说明啊~~

Follow Ups:

- Re: 为什么程式跑出来不正确呢?可否帮我看看?Why? 阿太 11:45:51 7/11/99 (3)
  - 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)