Ir para conteúdo
Fórum Script Brasil

kleber.bertolini

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre kleber.bertolini

kleber.bertolini's Achievements

0

Reputação

  1. Olá bom dia, Estou adicionando uma imagem para o imagelist a partir da seguinte função: caminhoarquivo = Application.GetOpenFilename(FileFilter:="Image Files(*.bmp), *.bmp") UserForm2.ImageList1.ListImages.Add , "IMAGEM_TESTE", LoadPicture(caminhoarquivo) a função roda normalmente, inclusive ao adicionar essa imagem para image1 no mesmo commandbutton ainda com o userform aberto a imagem aparece normalmente em image1. Exemplo: Image1.Picture = ImageList1.ListImages("IMAGEM_TESTE").Picture Ocorre que, ao fechar o Userform a imagem não fica salva, não aparece na consulta do campo "personalizado" e ao executar uma nova função já não localiza mais a "IMAGEM_TESTE", ou seja, enquanto o Userform está aberto a imagem está no Imagelist, ao fechar o Userform ela some. se alguém puder me auxiliar com este problema. Obrigado!
  2. Olá Luana, Perfeito, deu certinho agora rsrsrsr. Hide = ocultar. Obrigado.
  3. Olá, sou iniciante com programação em vba e estou tentando operar com listview, para isso habilitei o comando e também a referência Microsotf windows common...6.0 Para teste inseri o seguinte código: Private Sub CommandButton1_Click() List_1.ColumnHeaders.Clear List_1.HideColumnHeaders = True List_1.Gridlines = True List_1.View = lvwReport List_1.FullRowSelect = True List_1.ColumnHeaders.Add Text:=Plan1.Cells(1, 1).Value, Width:=120 List_1.ColumnHeaders.Add Text:=Plan1.Cells(1, 2).Value, Width:=40 List_1.ColumnHeaders.Add Text:=Plan1.Cells(1, 3).Value, Width:=120 List_1.ListItems.Clear Set Lista = List_1.ListItems.Add(Text:=Plan1.Cells(2, 1).Value) Lista.ListSubItems.Add Text:=Plan1.Cells(2, 2).Value Lista.ListSubItems.Add Text:=Plan1.Cells(2, 3).Value Set Lista = List_1.ListItems.Add(Text:=Plan1.Cells(3, 1).Value) Lista.ListSubItems.Add Text:=Plan1.Cells(3, 2).Value Lista.ListSubItems.Add Text:=Plan1.Cells(3, 3).Value End Sub Ao executar o comando o listview está apresentando as colunas e linhas corretamente, porém, os cabeçalhos inseridos na função não estão sendo apresentados. Alguma ideia do que possa estar faltando, os cabeçalhos seriam CIDADE, UF, CEP?
×
×
  • Criar Novo...