Simplificar código

[McJota 0]

Boa noite pessoal.

Como faço para simplificar o seguinte código?

If Imagem.Text = "1" Then
Panel1.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
ElseIf Imagem.Text = "2" Then
Panel2.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
ElseIf Imagem.Text = "3" Then
Panel3.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
End If

No meu Form tenho 100 Panels divididos em 10 TabPages, entao teria que repetir a mesma linha de código 100 vezes!

Tentei definir uma variável más não consegui!

Dim T as String
T = Imagem.Text
Panel(T).BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")

 

Desde já agradeço....

[shini 318]

use um for, com um array.

[McJota 0]

Obrigado pela atenção.

Pode me dar um exemplo de como eu faço isso?

 

[KhaosDoctor 242]

Use um for each

 For Each p As Panel In seutabcontrol.Controls
            If TypeOf p Is Panel Then
                p.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
            End If
        Next

Caso ocorra erros de conversão tente assim:

For Each p As Panel In seutabcontrol.Controls
            If TypeOf p Is Panel Then
                DirectCast(p, Panel).BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
            End If
        Next

Ou

   For Each p As Panel In seutabcontrol.Controls
            If TypeOf p Is Panel Then
                CType(p, Panel).BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
            End If
        Next

 

[McJota 0]

Boas Doctor, obrigado pela atenção.

Com o código que me passou define o BackgroundImage de todos os Panels!

Na verdade o que eu precisava era definir somente o do Panel indicado pela TextBox Imagem.

If Imagem.Text = "1" Then
Panel1.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
ElseIf Imagem.Text = "2" Then
Panel2.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
ElseIf Imagem.Text = "3" Then
Panel3.BackgroundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
End If

 

Abraço.....

[KhaosDoctor 242]

Então você pode fazer utilizando a imagem como um Select Case

 

 

Select Imagem.Text


Case 0: <código>

[McJota 0]

Caro Doctor, mais uma vez obrigado pela atenção.....

Consegui resolver parcialmente meu problema usando um For Each.

For Each T In Me.TabPage1.Controls
If T.Name = "Panel" & Imagem.Text Then
T.BackGoundImage = Drawing.Image.FromFile(Application.StartupPath & "\Imagens\Imagem.jpg")
End If
Next

Usei o mesmo código para cada TabPage do Form e ficou perfeito!

Obrigado a todos pelas dicas....
Abraço....