Erwin T. Steigleder
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Erwin T. Steigleder postou
-
Outro gif com funcionou transparente em webbroswer
Erwin T. Steigleder respondeu ao tópico de Marcello Filho em Web e banco de dados
Olá Sei que é uma dúvida antiga, mas pesquisando consegui um bom resultado para alterar o background color do WebBrowser e ainda retirar as bordas 3D e redimensionar o tamanho da GIF... Espero que ajude... Segue o código em VBA: Private Sub UserForm_Activate() 'Redefine background-color, retira as bordas 3D e redimensiona a GIF Dim end_imagem As String end_imagem = "C:\imagem.gif" 'Linha 1: Define o background-color do fundo da GIF para a cor RGB(240, 240, 240) 'Linha 2: Retira as barras de rolagem vert e horiz (scroll) 'Linha 3: Indica localização da GIF e dimensiona o tamanho da GIF (neste caso, larg e alt=80 pix) 'Obs: As dimensões (Larg e Alt) do WebBrowser devem ser definidas nas propriedades do próprio WebBrowser no formulário 'Linha 4: Apenas fechamento dos comandos HTML WebBrowser1.Navigate "about:<html><head><style>body {background-color: rgb(240, 240, 240)}</style></head>" & _ "<body scroll='no'>" & _ "<img src='" & end_imagem & "' style='width:80; height:80'>" & _ "</img></body></html> End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) 'Elimina as Bordas 3D do WebBrowser transformando em estilo Flat (sem bordas) WebBrowser1.Document.body.Style.Border = "none" End Sub
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
