** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Cuadro de Windows "Acerca de..."
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCuadro de Windows "Acerca de..."

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: Cuadro de Windows "Acerca de..."
    Enviado: 10/Agosto/2013 a las 08:29

' Código que visualiza un cuadro de diálogo "Acerca de"
' y que permite visualizar en él el icono que tenga la
' base de datos. Si no hubiera icono asociado, se
' visualizaría el logo de Windows.
'
' Juan M. Afán de Ribera
' Mayo/2003
'
'
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 Declare Function ShellAbout _
                Lib "shell32.dll" _
                Alias "ShellAboutA" _
                (ByVal hwnd As Long, _
                ByVal szApp As String, _
                ByVal szOtherStuff As String, _
                ByVal hIcon As Long) As Long
     
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10

Sub Acercade()
Dim titulo As String
Dim texto As String
Dim iconoBD As String
Dim hIcono As Long

   titulo = " -> Cuadro Acerca de..."
   texto = "Autor: Juan M. Afán de Ribera"
  
   On Error Resume Next
   'iconoBD = CurrentDb.Properties("AppIcon")
   iconoBD = CurrentProject.Path & "\icono.ico"
  
   hIcono = LoadImage(0&, iconoBD, IMAGE_ICON, _
                      32, 32, LR_LOADFROMFILE)

   ShellAbout hWndAccessApp, titulo, texto, hIcono

End Sub
'*********************************************************

Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable