VB高手进来帮忙看看啊！

来源：百度知道 编辑：UC知道 时间：2024/06/01 08:19:02
我在自学VB，圣诞节快到了，我准备编写一个播放器送给我女朋友。
但是代码出了点错误，我调了半天了也调不好。它提示要求对象。
小弟先在这谢谢了！！！！下面是我地的代码
Option Explicit
Dim playfilename As String
Dim playposition As Double

Private Sub Command1_Click()

Command.Enabled = False
MediaPlayer1.pause
playpostion = mediaplayer.currentPosition
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.URL = playfilename
MediaPlayer1.Controls.currentPosition = 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
End Sub

Private Sub Command5_Click()
Unload Me
End
End Sub

在command2的过程中

Option Explicit
Dim playfilename As String
Dim playposition As Double

Private Sub Command1_Click()

Command1.Enabled = False
MediaPlayer1.pause
playpostion = mediaplayer.currentPosition
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.URL = playfilename
MediaPlayer1.Controls.currentPosition = 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
End Sub

Private Sub Command5_Click()
Unload Me
End
End Sub

多浪漫啊~~~~老大收我为小弟吧偶跟您学VB好吗？ QQ：441914320

缺少对象？
你播放的是什么文件？
前面加载组件了吧？<