Erwin T. Steigleder
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Erwin T. Steigleder
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
gif com funcionou transparente em webbroswer
em Web e banco de dados
Postado
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