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

w00t!

[VB6] Erro ao meter icon

14 mensagens neste tópico

Pessoal não consigo meter icons num form.. :P

Meti o seguinte:

Private Sub Form_Load()
Form1.Icon = LoadPicture(App.Path & "\icon.ico")
End Sub

Mas dá, "Invalid Picture". Será do icon estar com mais bits do que o vb6 suporta?  :?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se estás a fazer isso no load da form, porque não fazes antes na Proprietes Window que é bem mais fácil?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se dá invalid picture, tens de te certificar que o k tu tens lá é um icon suportado. fizeste esse icon com que programa? já experimentaste com outro icon?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tas a usar demasiados bits no icon, a icon esta a usar transparencia? se tiver é bem k o tires se n n funciona, ou então compilas o programa e dps com um o RESHACK mudas o icon do programa :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Hei de verificar isso da transparência....nunca me tinha apercebido.

vaurdan, pelo que eles dizem, só icons sem área transparente é que resultam...

Fica bem :D;):Pet welcome to p@p :cheers:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olhem tive a tentar por icon mas nao dá!

dame Invalid Proprety Value.

Fis com trasparencia. sem trasparencia mas nao da...

Como sei quantos bites akilo tem?

e quais os maximos do VisualBasic 6?

PS:FIz com paint mas se for esse o problema fasso com firework

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se tivesses o programa iconforge, podias abrir o ficheiro de windows da pasta system32 chamado shell, sendo esta nada mais nada menos que uma dll que contém quase todos os icons utilizados pelo windows... depois era só escolher um de 16*16 e guardá-lo e testar no teu programa...

Era assim que punha alguns icons conhecidos nos meus programas...

Se tivesses vb.net 2003 poodias fazer o icon com o próprio IDE, mas sendo assim, abre um ficheiro num programa qualquer de edição de imagem com 16*16 pixeis, pinta e guarda como ico.

e Testa... :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Os icons não funcionam das mesma maneira que as imagens, e também variam de versão para versão. Ou seja o VB6 trata-os de uma maneira, o VB.NET 2003 de outra e o VB.NET 2005 /VB.NET 2003 + xp themes de outra.

OU seja o VB.NET 2005 e o 2003 + Themes suportam icons com sombra e transparencia, enquanto que as restantes versões não. Para a form é apenas necessário um icon com 16x16 para mostrar, mas convem usar um completo (16x16,32x32,48x48), pois se for utilizado ao Alt+Tab surgirá um icon grande

Método para definir um icon no VB.NET

Dim ico As New System.Drawing.Icon("c:\temp\tst.ico")
Me.Icon = ico

Método para definir um icon no VB6

Form1.Icon = LoadPicture(App.Path & "\icon.ico")

A utilização de icons com mais de 256 cores não é permitida.

Relembro aos utilizadores para referirem no post qual a versão do VB que estão a utilizar.

Com os melhores cumprimentos,

Sérgio Matias

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Elah, não conhecia esses themes de xp para vb.net 2003.

O que têm de especial?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O que eu me refiro é activação dos themes, ou seja permite usar os controlos estilo xp, isto pode ser feito através de um ficheiro .manifest ou através do próprio code (somente no framework 2003).

Se em vez de arrancares com a form usares o Sub Main podes usar os controlos xp style.

Sub Main()

        Try

            Application.EnableVisualStyles()
            Application.DoEvents()

            Application.Run(New frmClient)

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

Alguns controlos no VB.NET necessitam de uma propriedade activa em system, mas isso impede o uso dos icons.

Me.btnAceitar.FlatStyle = System.Windows.Forms.FlatStyle.System

Este método permite usar por exemplo png com transparência como icons nos menus sem qualquer erro.

No VB.NET 2005 todos os problemas colocados por estes remendos estilos microsoft foram corrigidos, sendo que tudo funciona em xp style sem problemas.

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