当前位置:Gxlcms > mysql > 如何使用Access2003或Access2007年中数据库中命令对话框API

如何使用Access2003或Access2007年中数据库中命令对话框API

时间:2021-07-01 10:21:17 帮助过:40人阅读

INTRODUCTION 本指南介绍 如何 用以替换是包含在 Microsoft Office XP Developer Edition 仅在 Microsoft Office 2000 Developer Edition 或通用 对话框 功能在 Microsoft Office Access 2003 或 Microsoft Office Access 2007年中通用 对话框 API。 更多信

INTRODUCTION

本指南介绍如何用以替换是包含在 Microsoft Office XP Developer Edition 仅在 Microsoft Office 2000 Developer Edition 或通用对话框功能在 Microsoft Office Access 2003 或 Microsoft Office Access 2007年中通用对话框 API。

更多信息

Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。 这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。 本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。 步骤来替换通用对话框功能Microsoft Office Access 2003

1. 在 Access, 打开名为 Northwind.mdb 示例数据库。注意 Access 2003 The Northwind.mdb 数据库通常位于 C:ProgramFilesCommon Files OfficeOFFICE11Samples 文件夹中。
2. 在 Northwind 数据库窗口, 中 对象 单击 窗体
3. 数据库窗口 工具栏, 单击 新建 。
4. 对话框 新表单 中, 单击, 设计视图 , 然后单击 确定 。
5. 向 Form 1 添加文本框, 右键单击文本框, 依次 属性 。
6. 单击 全部 选项卡, 单击 名称 , 键入 Text 1 , 并关闭 属性 对话框
7. 右击标签控件与文本框 Text 1 相关联, 属性 , 依次 所有 选项卡。
8. 单击 标题 , 键入 Text 1 , 然后关闭 属性 对话框
9. 向 Form 1 添加一个命令按钮, 用鼠标右键单击命令按钮、 单击 属性 、 单击 名称 、 键入 Command 、 单击 Caption , 然后键入 Command 。
10. 单击 事件 选项卡, 单击 On Click 列表, 中 [ 事件过程 ] , 然后单击省略号按钮以启动 Microsoft Visual Basic 编辑器。
11. 修改代码与以下 Command 1 _ Click 过程中:Private Sub Command1_Click()   Me!Text1 = LaunchCD(Me) End Sub
12. 在 插入 菜单上, 单击 模块 , 然后插入到 Module 1 以下代码:
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. 在 调试 菜单上, 单击 编译 Northwind , 然后关闭 VisualBasic 编辑器。
14. 在 视图 菜单上, 单击 窗体视图 。
15. Command , 依次打开窗口中的一个文件。Text 1 文本框中显示的文件路径。
MicrosoftOfficeAccess 2007
1. Access 2007年, 中打开示例数据库名 Northwind.accdb。
2. 在 创建 选项卡, 表单 单击 表单 组中。
3. 在 格式 选项卡, 下面 视图 , 下箭头依次 设计视图 。
4. 向 Form 1 添加文本框, 右键单击文本框, 依次 属性 。
5. 单击 全部 选项卡, 单击 名称 , 然后键入 Text 1 。
6. 右击标签控件与文本框 Text 1 相关联, 属性 , 依次 所有 选项卡。
7. 单击 标题 , 然后键入 Text 1 。
8. 向 Form 1 添加一个命令按钮, 用鼠标右键单击命令按钮、 单击 属性 、 单击 名称 、 键入 Command 、 单击 Caption , 然后键入 Command 。
9. 单击 事件 选项卡, 单击 On Click 列表, 中 [ 事件过程 ] , 然后单击省略号按钮 ( number ) 要启动 Microsoft VisualBasic 编辑器。
10. 修改代码以类似以下代码示例 Command 1 _ Click 过程中。Private Sub Command1_Click()   Me!Text1 = LaunchCD(Me) End Sub
11. 在 插入 菜单上, 单击 模块 , 然后插入到 Module 1 类似以下代码示例代码。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. 在 调试 菜单上, 单击 编译 Northwind , 然后关闭 VisualBasic 编辑器。
13. 在 格式 选项卡, 下面 视图 , 下箭头依次 窗体视图 。
14. Command , 依次打开窗口中的一个文件。Text 1 框中显示的文件路径。

人气教程排行