numberlist.count
Public Sub Gamepeicepick() Dim gametile As Integer = 0 Do Randomize() gametile = tilerand.Next(1, 62) ' NUmber of images to pick from If Numberlist.Contains(gametile) = True Then Continue Do Numberlist.Add(gametile) Loop Until Numberlist.Count = 31 Numberlist.Sort() Dim sb As New System.Text.StringBuilder For index As Integer = 0 To Numberlist.Count - 1 sb.Append(Numberlist.Item(index).ToString & ",") Next Tile01 = (Numberlist.Item(0)) Tile02 = (Numberlist.Item(1)) Tile03 = (Numberlist.Item(2)) Tile04 = (Numberlist.Item(3)) Tile05 = (Numberlist.Item(4)) Tile06 = (Numberlist.Item(5)) Tile07 = (Numberlist.Item(6)) Tile08 = (Numberlist.Item(7)) Tile09 = (Numberlist.Item(8)) Tile10 = (Numberlist.Item(9)) Tile11 = (Numberlist.Item(10)) Tile12 = (Numberlist.Item(11)) Tile13 = (Numberlist.Item(12)) Tile14 = (Numberlist.Item(13)) Tile15 = (Numberlist.Item(14)) Tile16 = (Numberlist.Item(15)) Tile17 = (Numberlist.Item(16)) Tile18 = (Numberlist.Item(17)) Tile19 = (Numberlist.Item(18)) Tile20 = (Numberlist.Item(19)) Tile21 = (Numberlist.Item(20)) Tile22 = (Numberlist.Item(21)) Tile23 = (Numberlist.Item(22)) Tile24 = (Numberlist.Item(23)) Tile25 = (Numberlist.Item(24)) Tile26 = (Numberlist.Item(25)) Tile27 = (Numberlist.Item(26)) Tile28 = (Numberlist.Item(27)) Tile29 = (Numberlist.Item(28)) Tile30 = (Numberlist.Item(29)) Tile31 = (Numberlist.Item(30)) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)