VB 我是菜鸟，求高手说下怎么弄··

Posted 2023-03-14

``````

先下一个VB6.0下来安装在自己电脑上。然后打开它，新建一个标准exe程序。
你可以去下载一个简单的教程来看，当然可以看视频，然后我就教你写一个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.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "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.duration:double; 媒体总长度
currentMedia.durationString: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 参考技术A 你们想的太复杂了吧，调整窗体ScaleWidth就行了 参考技术B 就是去掉那个滚动条是吧
请问那个滚动条是哪个控件的？