为什么 这两个控件的前进后退按纽都是灰的??  我要怎么样才能实现对影片的 前进和 后退控制.不要贴这些东西: 试了 没用 希望高手指点 怎么控制 谢谢!MediaPlayer1.Play          播放
MediaPlayer1.Stop          停止
MediaPlayer1.Pause          暂停
MediaPlayer1.PlayCount        文件播放次数
MediaPlayer1.AutoRewind       是否循环播放
MediaPlayer1.Balance         声道
MediaPlayer1.Volume         音量
MediaPlayer1.Mute          静音
MediaPlayer1.EnableContextMenu    是否允许在控件上点击鼠标右键时弹出快捷菜单
MediaPlayer1.AnimationAtStart     是否在播放前先播放动画
MediaPlayer1.ShowControls      是否显示控件工具栏
MediaPlayer1.ShowAudioControls    是否显示声音控制按钮
MediaPlayer1.ShowDisplay      是否显示数据文件的相关信息
MediaPlayer1.ShowGotoBar      是否显示Goto栏
MediaPlayer1.ShowPositionControls   是否显示位置调节按钮
MediaPlayer1.ShowStatusBar      是否显示状态栏
MediaPlayer1.ShowTracker      是否显示进度条
MediaPlayer1.FastForward       快进
MediaPlayer1.FastReverse       快退
MediaPlayer1.Rate          快进/快退速率
MediaPlayer1.AllowChangeDisplaySize  是否允许自由设置播放图象大小
MediaPlayer1.DisplaySize        设置播放图象大小
    1-MpDefaultSize         原始大小
    2-MpHalfSize           原始大小的一半
    3-MpDoubleSize         原始大小的两倍
    4-MpFullScreen          全屏
    5-MpOneSixteenthScreen      屏幕大小的1/16
    6-MpOneFourthScreen       屏幕大小的1/4
    7-MpOneHalfScreen        屏幕大小的1/2
MediaPlayer1.ClickToPlay       是否允许单击播放窗口启动Media Player

解决方案 »

  1.   

    Option ExplicitPrivate Sub Command1_Click()
            WindowsMediaPlayer1.Controls.play
    End SubPrivate Sub Command2_Click()
            WindowsMediaPlayer1.Controls.pause
    End SubPrivate Sub Command3_Click()
            WindowsMediaPlayer1.Controls.pause
            WindowsMediaPlayer1.Controls.fastForward
    End SubPrivate Sub Command4_Click()
            WindowsMediaPlayer1.Controls.pause
            WindowsMediaPlayer1.Controls.fastReverse
    End SubPrivate Sub Command5_Click()
            WindowsMediaPlayer1.Controls.stop
    End SubPrivate Sub Form_Load()
            Command1.Caption = "播放"
            Command2.Caption = "暂停"
            Command3.Caption = "快进"
            Command4.Caption = "快退"
            Command5.Caption = "停止播放"
            WindowsMediaPlayer1.URL = "E:\下载歌曲\北京欢迎你_群星.wma"
            WindowsMediaPlayer1.settings.autoStart = True
    End Sub