作者jerick (杰.J)
看板Visual_Basic
标题Re: 如何让listbox的值出现过不在出现呢???
时间Sat Apr 5 07:23:31 2008
※ 引述《parrotot (祯祯 新年快乐^^)》之铭言：
: as title
: 我一个数值范围1到99重复跑.....
: 按停止时显示在listbox里
: 每按一次就增加一个数字进去(1~99)
: 如何读出listbox里全部的值?????
: 我打算重复出现让他加一~~这种作法可以吗???
这样子可以避免，一直取到重复值的问题。不知道还有没有更好的方法？
Public Class Form1
Dim tmp() As Byte
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
DefTmp()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim r As Random = New Random
Dim a As Integer = r.Next(0, tmp.Length)
ListBox1.Items.Add(tmp(a))
If tmp.Length = 1 Then
DefTmp()
Else
Array.Copy(tmp, a + 1, tmp, a, tmp.Length - a - 1)
ReDim Preserve tmp(tmp.Length - 2)
End If
End Sub
Private Sub DefTmp()
ReDim tmp(98)
Dim i As Integer
For i = 0 To 98
tmp(i) = i + 1
Next
End Sub
End Class
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.160.177.84