Visual Basic

wrote:

to anyone who has encounter appforge

' Create an ArrayList and fill it with ASCII values
    Dim salt As New ArrayList
    For num As Integer = 65 To 90
      salt.Add(num)
    Next

    Dim rand As New Random()
    Dim iPos As Integer = 0
    Dim cTemp As Char

    While salt.Count > 0

      ' Get a random position within the ArrayList
      ' use the Random.Next(min, max)   
      iPos = CInt(rand.Next(0, salt.Count - 1))

      ' Retrieve the letter within the ArrayList
      '	using ArrayList.Item(iPos)  
      cTemp = Convert.ToChar(CInt(salt.Item(iPos)))

      ' TODO:  cTemp holds your random letter 
      MsgBox(cTemp.ToString)

      ' Remove the letter within the ArrayList
      '	using ArrayList.RemoveAt(iPos)
      salt.RemoveAt(iPos)

      ' Using the above statment will 
      '	decrease the ArrayList.Count 

    End While

harveyhanson wrote:

lblLetter1.Text = Chara.ToString()
lblLetter2.Text = Chara.ToString()
lblLetter3.Text = Chara.ToString()
lblLetter4.Text = Chara.ToString()

harveyhanson wrote:

Convert.ToChar(rnd.Next(98, 123))

harveyhanson wrote:

Do you mean like this

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    label1.text = RandomLetter()
    label2.text = RandomLetter()
    '...
End Sub

Dim rnd As New Random
Private Function RandomLetter() As String
    Return Chr(rnd.Next(97, 123)).ToString
End Function

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    RandomizeLabels(Me, "Label*")
End Sub

'---Assigns a random letter to each label who's name matches the given pattern---
Dim rnd As New Random
Private Sub RandomizeLabels(ByVal container As Control, ByVal pattern As String)
    For Each ctrl As Control In container.Controls
        Dim lbl As Label = TryCast(ctrl, Label)
        If lbl IsNot Nothing AndAlso lbl.Name Like pattern Then
            lbl.Text = Chr(rnd.Next(97, 123)).ToString
        End If
    Next
End Sub

Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
    e.NewValue = e.CurrentValue
End Sub

'---Add items with keys---
With ListView1.Items
    .Add("Steak", "Steak", "")
    .Add("Apple", "Apple", "")
    .Add("Rice", "Rice", "")
End With

'---Uncheck previous items---
For i As Integer = ListView1.CheckedItems.Count - 1 To 0 Step -1
    ListView1.CheckedItems(i).Checked = False
Next

Dim itemsToSelect As String() = {"Steak", "Rice"}
For Each item As String In itemsToSelect
    ListView1.Items(item).Checked = True
Next