Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: vbgedo en Junio 30, 2016, 10:31:44 am

Título: cómo cargar una imagen de archivo (codejock pushbutton) ?
Publicado por: vbgedo en Junio 30, 2016, 10:31:44 am

Hola a todos

i utilizar este código para cargar la imagen de ImageManager

PushButton1.Icon = ImageManager1.Icons.GetImage(1, 1)

i necesidad de cargar el icono de un archivo o recurso gusta esto

app.path & ("\images\icon1.png")

cómo hacer esto ?

Título: Re:cómo cargar una imagen de archivo (codejock pushbutton) ?
Publicado por: AxioUK en Julio 01, 2016, 08:14:43 pm

Hola:
          Para imágenes sin "alpha channel" (transparencias y demases) puedes usar lo siguiente:

Código: (VB) [Seleccionar]

PushButton01.Picture = LoadPicture(App.Path & "\imagen.ico")
Pero si lo que deseas es cargar imágenes con transparencias (PNG, BMP o ICO con "alpha channel", etc.) te recomiendo continúes usando el Objecto ImageManager de los controles XtremeSuite, pues la alternativa seria usar el ucImage o el Módulo para ller PNG de la página Recursos VisualBasic, y para el caso sería lo mismo pero con archivos adicionales en tu proyecto.

Saludos Cordiales

http://leandroascierto.com/blog/ucimage-y-ucimagelist/ (http://leandroascierto.com/blog/ucimage-y-ucimagelist/)
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/102-modulo-para-leer-png.htm (http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/102-modulo-para-leer-png.htm)

Título: Re:cómo cargar una imagen de archivo (codejock pushbutton) ?
Publicado por: vbgedo en Julio 02, 2016, 12:18:03 am

Cita de: AxioUK en Julio 01, 2016, 08:14:43 pm

Hola:
          Para imágenes sin "alpha channel" (transparencias y demases) puedes usar lo siguiente:

Código: (VB) [Seleccionar]

PushButton01.Picture = LoadPicture(App.Path & "\imagen.ico")
Pero si lo que deseas es cargar imágenes con transparencias (PNG, BMP o ICO con "alpha channel", etc.) te recomiendo continúes usando el Objecto ImageManager de los controles XtremeSuite, pues la alternativa seria usar el ucImage o el Módulo para ller PNG de la página Recursos VisualBasic, y para el caso sería lo mismo pero con archivos adicionales en tu proyecto.

Saludos Cordiales

http://leandroascierto.com/blog/ucimage-y-ucimagelist/ (http://leandroascierto.com/blog/ucimage-y-ucimagelist/)
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/102-modulo-para-leer-png.htm (http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/102-modulo-para-leer-png.htm)

gracias , pero ¿cómo puedo cargar una imagen PNG de archivo de recursos de ImageManager ?

Tengo 400 imágenes PNG y tengo que cargarlo a ImageManager en runtime

Título: Re:cómo cargar una imagen de archivo (codejock pushbutton) ?
Publicado por: vbgedo en Julio 02, 2016, 08:23:56 pm

He encontrado este código, pero no trabajo por qué?

Código: [Seleccionar]


Option Explicit

Private Declare Function LoadLibraryEx _
                Lib "kernel32" _
                Alias "LoadLibraryExA" (ByVal lpLibFileName As String, _
                                        ByVal hFile As Long, _
                                        ByVal dwFlags As Long) As Long
                                       
Private Declare Function FreeLibrary _
                Lib "kernel32" (ByVal hLibModule As Long) As Long
                                       
Private m_hMod As Long

Const ID_TEST_NEW = 111
Const ID_TEST_ECLUB = 112
                                       
Private Sub LoadResources()
    Dim IDS() As Long
   
    ReDim IDS(1)
    IDS(0) = ID_TEST_NEW
    IDS(1) = ID_TEST_ECLUB
   
    If (m_hMod <> 0) Then
        FreeLibrary m_hMod
    End If

    m_hMod = 0
   
    m_hMod = LoadLibraryEx(App.Path + "\Project1.exe", 0, 0)
   
    ImageManager.Icons.LoadBitmapFromResource LoadLibraryEx(App.Path + "\Project1.exe", 0, 0), ID_TEST_NEW, IDS(0), xtpImageNormal
    ImageManager.Icons.LoadBitmapFromResource LoadLibraryEx(App.Path + "\Project1.exe", 0, 0), ID_TEST_ECLUB, IDS(1), xtpImageNormal
   
    If (m_hMod <> 0) Then
        FreeLibrary m_hMod
    End If
   
End Sub


Private Sub Form_Load()

    CommandBarsGlobalSettings.App = App
   
    CommandBars.DeleteAll
   
    Dim Toolbar As CommandBar
     
    Set Toolbar = CommandBars.Add("mainapp", xtpBarTop)
    With Toolbar.Controls
        .Add xtpControlButton, ID_TEST_NEW, "&Test"
    End With
       
    LoadResources
   
    Set CommandBars.Icons = ImageManager.Icons
   
    PushButton1.Icon = ImageManager.Icons.GetImage(0, 0)
End Sub




por favor ayuda