UC知道VB WindowsMediaPlayer菜单中“保存”和“另存为”代码怎么写？请高手帮下忙~
来源：百度知道 编辑：UC知道 时间：2024/06/07 08:03:06
用VB做了个播放器，其实就是把WindowsMediaPlayer弄进去了，现在编写菜单栏里的代码，“打开”已经写好了，但“保存”和“另存为”怎么写都不行。
下面是“打开”的代码
Private Sub dk_Click()
CommonDialog1.Filter = "支持的视频格式|*.avi;*.mpg;*.wmv;*.rm;*.rmvb|支持的音频格式|*.wav;*.mp3;*.wma"
CommonDialog1.ShowOpen
Dim ss As String
If CommonDialog1.FileName <> "" Then
ss = CommonDialog1.FileName
WindowsMediaPlayer1.URL = ss
End If
End Sub
我的保存的名称就是bc，另存为是lcw，我初学。请高手帮下忙~
我说也说不清楚，但不要想那么复杂了。我初学的。就是想在菜单里弄几个子项，已经弄进去了，但不知道代码怎么编。就是普通播放器菜单里的那样的子项，我只要个最简单的，比如说 最近播放 或者 全屏 也可以。其实只是要证明会添加菜单，并不是真要做个完美的播放器。
最好是装有VB6.0的，那个vbp文件只有900多字节，我初学的，别想那么复杂。相信我的话我发过去，代码一般只有5，6行。
下面是“打开”的代码
Private Sub dk_Click()
CommonDialog1.Filter = "支持的视频格式|*.avi;*.mpg;*.wmv;*.rm;*.rmvb|支持的音频格式|*.wav;*.mp3;*.wma"
CommonDialog1.ShowOpen
Dim ss As String
If CommonDialog1.FileName <> "" Then
ss = CommonDialog1.FileName
WindowsMediaPlayer1.URL = ss
End If
End Sub
我的保存的名称就是bc，另存为是lcw，我初学。请高手帮下忙~
我说也说不清楚，但不要想那么复杂了。我初学的。就是想在菜单里弄几个子项，已经弄进去了，但不知道代码怎么编。就是普通播放器菜单里的那样的子项，我只要个最简单的，比如说 最近播放 或者 全屏 也可以。其实只是要证明会添加菜单，并不是真要做个完美的播放器。
最好是装有VB6.0的，那个vbp文件只有900多字节，我初学的，别想那么复杂。相信我的话我发过去，代码一般只有5，6行。
showopen是打开，另存为就是showsave了，你指的是这个么？
CommonDialog1.Filter = "支持的视频格式|*.avi;*.mpg;*.wmv;*.rm;*.rmvb|支持的音频格式|*.wav;*.mp3;*.wma"
CommonDialog1.ShowSave
难道你的WindowsMediaPlayer还能修改音频或视频文件 如果不能需要保存吗？
另存为的话 就是文件复制而已用FileCopy函数
FileCopy 源地址，目标地址