Visual Basic

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