Compartir a través de

Propiedad Application.AppIcon (Access)

  • Artículo

Use la propiedad AppIcon para especificar el nombre del archivo de mapa de bits (.bmp) o icono (.ico) que contiene el icono de la aplicación. Por ejemplo, puede usar la propiedad AppIcon para especificar un archivo .bmp que contenga una imagen de un automóvil para representar una aplicación de componentes para vehículos.

Sintaxis

expresión. AppIcon

expresión Variable que representa un objeto Application.

Configuración

La propiedad AppIcon es una expresión de cadena que es un nombre de archivo de icono o mapa de bits válido (incluida la ruta de acceso).

La manera más fácil de establecer esta propiedad es mediante la opción Icono de aplicación en el cuadro de diálogo Opciones de acceso . También puede establecer esta propiedad mediante una macro o Visual Basic.

Para establecer la propiedad AppIcon mediante una macro o Visual Basic, primero debe configurar la propiedad en el cuadro de diálogo Opciones de Access o crear la propiedad siguiendo estos procedimientos:

  • En una base de datos de Microsoft Access, puede agregarla mediante el método CreateProperty y anexarla a la colección Properties del objeto Database.

  • En un proyecto de Microsoft Access (.adp), puede agregarlo a la colección AccessObjectProperties del objeto CurrentProject mediante el método Add .

También debe usar el método RefreshTitleBar para que los cambios sean visibles inmediatamente.

Comentarios

Si está distribuyendo la aplicación, se recomienda que el archivo .bmp o .ico que contenga el icono resida en el mismo directorio que la aplicación de Microsoft Access.

Si no se establece la propiedad AppIcon o no es válida, se muestra el icono de Microsoft Access.

Esta configuración de propiedad surte efecto inmediatamente después de que se establezca en el código (siempre que el código incluya el método RefreshTitleBar ) o se cierre el cuadro de diálogo Opciones de acceso .

Ejemplo:

En el ejemplo siguiente se muestra cómo cambiar las propiedades AppIcon y AppTitle en una base de datos de Microsoft Access. Si las propiedades aún no se han establecido o creado, debe crearlas y anexarlas a la colección Properties usando el método CreateProperty.

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.