allora devo fare un programma che contiene dati relativi ad una partita di calcio
qst è il mio codice:
Public Class Form1
Public Class squadra
Dim nome As String
Dim gol As Integer
End Class
Dim casa, ospite As squadra
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtcasa.Visible = False
txtgolcasa.Visible = False
txtospite.Visible = False
txtgolospite.Visible = False
End Sub
Private Sub Btncarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncarica.Click
With casa
.nome = InputBox("squadra casa", "inserire nome")
.gol = Val(InputBox("squadra casa", "inserire gol"))
End With
With ospite
.nome = InputBox("squadra casa", "inserire nome")
.gol = Val(InputBox("squadra casa", "inserire gol"))
End With
txtcasa.Text = casa.nome
txtcasa.Visible = True
txtcasa.Text = casa.gol
txtgolcasa.Visible = True
txtospite.Text = ospite.nome
txtospite.Visible = True
txtcasa.Text = ospite.gol
txtgolospite.Visible = True
solo che mi da 8 errori e dice
Errore 1 'WindowsApplication1.Form1.squadra.nome' non è accessibile in questo contesto perché è 'Private'.
questo melo da anche per squadra.nome, squadra.gol
come risolvo?? grazie
Rispondi quotando
