• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Cybernavigator

[vb.net 2005] adicionar imagem

7 mensagens neste tópico

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. :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pessoal, alguém me pode ajudar com isto?

:wallbash:

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:|

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.

0

Partilhar esta mensagem


Link 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