[vb.net 2005] adicionar imagem

[Cybernavigator]

boas (yet again)

eu keria saber como adicionar uma imagem automaticamente num loop (criar a picture box e adicionar a imagem) e se possivel dar-lhe uma acção quando alguém clica-se nela. ?

[Asgorath]

Boas

Dim pict As New PictureBox
pict.Name = "Fotografias"
pict.Location = New Point(0, 0)
pict.Size = New Drawing.Size(500, 500)
pict.Image = Image.FromFile("c:\aa.jpg")
Me.Controls.Add(pict)

para lhe  dar-lhe uma acção quando alguém clica-se nela usa o AddHandler Statement

http://msdn2.microsoft.com/en-us/library/7taxzxka(VS.80).aspx

[Cybernavigator]

Pessoal, alguém me pode ajudar com isto?

quero fazer um loop k crie e adicione uma imagem automaticamente ah form...

mas não tou a conseguir.

Tou a usar o seguinte código

    Dim pict() As PictureBox

    Private Sub imagens_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim xpoint As Integer, ypoint As Integer
        Dim j As Integer = 1
        xpoint = 0
        ypoint = 0
        For i = 1 To 15
            Dim pict(i) As PictureBox
            pict(i).Name() = "Coisa" & i
            pict(i).SizeMode() = PictureBoxSizeMode.AutoSize
            If j = 1 Then
                Label1.Text = pict(i).Location.X
                Label2.Text = pict(i).Location.Y
            ElseIf j = 5 Then
                ypoint = Label2.Text + 34
                j = 1
            End If
            pict(i).Location = New Point(xpoint, ypoint)
            pict(i).Image = Image.FromFile("images\coisa (" & i & ").png")
            Me.Controls.Add(pict(i))
            xpoint += 34
        Next

deixo aki o projecto para terem noçao do erro k obtenho quando o executo.

http://buahaha.no.sapo.pt/imagens.rar

*editado*

Não anda aí nenhuma alma santa que me ajude com isto?

é que encrava logo aki

pict(i).Name() = "Coisa" & i

[Asgorath]

Boas

Vb.net não suporta arrays de controlos.

Public Class imagens

    Private Sub imagens_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim xpoint As Integer, ypoint As Integer
        Dim j As Integer = 1
        xpoint = 0
        ypoint = 0
        For i = 1 To 15
            Dim pict As New PictureBox
            pict.Name() = "Coisa" & i
            pict.SizeMode() = PictureBoxSizeMode.AutoSize
            If j = 1 Then
                Label1.Text = pict.Location.X
                Label2.Text = pict.Location.Y
            ElseIf j = 5 Then
                ypoint = Label2.Text + 34
                j = 1
            End If
            pict.Location = New Point(xpoint, ypoint)
            pict.Image = Image.FromFile("images\coisa (" & i & ").png")
            Me.Controls.Add(pict)
            xpoint += 34
        Next
    End Sub

[Cybernavigator]

Bom, encontrei isto, k eh exactmaente isso dos arrays de controlos

http://vbcity.com/forums/topic.asp?tid=3340

Mas para vb.net2003, e dá-me erros porque nao consigo converter.

[Asgorath]

isto funciona em vb.net 2005

http://www.devasp.net/net/articles/display/317.html

[Cybernavigator]

:|

Então pk só me dá erros ao copair qualquer um dos códigos?

Tou a falar dos códigos que estão nuns posts abaixo nesse site.