Salve a tutti,riposto la discussione poichè non avevo seguito il regolamento,non postando il linguaggio di programmazione e il codice che ho scritto.
Il problema è questo: nel Sub Form1_Load ho creato delle label (90,è un programma per ricreare la tombola). Successivamente, in un altro sub attivato da un button, faccio fare l'estrazione dei numeri casuali da 1 a 90, e dovrei cambiare lo sfondo ad una delle 90 label precedentemente costruite per i numeri estratti,ma il programma non mi consente di farlo perchè sono dichiarate nell'altro sub. Potete aiutarmi con questo problema?
Codice :
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim lbl As Label
Dim num As Integer
For x = 0 To 8
For i = 0 To 9
lbl = New Label()
lbl.Name = "label_" & num + 1
lbl.Text = num
lbl.Size = New Size(40, 30)
lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
lbl.Location = New Point(300 + (i * 34), 35 + (x * 35))
lbl.BorderStyle = 1
num = num + 1
Me.Controls.Add(lbl)
Next
Next
End Sub
Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click
Randomize()
Dim b(89), a As Integer
a = (Rnd() * 89) + 1
If b(a) = 0 Then
lbl2.Text = "Numero estratto "
lbl1.Text = a
b(a) = 1
End If
label_a.BackColor = Color.Red
End Sub
End Class