当前位置：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 框中显示的文件路径。

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

人气教程排行