自己编写的flv文件播放控件，与大家分享一下！
现在从网上下载的视频多是flv格式的文件，支持flv文件的播放器也不少，就是太占资源，自己尝试做了个 flv格式文件的播放控件，目前我测试的格式支持播放flv、f4v、mp4三种格式的视频文件（别的格式视频文
件我也没有试过）。
我上传的附件包里，包含了flv播放控件，还有一个简单的播放器源代码。
下面是控件独有的属性、方法、事件：
flv控件独有的属性
-----------------
BufferTime： 单精度。缓冲时间。
FullScreen： 布尔型。是否全屏。
LoadedBytes： 长整形。已装载字节
TotalBytes： 长整形，只读。文件总字节。
Movie： 字符型，只读。影片
Mute： 布尔型。是否静音。
State： 字符型，只读。状态。
TotalTime： 长整形，只读。文件总时间。
Volume： 长整形。音量大小（0-100）
AutoHideControl：布尔值，全屏时自动隐藏播放控制控件
AutoRewind： 布尔值，播放结束自动回到开始画面
Brightness： 长整形，视频亮度
Contrast： 长整形，视频对比度
Saturation： 长整形，视频饱和度
ShowMenu： 布尔值，显示右键默认菜单
VideoCurrentHeight：视频当前高度
VideoCurrentWidth： 视频当前宽度
VideoMode： 视频尺寸显示模式
VideoHeight： 长整型，视频原始高度
VideoWidth： 长整型，视频原始宽度
flv控件独有的方法
-----------------
GotoTime(Value As Long)： 跳转到时间。输入参数单位为秒
PauseMovie()： 暂停。
PlayMovie(FilePath As String)：播放。输入参数为全路径文件名，如果无参数就播放上次播放的文件
StopMovie()： 停止。
flv控件独有的事件
-----------------
ButterProgress(TotalBytes As Long, LoadedBytes As Long)：网络文件缓冲进展
参数1：总字节
参数2：已装载字节
ButterComplete(ByVal TotalBytes As Single, ByVal AvgSpeed As Single, ByVal ButterTime As
Single)：网络文件缓冲完成
参数1：总字节
参数2：缓冲平均速度（字节/秒）
参数3：缓冲所使用的时间（秒）
ButterProgress2(ByVal CurrentSpeed As Single, ByVal ExpectButterTime As Single))：网络文件缓冲
中
参数1：当前缓冲速度（字节/秒）
参数2：预计缓冲时间（秒）
OnOnReadyStateChange(ByVal newState As Long, ByVal Description As String)：当前状态
参数1：数字标示参数2
参数2：当前状态字符串：
"Empty"： 正在缓冲
"Play"： 正在播放
"Pause"： 暂停
"Stop"： 停止播放
"FlvNotFound"：非flv类型文件
PlayProgress(TotalTime As Single, CurrentTime As Single)：播放进展
参数1：总时间
参数2：当前时间
参数3：缓冲时间
PlayComplete(ByVal TotalTime As Single)：播放完成
参数：播放总时间
Error(ByVal Err As Long, ByVal Description As String)：错误提示
ReSize()：大小变化
控件（648k）和测试源代码不大，附件添加了flv文件，方便大家测试，略显有点大
UUFlv控件.rar
(1.78 MB)
