如何給手機編程添加音樂背景

私有聲明函數mciSendString Lib“winmm . dll”別名“mciSendStringA”(ByVal lpstrCommand為String，ByVal lpstrReturnString為String，ByVal uReturnLength為Long，ByVal hwndCallback為Long)為Long

私有子窗體_Load()

Dim mName作為字符串

mName = App。路徑與路徑。" \test.mid "

return val = mciSendString(" PLAY " & amp；App。路徑與路徑。“\test.mid”，0 & amp，0，0 & amp)'背景音樂

貝殼App。路徑與路徑。" \test.exe "，vbNormalFocus '調用程序。

末端接頭

上一篇:Shell編程的編程步驟

下一篇:UG中如何新建壹個公制部件？公制部件如何保存？