Como usar a API de caixa de diálogo comuns em um banco de dados do Access

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: 303066
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.

INTRODUÇÃO
Este artigo descreve como usar a API de caixa de diálogo comuns para substituir a funcionalidade de caixa de diálogo comum que é fornecida apenas com o Microsoft Office 97 Developer Edition, Office 2000 Developer e Office XP Developer Edition.
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.
  1. Abra o banco de dados de exemplo Northwind.mdb.
  2. Crie um novo formulário. Nomeie o formulário Form1. Abra o novo formulário no modo de design.
  3. Adicione um botão de comando ao Form1. Defina tanto a propriedade de nome e a propriedade Caption para "Command1."
  4. Adicione uma caixa de texto ao Form1. Defina a propriedade Name para "Text1".
  5. Clique com o botão direito do mouse em Command1 , clique em Propriedades e, em seguida, clique na guia evento .
  6. No procedimento de evento Ao clicar , clique em [Procedimento de evento] na lista drop-down e, em seguida, clique nas reticências para iniciar o Editor do Visual Basic.
  7. Modifique o procedimento Command1_Click à seguinte:
    Private Sub Command1_Click()    Me!Text1 = LaunchCD(Me)End Sub					
  8. No menu Inserir , clique em módulo .
  9. Copie e cole o exemplo de código a seguir no novo módulo.
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate Type OPENFILENAME    lStructSize As Long    hwndOwner As Long    hInstance As Long    lpstrFilter As String    lpstrCustomFilter As String    nMaxCustFilter As Long    nFilterIndex As Long    lpstrFile As String    nMaxFile As Long    lpstrFileTitle As String    nMaxFileTitle As Long    lpstrInitialDir As String    lpstrTitle As String    flags As Long    nFileOffset As Integer    nFileExtension As Integer    lpstrDefExt As String    lCustData As Long    lpfnHook As Long    lpTemplateName As StringEnd TypeFunction LaunchCD(strform As Form) As String    Dim OpenFile As OPENFILENAME    Dim lReturn As Long    Dim sFilter As String    OpenFile.lStructSize = Len(OpenFile)    OpenFile.hwndOwner = strform.hwnd    sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _      "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)    OpenFile.lpstrFilter = sFilter    OpenFile.nFilterIndex = 1    OpenFile.lpstrFile = String(257, 0)    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1    OpenFile.lpstrFileTitle = OpenFile.lpstrFile    OpenFile.nMaxFileTitle = OpenFile.nMaxFile    OpenFile.lpstrInitialDir = "C:\"    OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"    OpenFile.flags = 0    lReturn = GetOpenFileName(OpenFile)        If lReturn = 0 Then            MsgBox "A file was not selected!", vbInformation, _               "Select a file using the Common Dialog DLL"         Else            LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))          End IfEnd Function					
  10. No menu Debug , clique em compilar e salvar todos os módulos se você estiver usando o Access 97. Se você estiver usando o Access 2000 ou Access 2002, clique em Compilar Northwind e feche a janela código.
  11. No menu Exibir , clique em Modo formulário .
  12. Clique em Command1 . Clique em um arquivo de janela de procura. Colocar o caminho desse arquivo na caixa Texto1 .
inf

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 303066 - Última Revisão: 12/06/2015 03:47:56 - Revisão: 6.0

Microsoft Access 97 Standard Edition, Microsoft Access 2000 Standard Edition, Microsoft Access 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming kbui KB303066 KbMtpt
Comentários