UC知道高手进！VB编成！ 求代码！若成果必重谢！
来源：百度知道 编辑：UC知道 时间：2024/06/10 04:21:10
[2] 设计一个“音乐播放器”，该播放器应具有如下功能：（1）通过对话框选取音乐文件；（2）播放、暂停、停止、重复播放音乐文件；（3）显示音乐文件的名称、总的播放时间和当前已经播放的时间；（4）通过进度条动态显示播放进程；（5）鼠标点击进度条可控制播放进度。
[3] 在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。
运行时“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示
“欢迎使用Visual Basic！”同时标题改为“清除”，再单击“清除”按钮，界面恢复窗体装入时的初态。
匿名者： 第一题不对啊！
不过第三题完全正确，
第一题 单击窗体1 则其隐藏 显示出窗体2 单击窗体2则亦然
Private Sub Form_click()
Form1.Hide
form2.Show
End Sub
Private Sub Form2_click()
Form1.show
form2.hide
End Sub
第二题
1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。
2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。
3、将Form1的Caption属性更改为“小叮当的媒体播放器”。
4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。
5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。
小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。
小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了：
1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码：
Option Explicit
Dim playfilename As String /定义播放文件的名称
Dim playposition As Double /定义当前播放的位置
<