[VB6] Erro ao meter icon

[w00t!]

Pessoal não consigo meter icons num form.. 😛

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?  :?

[vbmaster]

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

[w00t!]

Dá o mesmo erro.

[AriOps]

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?

[Scorpion_Blood]

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 😛

[w00t!]

É por causa da transparencia, thx a todos. ;)

[vaurdan]

tem de ser trasparente ou n?

[vbmaster]

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 😄 ;)😛et welcome to p@p :cheers:

[vaurdan]

obrigado e fika tb bem

[vaurdan]

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

[vbmaster]

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... 😄

[perdido_e_sozinho]

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

[vbmaster]

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

O que têm de especial?

[perdido_e_sozinho]

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.