Visual Basic - iconos 32bits

Life is soft - evento anual de software empresarial
 
Vista:

iconos 32bits

Publicado por Roberto (2 intervenciones) el 26/04/2005 22:22:43
como puedo poner iconos 32bits en mis formulario ya que visual 6 solo detecta los de 256 colores, hay alguna forma de que acepto los iconos de 32bits::
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:iconos 32bits

Publicado por Krator (71 intervenciones) el 20/07/2005 17:06:06
Yo me ando preguntando lo mismo. AL final lo que hago es pasar el icono a formato jpg...i bueno...algo es algo.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 14
Ha disminuido su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Aqui esta

Publicado por SuNcO (600 intervenciones) el 20/07/2005 19:50:32
Por fin.. de tanto buscar y mover aqui y alla, ya me funciona este codigo

Claro, hay que cambiar c:\salir.ico (que es un icono de 32bits) por el que tu quieras

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10

Dim hIconBar As Long

Function hIcon(IconPath As String, IconSize As Long) As Long
hIcon = LoadImage(0&, IconPath, IMAGE_ICON, IconSize, IconSize, LR_LOADFROMFILE)
End Function

Private Sub Command1_Click()
hIconBar = hIcon("c:\salir.ico", 32&)
SendMessage Me.hWnd, WM_SETICON, 0&, ByVal hIconBar
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar