如何在 Access 2003 或 Access 2007 中的数据库中使用通用对话框 API

文章翻译 文章翻译
文章编号: 888695 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

简介

本文介绍如何替换通用对话框功能仅在 Microsoft Office 2000 开发版中或在 Microsoft Office XP 开发人员版中包括在 Microsoft Office Access 2003 中或 Microsoft Office Access 2007 中使用通用对话框 API。

更多信息

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证。这包括,但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。

若要替换通用对话框功能的步骤

Microsoft Office 2003 Access

  1. 在 Access 中,打开示例数据库 Northwind.mdb 名为。

    注意有关 Access 2003 Northwind.mdb 数据库通常位于是 Files\Microsoft Office\OFFICE11\Samples 文件夹。
  2. 在罗斯文数据库窗口中的 对象,下单击 窗体
  3. 数据库窗口 工具栏中单击 新建
  4. 新建窗体 对话框中单击 设计视图,然后单击 确定
  5. 向 Form1 添加一个文本框中,用鼠标右键单击文本框,然后单击 属性
  6. 单击 全部 选项卡,单击 名称,键入 Text1,然后关闭 属性 对话框。
  7. 用鼠标右键单击与 文本 1 文本框关联的标签控件,单击 属性,然后单击 全部 选项卡。
  8. 单击 标题、 键入 文本 1,然后关闭 属性 对话框。
  9. Form1 中添加命令按钮、 用鼠标右键单击命令按钮、 单击 属性,单击 名称,键入 Command1、 单击 标题 框中,然后键入 Command1
  10. 单击 事件 选项卡,单击 单击 列表中的 [事件过程],然后单击省略号按钮以启动 Microsoft Visual Basic 编辑器。
  11. 修改以下 Command1_Click 过程中的代码:
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
  12. On the Insert menu, click Module, and then insert the following code into Module1:
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
    
    Private 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 String
    End Type
    
    Function 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 If
    End Function
    
  13. 调试 菜单上单击 编译罗斯文,然后关闭 Visual Basic 编辑器。
  14. 视图 菜单上单击 窗体视图
  15. 单击 Command1,然后单击打开窗口中的文件。

    文本 1 文本框中显示文件的路径。

Microsoft Office 2007 Access

  1. 在 Access 2007 中打开名为 Northwind.accdb 示例数据库。
  2. 创建 选项卡上单击 窗体 组中的 窗体
  3. 格式 选项卡上单击 视图,下的向下箭头,然后单击 设计视图
  4. 向 Form1 添加一个文本框中,用鼠标右键单击文本框,然后单击 属性
  5. 单击 全部 选项卡,单击 名称,然后键入 文本 1
  6. 用鼠标右键单击与 文本 1 文本框关联的标签控件,单击 属性,然后单击 全部 选项卡。
  7. 单击 标题,然后键入 文本 1
  8. Form1 中添加命令按钮、 用鼠标右键单击命令按钮、 单击 属性,单击 名称,键入 Command1、 单击 标题 框中,然后键入 Command1
  9. 单击 事件 选项卡,单击 单击 列表中的 [事件过程],然后单击省略号按钮 (...) 以启动 Microsoft Visual Basic 编辑器。
  10. 修改代码以类似于 Command1_Click 过程中的
    Private Sub Command1_Click()
        Me!Text1 = LaunchCD(Me)
    End Sub
    以下代码示例。
  11. On the Insert menu, click Module, and then insert code that resembles the following code example into Module1.
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
    
    Private 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 String
    End Type
    
    Function 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 If
    End Function
    
  12. 调试 菜单上单击 编译罗斯文,然后关闭 Visual Basic 编辑器。
  13. 格式 选项卡上单击 视图,下的向下箭头,然后单击 窗体视图
  14. 单击 Command1,然后单击打开窗口中的文件。

    文本 1 框中,将显示文件的路径。

属性

文章编号: 888695 - 最后修改: 2007年6月4日 - 修订: 4.3
这篇文章中的信息适用于:
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
关键字:?
kbmt kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto KB888695 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 888695
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com