求用VB6.0開發的播放器源碼!

ljyzc 2004-11-27 10:47:09
支持格式(mp3, wma, wmv)等,
小弟沒有搞過VB,但一心愛的MM要交作業,沒辦法,分不夠再加,我有5000分!
Email: ljyzc@163.com
...全文
86 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
haoztao 2004-11-30
  • 打赏
  • 举报
回复
帮顶一下把
jxzhang615 2004-11-30
  • 打赏
  • 举报
回复
UP!~
兔子-顾问 2004-11-30
  • 打赏
  • 举报
回复
添加mediaplayer控件,写不超过10句,open,play,pause,stop,close,还有openfile。然后就结束收工
jialiang 2004-11-30
  • 打赏
  • 举报
回复
up
allanli 2004-11-27
  • 打赏
  • 举报
回复
一个播放Wav的简单窗体,是否能播放MP3等,就要看你有没有装相应播放库了
稍为改一下交作业应该可以啦,呵呵

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 3750
ClientTop = 3645
ClientWidth = 4665
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4665
Begin MSComDlg.CommonDialog CommonDialog1
Left = 2040
Top = 2400
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command4
Caption = "ejectin"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 3
Top = 1440
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "ejectout"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 2
Top = 1440
Width = 1695
End
Begin VB.CommandButton Command2
Caption = "stop"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 1
Top = 360
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "play"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 0
Top = 360
Width = 1695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim returnstring As String
Dim returns, cdroomout
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
'Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Sub Command1_Click()
returns = mciSendString("play" & "D:\vb50\m001.wav", returnstring, 256, 0)
'returns = mciGetErrorString(returns, returnstring, 255)
Debug.Print returnstring
End Sub

Private Sub Command3_Click()
'If cdroomout = 0 Then
' returns = mciExecute("set cdaudio door open")
'mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0
mciSendString "set cd door open", 0, 0, hWnd

' cdroomout = 1
'Else
' returns = mciExecute("close cdaudio")
' cdroomout = 0
'End If
End Sub

Private Sub Command4_Click()
mciSendString "set cd door closed", 0, 0, hWnd
End Sub

Private Sub Form_Load()
'cdroomout = 0
'returns = mciExecute("open")
End Sub

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧