[VB.NET/2010] Aggiornamento form dopo aver scatenato un evento

[Marcoingrande]

No ... non ti sei spiegato.

"Seleziona" è un button?

"Farmi spuntare l'immagine" che vuol dire?

onLoad è la Form_Load?

Hai scritto del codice o no?

Quali sono i controlli presenti sul form che sono coinvolti?

P.S. L'esempio con Excel ha peggiorato la situazione ...

Private Sub frmOfficina_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Dim leggimoto1 As System.IO.StreamReader
        Dim moto1 As Integer
        leggimoto1 = System.IO.File.OpenText("C:\\scootersT\Moto1.txt")
        moto1 = leggimoto1.ReadLine
        leggimoto1.Close()
        If moto1 = 1 Then
            picMoto1.Image = ImageList1.Images(0)


        ElseIf moto1 = 2 Then
            picMoto1.Image = ImageList1.Images(1)


        ElseIf moto1 = 3 Then
            picMoto1.Image = ImageList1.Images(2)


        ElseIf moto1 = 4 Then
            picMoto1.Image = ImageList1.Images(3)


        ElseIf moto1 = 5 Then
            picMoto1.Image = ImageList1.Images(4)


        ElseIf moto1 = 6 Then
            picMoto1.Image = ImageList1.Images(5)


        ElseIf moto1 = 7 Then
            picMoto1.Image = ImageList1.Images(6)


        ElseIf moto1 = 8 Then
            picMoto1.Image = ImageList1.Images(7)


        ElseIf moto1 = 9 Then
            picMoto1.Image = ImageList1.Images(8)


        ElseIf moto1 = 10 Then
            picMoto1.Image = ImageList1.Images(9)


        ElseIf moto1 = 11 Then
            picMoto1.Image = ImageList1.Images(10)


        Else
            picMoto1.Image = Nothing
        End If


        Dim leggimoto2 As System.IO.StreamReader
        Dim moto2 As Integer
        leggimoto2 = System.IO.File.OpenText("C:\\scootersT\Moto2.txt")
        moto2 = leggimoto2.ReadLine
        leggimoto2.Close()
        If moto2 = 1 Then
            picMoto2.Image = ImageList1.Images(0)


        ElseIf moto2 = 2 Then
            picMoto2.Image = ImageList1.Images(1)


        ElseIf moto2 = 3 Then
            picMoto2.Image = ImageList1.Images(2)


        ElseIf moto2 = 4 Then
            picMoto2.Image = ImageList1.Images(3)


        ElseIf moto2 = 5 Then
            picMoto2.Image = ImageList1.Images(4)


        ElseIf moto2 = 6 Then
            picMoto2.Image = ImageList1.Images(5)


        ElseIf moto2 = 7 Then
            picMoto2.Image = ImageList1.Images(6)


        ElseIf moto2 = 8 Then
            picMoto2.Image = ImageList1.Images(7)


        ElseIf moto2 = 9 Then
            picMoto2.Image = ImageList1.Images(8)


        ElseIf moto2 = 10 Then
            picMoto2.Image = ImageList1.Images(9)


        ElseIf moto2 = 11 Then
            picMoto2.Image = ImageList1.Images(10)


        Else
            picMoto2.Image = Nothing
        End If


        Dim leggimoto3 As System.IO.StreamReader
        Dim moto3 As Integer
        leggimoto3 = System.IO.File.OpenText("C:\\scootersT\Moto3.txt")
        moto3 = leggimoto3.ReadLine
        leggimoto3.Close()
        If moto3 = 1 Then
            picMoto3.Image = ImageList1.Images(0)


        ElseIf moto3 = 2 Then
            picMoto3.Image = ImageList1.Images(1)


        ElseIf moto3 = 3 Then
            picMoto3.Image = ImageList1.Images(2)


        ElseIf moto3 = 4 Then
            picMoto1.Image = ImageList1.Images(3)


        ElseIf moto3 = 5 Then
            picMoto3.Image = ImageList1.Images(4)


        ElseIf moto3 = 6 Then
            picMoto3.Image = ImageList1.Images(5)


        ElseIf moto3 = 7 Then
            picMoto3.Image = ImageList1.Images(6)


        ElseIf moto3 = 8 Then
            picMoto3.Image = ImageList1.Images(7)


        ElseIf moto3 = 9 Then
            picMoto3.Image = ImageList1.Images(8)


        ElseIf moto3 = 10 Then
            picMoto3.Image = ImageList1.Images(9)


        ElseIf moto3 = 11 Then
            picMoto3.Image = ImageList1.Images(10)


        Else
            picMoto3.Image = Nothing
        End If


        Dim leggimotosele As System.IO.StreamReader
        Dim motosele As Integer
        leggimotosele = System.IO.File.OpenText("C:\\scootersT\Motosele.txt")
        motosele = leggimotosele.ReadLine
        leggimotosele.Close()
        If motosele = 1 Then
            picMotoSele.Image = ImageList1.Images(0)


        ElseIf motosele = 2 Then
            picMotoSele.Image = ImageList1.Images(1)


        ElseIf motosele = 3 Then
            picMotoSele.Image = ImageList1.Images(2)


        ElseIf motosele = 4 Then
            picMotoSele.Image = ImageList1.Images(3)


        ElseIf motosele = 5 Then
            picMotoSele.Image = ImageList1.Images(4)


        ElseIf motosele = 6 Then
            picMotoSele.Image = ImageList1.Images(5)


        ElseIf motosele = 7 Then
            picMotoSele.Image = ImageList1.Images(6)


        ElseIf motosele = 8 Then
            picMotoSele.Image = ImageList1.Images(7)


        ElseIf motosele = 9 Then
            picMotoSele.Image = ImageList1.Images(8)


        ElseIf motosele = 10 Then
            picMotoSele.Image = ImageList1.Images(9)


        ElseIf motosele = 11 Then
            picMotoSele.Image = ImageList1.Images(10)


        Else
            picMotoSele.Image = Nothing
        End If

questo è quello che ho scritto io.

Sul form sono presenti:
-4 picturebox(3 per moto1,2,3 e 1 per motore selezionato)
-8 button(3 vendi, 3 seleziona, 1 elabora e 1 indietro)