高手快来救命啊！！！VB中listbox使用问题

[kristenstewert]

我在form1里增加了一个listbox1控件，想往里面添加10个300以内的随机数


怎样实现，


当我使用ListBox1.AddItem的时候，VS2010中提示'AddItem' is not a member of 'System.Windows.Forms.ListBox'


怎么解决？？？

[c_cyd2008]

ListBox1.Items.Add

[asianh]

    Dim i As Long
    ListBox1.Clear
    For i = 1 To 10
        ListBox1.AddItem CStr(Int(300 * Rnd))
    Next i

[asianh]

    Dim i As Long
    ListBox1.Clear
    For i = 1 To 10
        Randomize
        ListBox1.AddItem CStr(Int(300 * Rnd))
    Next i

忘记了，rnd这个鸟函数每次都要Randomize一下。否则会出现莫名其妙的问题。

[kristenstewert]

可以说的再详细一点吗
为什么additem不能用？
[Quote=引用 1 楼 的回复:]

ListBox1.Items.Add
[/Quote]

[kristenstewert]

这样不行的，我也不知道为什么[Quote=引用 3 楼 的回复:]

VB code

Dim i As Long
ListBox1.Clear
For i = 1 To 10
Randomize
ListBox1.AddItem CStr(Int(300 * Rnd))
Next i



忘记了，rnd这个鸟函数每次都要Randomize一下。否则会出现莫名其妙的问题。
[/Quote]

[asianh]

[Quote=引用 5 楼 的回复:]
这样不行的，我也不知道为什么

引用 3 楼 的回复:

VB code

Dim i As Long
ListBox1.Clear
For i = 1 To 10
Randomize
ListBox1.AddItem CStr(Int(300 * Rnd))
Next i



忘记了，rnd这个鸟函数每次都要Randomize一下。否则会出现莫名其妙的问题。
[/Quote]

你是VB6还是VB.NET？我在VB6下测试通过。

[asianh]

。。。VS2010呀，这个没试过，不过下班了。明天再试下。

[asianh]

        Dim i As Long
        ListBox1.Items.Clear()
        For i = 1 To 10
            Randomize()
            ListBox1.Items.Add(CStr(Int(300 * Rnd())))
        Next i

好吧，还有几分钟，VS中要这样的。

[kristenstewert]

嗯 我也试出来了 ，再问一个问题哈：“在Form2上单击"绘图"命令按钮：用Line方法在屏幕上随机产生20条长度、颜色、宽度不同的直线。”在VS2010中怎么解决？麻烦了哈，我是新手。[Quote=引用 8 楼 的回复:]

VB code

Dim i As Long
ListBox1.Items.Clear()
For i = 1 To 10
Randomize()
ListBox1.Items.Add(CStr(Int(300 * Rnd())))
Next i



好吧，还有几分钟，VS中要……
[/Quote]