用API播放CD代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】用API播放CD

作者:昕楠 / 发布于2014/11/18/ 560


	Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$,ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)

	'Add the code below to appropriate routines

	Sub cmdPlay_Click ()
	 Dim lRet As Long
	 Dim nCurrentTrack As Integer

	 'Open the device
	 lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)

	 'Set the time format to Tracks (default is milliseconds)
	 lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)

	 'Then to play from the beginning
	 lRet = mciSendString("play cd", 0&, 0, 0)

	 'Or to play from a specific track, say track 4
	 nCurrentTrack = 4
	 lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)

	End Sub

	' Remember to Close the device when ending playback

	Sub cmdStop_Click ()
	 Dim lRet As Long

	 'Stop the playback
	 lRet = mciSendString("stop cd wait", 0&, 0, 0)

	 DoEvents 'Let Windows process the event

	 'Close the device
	 lRet = mciSendString("close cd", 0&, 0, 0)

	End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　播放CD　

同语言下

可能有用的

昕楠贡献的其它代码(33)