VB Mp3播放器源代码

VB Mp3播放器源代码

VB Mp3播放器源代码.txt*一篇一篇的翻着以前的的签名,那时候的签名有多幼稚就有多么的幼稚。你连让我报复的资格都没有-〞好想某天来电显示是你的号码。好想某天你的状态是为我而写。 有些人，我们明知道是爱的，也要去放弃，因为没结局public class form1 dim soundname as string() dim i as integer dim j,l as boolean dim k as integer

dim filename as string '取歌曲的名字 dim path as string() dim s,m as integer dim luj as string

dim count as integer '有来声明选择歌曲的数目

private sub form1_load(byval sender as system.object,byval e as system.eventargs) handles mybase.load i=0

j=false l=false

label2.text="歌曲名：" label3.text="歌曲演唱者：" label4.text="歌曲描述：" label5.text="歌曲类型：" label6.text="歌曲大小：" end sub

private sub button6_click(byval sender system.eventargs)handles button6.click selectsound() end sub

private sub trackbar1_scroll(byval sender as system.object,byval e as system.eventargs)handles trackbar1.scroll

me.axwindowsmediaplayer1.settings.volume=trackbar1.value end sub

private

sub

button3_click(byval

sender

as

system.object,byval

e

as

as

system.object,byval

e

as

system.eventargs)handles button3.click if timer1.enabled=false then timer1.enabled=true else

timer1.enabled=false end if

if i=0 then