Re: 如何讓listbox的值出現過不在出現呢???
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：