Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged Dim CardType As String = Nothing RadioButton2.Font = IIf(RadioButton2.Checked = True, New Font(RadioButton2.Font, FontStyle.Bold), New Font(RadioButton2.Font, FontStyle.Regular)) If RadioButton2.Checked = True Then For x As Integer = 1 To NumberOfCards CardType = IIf(Trim(Mid(MyCard(x, 1, 1), 5, 1)) = "H", "Hard", "Special") Dim wrditem As New ListViewItem wrditem.Text = Str(x) wrditem.SubItems.Add(wrditem.Text) ListView1.Items.Add(CardType) Next End If End Sub
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎