请高手指点!

hwmhwmhwm 2004-02-25 10:01:19
请高手指点!

我在学该网站上自制媒体播放器http://www.pconline.com.cn/pcedu/empolder/gj/vb/10209/90345.html时按它的方法输入代码后总提示:“变量未定义” ,应该怎样定义啊,先谢您了,代码如下:
Option Explicit
Dim playfilename As String '定义播放文件的名称
Dim playposition As Double '定义当前播放的位置


Private Sub Command1_Click()

Command1.Enabled = False ' 暂停按键失效
MediaPlayer1.pause '暂停播放
playposition = MediaPlayer1.currentPosition ' 当前的播放位置

End Sub

Private Sub Command2_Click()
Command1.Enabled = True ' 暂停按键有效
Command3.Enabled = True ' 停止按键有效
MediaPlayer1.FileName = playfilename ' 播放媒体文件名称
MediaPlayer1.SelectionStart = playposition ' 当前播放的位置
MediaPlayer1.play '播放媒体文件

End Sub

Private Sub Command3_Click()
playposition = 0 ' 停止播放
Command3.Enabled = False ' 停止按键无效
Command1.Enabled = False ' 暂停按键无效
Command2.Enabled = True ' 播放按键有效
MediaPlayer1.Stop '停止播放

End Sub

Private Sub Command4_Click()
CommonDialog1.ShowOpen '打开文件对话框
playfilename = CommonDialog1.FileName ' 记录播放文件名
playposition = 0 '第一次打开文件时候,播放位置为0

End Sub

Private Sub Command5_Click()
Unload Me ' 卸载窗口
End '结束程序

End Sub





...全文
69 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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