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

Tiago fernando

Dúvida imagem

3 mensagens neste tópico

Com a ajuda do pessoal do forum estou a criar um programa para catalogar cds e dvds, e estou com dois problemas por agora.

1º eu cria criar um botão, que amplia-se uma imagem até ai sem problema, o problema é que eu cria que ao clicar nesse botao ele abrisse uma imagem numa poup ja ampliada.

2ª eu estou a utilizar uma listbox onde se encontram os cds listados, mas eu cria que aparece-se mais que um campo tipo: numero do cd, nome e gênero. Tem como fazer isto em listbox? se não der como faço em listview.

Desde já muito obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a solução da primeira é fácil:

crie mais 1 form, maior, e coloque uma picturebox com a propriedade Dock = fill (o do meio). no form 1, crie uma variavel global para armazenar o local da imagem. no botão de "Aumentar", digite o código:

form2.show()

no evento load do form 2, escreva:

picturebox1.imagelocation = variavelGlobal

desculpe não digitar direito, pois no pc que estou não tem visual basic. mas sei os códigos, vai dar certo!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Problema 1:

Concordo com o mateus

Problema 2:

Crias um sub, aconselho-te a usar ListView em modo Details é mais fácil de usar e mais simples e organizado.

Sub admovie ()

End Sub

Segundo:

Crias variáveis, no form load para ser mais fácil a adição.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim numero As Integer
Dim nome As String
Dim genero As String
End Sub

Na tabela crias 3 barras com o nome # ou , Nome do CD e Género, nesta mesma ordem.

E para adicionar:

Sub admovie ()
'numero = numero do CD
'nome = Nome do Filme
'genero = Género de Filme
numero = numero + 1
nome = TextBox1.Text 'textbox1 tem o nome do filme
genero = TextBox2.Text 'textbox2 tem o genero do filme
Dim newcd As New ListViewItem(numero)
            newcd.SubItems.Add(nome)
            newcd.SubItems.Add(genero)
            ListView1.Items.Add(newcd)
End Sub

Espero que te ajude, e mais alguma coisa é só dizer.

Cumps. J.Viana

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