New to VB.net, frustrated have been looking at this all day, Why PbAlly() value is Nothing ?
my screenshoot :
Null Reference Exception error
Code look like :
Public Class Form1
Dim thdUDPServer
Dim Playing As Boolean = False
Dim Giliran As Boolean = False
Dim PbAlly() As PictureBox = {pbAlly1, pbAlly2, pbAlly3, pbAlly4, pbAlly5, pbAlly6, pbAlly7}
Dim Kartu As Integer = 0
Public Sub initGame()
Dim RandomClass As New Random()
Dim RememberSet As New HashSet(Of Integer)
Dim RandomNumber As Integer
While RememberSet.Count < 7
RandomNumber = RandomClass.Next(1, 14)
If RememberSet.Add(RandomNumber) Then
If RandomNumber = 11 Then
lbData.Items.Add("*J")
ElseIf RandomNumber = 12 Then
lbData.Items.Add("*Q")
ElseIf RandomNumber = 13 Then
lbData.Items.Add("*K")
Else
lbData.Items.Add("*" & RandomNumber)
End If
PbAlly(Kartu).Image = Card.My.Resources.ResourceManager.GetObject(RandomNumber)
Kartu += 1
End If
End While
End Sub
PbAlly()
always giving me a null reference exception and I don't know why ?
Thanks for the help in advance.