VB 我是菜鸟,求高手说下怎么弄··
发布网友
发布时间：2023-03-12 14:32
共3个回答
热心网友
时间：2023-10-18 08:10
你可以去下载一个简单的教程来看，当然可以看视频，然后我就教你写一个mp3播放器。
(1).点击菜单“工程”---“引用”，引用Windows Media Player。和CommonDialog。
(2).在窗体中添加控件CommonDialog、Windows Media Player。添加代码，按钮按提示添加：
Public volum As Integer '声音全局变量定义，用于记录播放过程中的声音值
Public bool As Boolean '全局变量定义
Sub openn() '过程
On Error Resume Next '出错处理
CommonDialog1.ShowOpen '显示打开通用对话框
If CommonDialog1.FileName <> "" Then
bool = False
WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = CommonDialog1.FileName '播放路径
End If
volum = WindowsMediaPlayer1.settings.volume '声音值
End Sub
Private Sub Form_DblClick() '窗体双击事件
Call openn '调用自定义过程
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '接收拖曳信息
On Error Resume Next
bool = False
WindowsMediaPlayer1.URL = Data.Files.Item(1)
End Sub
Private Sub Command1_Click() '打开按钮Command1
Call openn '调用open
End Sub
Private Sub Command2_Click() '暂停按钮Command2
bool = True
WindowsMediaPlayer1.Controls.Pause
End Sub
Private Sub Command3_Click() '停止播放按钮Command3
bool = True
WindowsMediaPlayer1.Controls.Stop
End Sub
Private Sub Command4_Click() '增大音量按钮Command4
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command5_Click() '减小音量按钮Command5
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command6_Click() '静音按钮Command6
If WindowsMediaPlayer1.settings.mute Then
WindowsMediaPlayer1.settings.mute = False
Else
WindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Command7_Click() '全屏按钮Command7
On Error Resume Next
WindowsMediaPlayer1.FullScreen = True
End Sub
Private Sub Command8_Click() '退出程序按钮Command8
Unload Me
End Sub
Private Sub WindowsMediaPlayer1_StatusChange() '循环播放实现
On Error Resume Next
If bool = False Then
WindowsMediaPlayer1.Controls.Play
End If
End Sub
具体的属性方法：
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.ration Double 总长度
currentMedia.rationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
=================
版本2：
属性/方法名： 说明：
[基本属性]
url：string指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.ration:double; 媒体总长度
currentMedia.rationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia
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
热心网友
时间：2023-10-18 08:10
热心网友
时间：2023-10-18 08:11
请问那个滚动条是哪个控件的？
