كيفية استخدام API الحوار العامة في قاعدة بيانات Access

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية303066
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
متوسطة: يتطلب ماكرو الأساسية ترميز و المهارات إمكانية التشغيل المتداخل.

مقدمة حول
توضح هذه المقالة كيفية استخدام API الحوار العامة لاستبدال وظائف "مربع الحوار العامة" المضمنة مع Office XP المطور Edition و الإصدار المطور Office 2000 أو الإصدار Microsoft Office 97 المطور.
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية. هذا يتضمن ولكن لم يقتصر على الضمانات الضمنية الخاصة بالتجارة أو الملاءمة لغرض معين. تفترض هذه المقالة تكون مألوفة مع لغة البرمجة التي يتم شرحها مع الأدوات التي يتم استخدامها لإنشاء لتصحيح الإجراءات. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.
  1. افتح نموذج قاعدة البيانات Northwind.mdb.
  2. إنشاء نموذج جديد. اسم النموذج Form1. فتح نموذج جديد في طريقة العرض "تصميم".
  3. إضافة زر أمر إلى Form1. عيّن كلاً من الخاصية اسم الخاصية تسمية توضيحية إلى "Command1."
  4. إضافة مربع نص إلى Form1. تعيين الخاصية ' Name ' إلى "النص1."
  5. انقر بزر الماوس الأيمن فوق Command1 ، انقر فوق خصائص ثم انقر فوق علامة التبويب حدث.
  6. في إجراء الحدث عند النقر فوق [إجراء حدث] من القائمة المنسدلة ثم انقر فوق علامة القطع لبدء تشغيل محرر Visual Basic.
  7. تعديل الإجراء Command1_Click التالي:
    Private Sub Command1_Click()    Me!Text1 = LaunchCD(Me)End Sub					
  8. من القائمة إدراج ، انقر فوق وحدة نمطية.
  9. نسخ ولصق نموذج التعليمات البرمجية التالية في الوحدة النمطية جديدة.
    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. من القائمة تصحيح ، انقر فوق ترجمة "و" حفظ كافة الوحدات النمطية إذا كنت تستخدم Access 97. إذا كنت تستخدم Access 2000 أو Access 2002 ، انقر فوق ترجمة Northwind ثم قم بإغلاق إطار "التعليمات البرمجية".
  11. من القائمة عرض، انقر فوق عرض النموذج.
  12. انقر فوق Command1. انقر فوق ملف من إطار الاستعراض. وضع مسار هذا الملف في مربع نص 1.
inf

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 303066 - آخر مراجعة: 12/06/2015 03:47:46 - المراجعة: 6.0

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

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming kbui KB303066 KbMtar
تعليقات