Propriedade Application.AppIcon (Access)

Use a propriedade AppIcon para especificar o nome do arquivo bitmap (.bmp) ou ícone (.ico) que contém o ícone do aplicativo. Por exemplo, você pode utilizar a propriedade AppIcon para especificar um arquivo .bmp que contenha a figura de um automóvel para representar um aplicativo de peças automotivas.

Sintaxe

expressão. AppIcon

expressão Uma variável que representa um Aplicativo objeto.

Configuração

A propriedade AppIcon é uma expressão de cadeia de caracteres que é um nome de arquivo bitmap ou ícone válido (/incluindo o caminho).

A maneira mais fácil de definir essa propriedade é usando a opção Ícone de Aplicativo na caixa de diálogo Opções de Acesso . Você também pode definir essa propriedade usando uma macro ou Visual Basic.

Para definir a propriedade AppIcon utilizando uma macro ou o Visual Basic, você precisa antes definir uma vez a propriedade na caixa Opções do Access ou criá-la das seguintes formas:

• Em um banco de dados do Microsoft Access, você pode adicioná-la usando o método CreateProperty e acrescentá-la à coleção Properties do objeto Database.

• Em um projeto do Microsoft Access (.adp), você pode adicioná-lo à coleção AccessObjectProperties do objeto CurrentProject usando o método Add .

Você também deve usar o método RefreshTitleBar para tornar as alterações visíveis imediatamente.

Comentários

Se você estiver distribuindo o seu aplicativo do Microsoft Access, é recomendável que o arquivo .bmp ou .ico com o ícone resida no mesmo diretório que ele.

Se a propriedade AppIcon não estiver definida ou for inválida, o ícone do Microsoft Access será exibido.

Essa configuração de propriedade entra em vigor imediatamente após ser definida em código (desde que o código inclua o método RefreshTitleBar ) ou a caixa de diálogo Opções de Acesso seja fechada.

Exemplo

O exemplo a seguir mostra como alterar as propriedades AppIcon e AppTitle em um banco de dados do Microsoft Access. Se as propriedades ainda não foram definidas ou criadas, você terá que criá-las e acrescentá-las à coleção Properties utilizando o 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.