Dichiarato nel form delle statistiche della listview:
codice:
Public rndEarningsIA As New Random
Dichiarato nel form2:
codice:
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
On Error GoTo err
Dim CasualEarnings As Integer
CasualEarnings = gameworldstats.rndEarningsIA.Next(0, 500)
Dim item2 As ListViewItem
item2 = gameworldstats.ListView1.Items(0)
For Each item2 In gameworldstats.ListView1.Items
item2.Selected = True
If item2.SubItems(5).Text = "IAGAME" Then
item2.Selected = True
item2.SubItems(4).Text += CasualEarnings
End If
Next
err:
End Sub
Il codice controlla questo, per ogni item nella listview del form "GameWorldStats" contenente un subitem con scritto "IAGAME" allora nella colonna dei guadagni inserisci un numero casuale.