संदेश बॉक्स और ध्वनि एक साथ प्रदर्शित करें - VBA

Question

नीचे दिए गए कोड में, गाना पहले बजाया जाता है, जिसके बाद संदेश प्रदर्शित होता है। नीचे दिए गए कोड में मैसेज बॉक्स और साउंड प्ले को एक साथ कैसे प्रदर्शित करें?

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As LongPtr, ByVal 
dwFlags As Long) As Boolean

Private Sub CommandButton1_Click()
   Call PlaySound("c:\windows\media\tada.wav", 0, SND_ASYNC Or SND_FILENAME)
   Msgbox "Process completed successfully."
End Sub

Comments

मेसबॉक्स तुरंत प्रकट होता है और अगली पंक्ति को चलाने के लिए आप पर दबाव डालना ठीक नहीं होगा। क्यों न कॉल प्लेपाउंड और msgbox लाइनों को चारों ओर स्वैप करें?

— स्पाइकाइक्रिच

@spikey_richie सामान्य रूप MsgBoxसे प्रदर्शित होता है और निष्पादन को तब तक रोकता है जब तक कि वह वापस नहीं लौटता (= उपयोगकर्ता इसे खारिज कर देता है)। एक बार संवाद बंद होने के बाद ही ध्वनि बजाई जाएगी।

— inionion

आप के लिए SND_ASYNCऔर SND_FILENAMEसाथ ही असाइनमेंट दिखा सकते हैं ? (हालांकि मुझे लगता है कि उत्तरार्द्ध सही ढंग से सेट किया गया है, अन्यथा आपको गलत ध्वनि मिल जाएगी।)

— Inarion