关于vb.netmp3属性的信息

vb.net中如何控制MP3播放

先定义api函数

站在用户的角度思考问题,与客户深入沟通,找到澜沧网站设计与澜沧网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、成都网站设计、企业官网、英文网站、手机端网站、网站推广、国际域名空间、虚拟空间、企业邮箱。业务覆盖澜沧地区。

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub mnu_Music_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_Music.Click

mciSendString("open c:\1.mp3 alias mp3", Nothing, 0, IntPtr.Zero)

mciSendString("Play mp3", Nothing, 0, IntPtr.Zero)

End Sub

上面2行代码就可以播放了,测试通过。

就是没有其它功能,自己加上吧,

如:关闭 mciSendString("close mp3",Nothing,0,intPtr.Zero)

等等

设置和重设vb.net的属性

当用户可以设置或者得到属性的值的时候,这些属性就在改变。有此属性可以在设计的时候改变。用户可以在属性窗口设置这些属性的值,而不需要写任何代码,而有些代码在设计的时候是不能改变的,所以必须在运行的程序中写入一些设置属性的值的代码。

那些可以在运行的时候设置和读取的属性被称作"read-write"属性。而那些只能在运行的时候读取的代码称为"read-only"属性。

1.设置属性值

当需要改变一个对象的外观或者行为时,就可以改变对象的属性值。例如可以通过改变一个textbox控件的Text属性值,来改变Textbox里面的内容。

设置一个属性的值,可以用以下的语法:

object.property=expression

如下一些实例:

TextBox1.Top=200 '让Top属性值为200

TextBox1.Visible=True '显示TextBox

TextBox1.Text="hello" '在TextBox中显示"hello"

2.得到属性的值

当代码要对一个对象进行一些操作时,用户可能需要得到一个对象的状态,例如,在对一个TextBox控件进行下一步操作时,可能需要得知TextBox的text属性的值,等等。

通常情况下,用户可以通过下面这样的语法得到一个对象的属性值:

variable=object.property

用户可以把一个对象的属性值作为一个复杂表达式的一部分,而不需要先把属性值赋给一个变量再进行计算,下面这个例子就是改变一个radio按钮的属性的代码:

Private Sub cmdAdd_Click()

'[statements]

RadioButton1.Top=RadioButton1.top+20

'[statements]

End Sub

注意:如果用户需要多次使用一个属性值的话,那么先把属性值赋给一个变量,将会使效率更快一点。

vb.net制作 mp3播放器

用VB制作一个简单的MP3播放器

用VB制作一个简单的MP3播放器 利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作,对其稍加修改,做一个100KB大小的MP3播放器轻而易举

启动VB程序,在窗体上放置6个命令按钮,三个标签,一个公用对话框、一个进度条、一个状态栏和一个计时器,窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件,其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间;label2放在时度条的最左边,Caption属性为"00:00";lable3放在时度条的右边,用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As longDim mfn As String

下面就是各个对象的代码了:

Private Sub Form_load()

mfn=""

play.Enabled=False

pause.Enabled=False

Stopplay.Enabled=False

back.Enabled=False

prew.Enabled=False

Timer1.Enabled=False

Timer1.Interval=500

End SubPrivate Sub open_Click()

On Error Goto err

With CommonDialog1

.CancelError=True

.Filter="音乐文件|*.mp3;*.wav;*.mid"

.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist

.Action=1

stopplay_Click '停止按钮同时可以设备初始化

mfn=.FileName '这个程序中文件名一定不能带空格

Form1.Caption=.FileName

play.Enabled=True

End With

play_Click

Exit Sub

err:

End SubPrivate Sub play_Click()

On Error Resume Next

Dim t As Long

t=mciSendString("open " + mfn,0,0,0) 'Open后边的空格一定不能丢

Dim ret As String * 128

t=mciSendString("status " + mfn + " length",ret,128,0)

'显示歌曲总长

ret=Left(ret,8)

If ret"" Then

ProgressBar1.Min=0

ProgressBar1.Max=Val(ret)

Label3.Caption=gettime(Val(ret))

End If

play.Enabled=False

pause.Enabled=True

stopplay.Enabled=True

back.Enabled=True

prew.Enabled=True

t=mciSendString("status " + mfn +" mode",ret,128,0)

'得到设备的当前状态,是播放还是暂停等等

ret=Left(ret,8)

StatusBar1.Panels(1).text=ret

'在状态栏显示播放状态

t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value),0,0,0)

'开始播放

Timer1.Enabled=True

End Sub

Private Sub pause_Click()

t%=mciSendString("pause " + mfn,0,0,0)

'发出暂停的命令

play.Enable=True

pause.Enabled=False

stopplay.Enabled=True

back.Enabled=False

prew.Enabled=False

End Sub

Private Sub stopplay_Click()

t%=mciSendString("stop " + mfn,0,0,0)

t%=mciSendString("close " + mfn,0,0,0)

'停止播放

play.Enabled=True

pause.Enabled=False

stopplay.Enabled=False

back.Enabled=False

prew.Enabled=False

End Sub

Private Sub back_Click()

t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max\10)),0,0,0) '向后跳一小段再播放

End Sub

Private Sub prew_Click()

t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max\10)),0,0,0) '向前跳一小段再播放

End Sub

Private Sub Timer1_Timer()

Dim t As Long

Dim ret As String * 128

t=mciSendString("status " + mfn + " position",ret,0,0)

'得到当前播放位置

ret=left(ret,8)

ProgressBar1.Value=Val(ret)

Label1.Caption=gettime(Val(ret))

'显示歌曲当前时间

If ProgressBar1.Value=ProgressBar1.Max Then

stopplay_Click

End If

t=mciSendString("status " + mfn + " mode",ret,128,0)

ret=Left(ret,8)

StatusBar1.Panels(1).Text=ret

End SubPrivate Sub Form_Unload(Cacel As Integer)

t%=mciSendString("stop " + mfn,0,0,0)

t%=mciSendString("close " + mfn,0,0,0)

End SubPrivate Function Gettime(position As Long) As String

'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"

Dim min,sec

min=position/1000

min=min/60

sec=min-Int(min)

min=Int(min)

sec=60 * sec / 100

sec=Int(sec * 100)

gettime=Str(min) + ":" + Str(sec)

End Function

vb.net读写MP3各项属性,急~~

从MP3中提取歌曲信息

一首MP3歌曲除了音乐信息外,还包含了如歌名、演唱者等信息,当我们用winamp软件听音乐时,播放清单就自动将这些信息读出来。大部分人都喜欢从网上下载音乐,但下载下来的MP3文件名都是文件上传系统自动取名的,和歌曲本身根本不相符,所以,给用户带来了很大的麻烦。但是,懒人有懒人的做法,我们何不自己写一个程序,将歌曲信息自动读出来并为MP3文件自动更名呢?

下面以C#为工具,把开发过程写出来。

一首MP3的额外信息存放在文件的最后面,共占128个字节,其中包括以下的内容(我们定义一个结构说明):

public struct Mp3Info

{

public string identify;//TAG,三个字节

public string Title;//歌曲名,30个字节

public string Artist;//歌手名,30个字节

public string Album;//所属唱片,30个字节

public string Year;//年,4个字符

public string Comment;//注释,28个字节

public char reserved1;//保留位,一个字节

public char reserved2;//保留位,一个字节

public char reserved3;//保留位,一个字节

}

所以,我们只要把MP3文件的最后128个字节分段读出来并保存到该结构里就可以了。函数定义如下:

///

/// 获取MP3文件最后128个字节

///

/// 文件名

/// 返回字节数组

private byte[] getLast128(string FileName)

{

FileStream fs = new FileStream(FileName,FileMode.Open,FileAccess.Read);

Stream stream = fs;

stream.Seek(-128,SeekOrigin.End);

const int seekPos = 128;

int rl = 0;

byte[] Info = new byte[seekPos];

rl = stream.Read(Info,0,seekPos);

fs.Close();

stream.Close();

return Info;

}

再对上面返回的字节数组分段取出,并保存到Mp3Info结构中返回。

///

/// 获取MP3歌曲的相关信息

///

/// 从MP3文件中截取的二进制信息

/// 返回一个Mp3Info结构

private Mp3Info getMp3Info(byte[] Info)

{

Mp3Info mp3Info = new Mp3Info();

string str = null;

int i;

int position = 0;//循环的起始值

int currentIndex = 0;//Info的当前索引值

//获取TAG标识

for(i = currentIndex;i

{

str = str+(char)Info[i];

position++;

}

currentIndex = position;

mp3Info.identify = str;

//获取歌名

str = null;

byte[] bytTitle = new byte[30];//将歌名部分读到一个单独的数组中

int j = 0;

for(i = currentIndex;i

{

bytTitle[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Title = this.byteToString(bytTitle);

//获取歌手名

str = null;

j = 0;

byte[] bytArtist = new byte[30];//将歌手名部分读到一个单独的数组中

for(i = currentIndex;i

{

bytArtist[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Artist = this.byteToString(bytArtist);

//获取唱片名

str = null;

j = 0;

byte[] bytAlbum = new byte[30];//将唱片名部分读到一个单独的数组中

for(i = currentIndex;i

{

bytAlbum[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Album = this.byteToString(bytAlbum);

//获取年

str = null;

j = 0;

byte[] bytYear = new byte[4];//将年部分读到一个单独的数组中

for(i = currentIndex;i

{

bytYear[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Year = this.byteToString(bytYear);

//获取注释

str = null;

j = 0;

byte[] bytComment = new byte[28];//将注释部分读到一个单独的数组中

for(i = currentIndex;i

{

bytComment[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Comment = this.byteToString(bytComment);

//以下获取保留位

mp3Info.reserved1 = (char)Info[++position];

mp3Info.reserved2 = (char)Info[++position];

mp3Info.reserved3 = (char)Info[++position];

return mp3Info;

}

上面程序用到下面的方法:

///

/// 将字节数组转换成字符串

///

/// 字节数组

/// 返回转换后的字符串

private string byteToString(byte[] b)

{

Encoding enc = Encoding.GetEncoding("GB2312");

string str = enc.GetString(b);

str = str.Substring(0,str.IndexOf('\0') = 0 ? str.IndexOf('\0') : str.Length);//去掉无用字符

return str;

}

改名怎么办呢?我们按(演唱者)歌名 的格式对歌曲进行改名,程序如下:

///

/// 更改文件名

///

/// 文件名

///

private bool ReName(string filePath)

{

if(File.Exists(filePath))

{

Mp3Info mp3Info = new Mp3Info();

mp3Info = this.getMp3Info(this.getLast128(filePath));//读出文件信息

mp3Info.Artist = this.DeleteNotValue(mp3Info.Artist);

mp3Info.Title = this.DeleteNotValue(mp3Info.Title);

if(mp3Info.Artist.Trim().Length==0)

{

mp3Info.Artist="未命名";

}

if(mp3Info.Title.Trim().Length==0)

{

mp3Info.Title="未知名歌曲";

}

try

{

//更名

File.Move(filePath,filePath.Substring(0,filePath.ToLower().LastIndexOf("\\")).Trim() + "\\" + "(" + mp3Info.Artist.Trim() + ")" +mp3Info.Title.Trim() + ".mp3");

return true;

}

catch(Exception)

{

return false;

}

}

else

{

return false;

}

}

vb.net 中 如何实现 播放mp3文件

在.NET里,没有托管的音乐播放器,用API只能播放WAV格式,对于MP3等形式的音频文件,就要依赖于其他控件了,常用的就是

MediaPlayer。使用方法:

在工具箱上点右键,选择“选择项目(Choose Items)”,切到COM选项卡,找到 Windows Media Player, 勾选,确定

在t工具箱上,把刚才加入的MediaPlayer控件,拖放到窗体上

代码:

WindowsMediaPlayer1.URL = "mp3文件路径,支持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了,至于其他的操作诸如下一曲上一曲暂停停止,直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。


网站名称:关于vb.netmp3属性的信息
本文链接:http://scyanting.com/article/hidocp.html