MS Access 2003 - مربع الرسالة: كيف يمكنني الإجابة "موافق" تلقائيًا من خلال الرمز

StackOverflow https://stackoverflow.com/questions/2479240

سؤال

لذلك زوجان سخيفان:

إذا قمت بتضمين هذا في بعض الأحداث:

MsgBox " ", vbOkOnly, "This little message box"

هل يمكنني بعد ذلك مع بعض التعليمات البرمجية حول الزر "موافق". بحيث تظهر رسالة Boox تلقائيًا ، ثم تختفي تلقائيًا؟

أعلم أنه سخيف لأنك تريد أن تعرف ، لماذا تريد مربع الرسائل بعد ذلك .....

حسنًا ، أريد فقط أن أعرف ما إذا كان يمكنك فعل ذلك ، وما هو الأمر

لذلك أنا حقًا لا أحتاج إلى مربع الرسائل ، فقط تعطيل درجة الحرارة الذي يوضح الكائنات.

شكرًا!

هل كانت مفيدة؟

المحلول

أ MsgBox هو وسيط. لا يوجد سوى اثنين من الإعدادات ذات الصلة بالطريقة

  • ApplicationModal
  • النظام

لذلك إذا تم عرض MSGBox بواسطة تطبيقك الحالي ، فلن يتم تشغيل أي رمز حتى تنقر على زر في مربع الرسالة.

طريقة الالتفاف حول هذا هو تصميم مربع الرسائل الخاص بك باستخدام نموذج. يمكنك تشغيل هذا الأمر والاحتفاظ به وبعد ذلك يمكنك "النقر" على أي زر تريده.

إذا كنت تريد تأخيرًا ، فيمكنك استخدام واجهة برمجة تطبيقات Win للنوم

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub ApiSleep(SleepMilliseconds as Long)
    Sleep SleepMilliseconds 
End Sub

نصائح أخرى

أعلم أن هذا سُئل منذ فترة ولكن الحل الذي أستخدمه هو:

CreateObject("WScript.Shell").PopUp "Save Successful!", 1, "Save"

كيف يعمل هذا هو مربع الرسائل يتم عرضه تمامًا كما يمكن أن يكون هناك أحد عاشقه ، إلا أنه يحتوي على مؤقت النظام الخاص به مما يعني أنه يمكنك إغلاق مربع الرسائل تلقائيًا دون القيام بأي شيء.

يشير الرقم 1 إلى عدد الثواني التي تريد عرضها قبل الإغلاق تلقائيًا.

على أي حال ، هذا هو بنستي قيمتها إجابة. أتمنى أن يساعد هذا شخصًا آخر أيضًا!

Sendkeys "~",false

يجب رفض MSGBox (على افتراض أن لها تركيز)

أعتقد أنك تبحث عن أحداث الطلاء ، أو إجبار تحديث النموذج على الرغم من تحقيق ما تريد فعله بالفعل!

تحرير: آه لعنة ، نعم ، لأنه وسيط تم تعليق الكود ... d'oh! كما هو مقترح ، إما أن تكتب بنفسك ، أو يجب عليك رمي شيء ما في موضوع آخر للقيام بذلك ، وليس لدي أي فكرة عن كيفية القيام بخيوط متعددة في MS Access!

التحرير الثاني: هل نظرت إلى Application.Echo False لتعليق و Application.Echo True لاستئناف تصميم الطلاء؟

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top