בעיה עם mciSendString

[M n e m o s y n e]

בעיה עם mciSendString

משום מה הפוקנציה mciSendString לא עובדת, זה לא מנגן את הקובץ שנתתי לו וזה משגע אותי כבר הרבה זמן, אודה למי שיוכל לפתור. (הגדרת הפונקציה נמצאת במודול אחר ואין איתה בעיות למי שחושב שזו הבעיה.)

Dim Re As Long Private Sub Command1_Click() Dim strFileToPlay As String strFileToPlay = "G:My Chemical Romance--Famous Last Words.mp3" mciSendString "open " & strFileToPlay & " type MPEGVideo", 0, 0, 0 mciSendString "play " & strFileToPlay, 0, 0, 0 End Sub Private Sub Form_Unload(Cancel As Integer) Re = mciSendString("Close " & strFileToPlay, 0, 0, 0) End Sub​

תודה

 

[טרמפיסט]

איך הפונקציה מוגדרת אצלך במודול?

* לפעמים ניתן להגדיר מעבר פרמטרים As Any במקום As String במידה ורוצים להעביר את אותם הנתונים בשיטה שונה. יכול להיות שהגדרת הפונקציה במודול לא תואמת את השיטה בה אתה משתמש. * מלבד זאת, עושה רושם שחסר לך לוכסן "\" אחרי ה-":G". סביר להניח שזה מקור הבעיה.

 

[M n e m o s y n e]

יש לוכסן במקום המתאים בתוכנה

המוזילה בחר לא להעביר את הלוכסן הזה להודעה מסיבה כלשהי. הוא קיים בקוד.

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long​

ככה הגדרתי את הפונקציה.

 

[M n e m o s y n e]

הבעיה נפתרה

במקום השמת הערך למשתנה הייתי צריך לקרוא לפונקציה בעזרת CALL