Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

manuelgoncalves

correr picturebox se value null carregar imagem

Mensagens Recomendadas

manuelgoncalves

ola viva a todos....

Pessoal, antes de mais dexem dizervos que não possuo nenhuma formaçãoo em programação e agora deparo-me com um problema que nao estou a consegir ultrapassar....esperava vossa ajuda se possivel.

É o seguinte tenho este codigo que copiei do forum e fiz algumas alterações,

sub aaa

       For j = 0 To ListBox1.Items.Count - 1
           Dim pctbox As New PictureBox
           Dim i As Integer
           pctbox.Name = ("" + i.ToString)
           pctbox.Tag = i
           pctbox.Location = New Drawing.Point(10 * i + 50 * i, 20)
           pctbox.Visible = True
           pctbox.Size = New System.Drawing.Size(100, 100)
           pctbox.BackColor = Color.Blue
           pctbox.Enabled = True


           pctbox.ImageLocation = (appPath & "\Res\A\" & i & ".jpg")
           pctbox.SizeMode = PictureBoxSizeMode.StretchImage
           Controls.Add(pctbox)
           AddHandler pctbox.Click, AddressOf pic_Click
           i += 1
           FlowLayoutPanel1.Controls.Add(pctbox)
       Next

   End Sub

vai mandar-me para o AddressOf pic_Click com o seguinte codigo,

Private Sub pic_Click(ByVal sender As Object, ByVal e As EventArgs)

       Dim pic As PictureBox = DirectCast(sender, PictureBox)
       Dim i As Integer = pic.Name

           Select Case sender.tag

               Case 0

                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 1
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 2
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 3
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 4
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 5
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 6
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 7
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 8
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case 9
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
               Case Else
                   tela1.ImageLocation = (appPath & "\Res\A\" + pic.Name & ".jpg")
           End Select


           i += 1

   End Sub

e aqui é que me reside o problema...

aqui tela1 é uma picturebox e necessito criar 9, tela1 , tela2, tela3, ate tela 9,...

o que pretendia é que nas case corresse um codigo, não sei bem, que me visse a tela1 se ja tivesse carregado uma imagem passase para a tela2 e assim fazer um ciclo rotativo.... ate a tela9 , é este o meu problema e não consigo ultrapassar...

Grato pela atenção...

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.