none
referenciar um Objeto RRS feed

  • Pergunta

  •  

    Por favor, em um objeto Panel coloque 40 picturebox representando 40 salas. Tenho no banco de dados as salas que estão ocupadas. tenho duas imagens jpeg. uma vermelha e uma azul representando as salas ocupadas e as salas vermelhas. Gostaria de fazer o seguinte. Percorrer o banco de dados e troca a imagem quando a sala estiver ocupada.

     

    seria algo assim    picuture = "sala" & dr("sala_ID)

                                picuture.image = ocupada.jpeg

     

    não estou sabendo como referenciar a picturebox via código.

     

    grato pela atenção

     

    quarta-feira, 1 de agosto de 2007 02:29

Respostas

  • Se você quer pegar uma referência ao controle pelo nome, você pode usar a coleção de controles do Panel em que os PictureBoxes estão. A coleção retornará uma referêcia ao controle, se encontrar o nome:

     

    Dim pb As PictureBox = Panel1.Controls("PictureBox1")
     
    If pb IsNot Nothing Then
        pb.Image = Image.FromFile("C:\ocupada.jpeg")
    End If

     

     

    quarta-feira, 1 de agosto de 2007 13:02

Todas as Respostas

  • Se você quer pegar uma referência ao controle pelo nome, você pode usar a coleção de controles do Panel em que os PictureBoxes estão. A coleção retornará uma referêcia ao controle, se encontrar o nome:

     

    Dim pb As PictureBox = Panel1.Controls("PictureBox1")
     
    If pb IsNot Nothing Then
        pb.Image = Image.FromFile("C:\ocupada.jpeg")
    End If

     

     

    quarta-feira, 1 de agosto de 2007 13:02
  • Obrigado, era exatamente isto que precisava.

    quarta-feira, 1 de agosto de 2007 13:06