ACC2000: Como associar um ícone personalizado um formulário

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 304264
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Este artigo se aplica a um banco de dados do Microsoft Access (.mdb) e para um projeto Microsoft Access (.adp).

Sumário
No Microsoft Access, não existe nenhuma maneira interna para associar um ícone personalizado para um formulário; no entanto, este artigo demonstra como alterar o ícone do formulário usando chamadas de interface (API) de programação de aplicativo.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Código de exemplo

Para usar chamadas de API para definir um ícone personalizado para um formulário, execute essas etapas.

Observação : talvez você tenha algumas funções de API do Microsoft Windows definidas em uma biblioteca existente do Microsoft Access; portanto, suas declarações podem ser duplicatas. Se você receber uma mensagem de erro que há um nome de procedimento duplicados, remova ou comentar as instruções de declaração em seu código.
  1. Criar um módulo e em seguida, digite ou cole o seguinte código na seção de declarações:
    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 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 GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongPrivate Const WM_SETICON = &H80Private Const IMAGE_ICON = 1Private Const LR_LOADFROMFILE = &H10Private Const SM_CXSMICON    As Long = 49Private Const SM_CYSMICON    As Long = 50Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean    Dim lIcon As Long    Dim lResult As Long    Dim X As Long, Y As Long        X = GetSystemMetrics(SM_CXSMICON)    Y = GetSystemMetrics(SM_CYSMICON)    lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)    lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)End Function					
  2. Para definir o ícone, digite o código a seguir em um módulo de formulário (substitua a unidade correta e o caminho para o ícone personalizado):
    Private Sub Form_Open(Cancel As Integer)   SetFormIcon Me.hWnd, "C:\MyIcon.ico"End Sub					
Referências
Para obter mais informações sobre declaração APIs, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite a instrução declare no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.
ícone personalizado formulário api

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 304264 - Última Revisão: 12/06/2015 04:14:35 - Revisão: 3.2

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB304264 KbMtpt
Comentários