vb.net暂停音乐 vbs播放音乐

怎么在vb.net程序里添加背景音乐？

推荐到一个人的百度空间里去看，

鄂伦春网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作，到程序开发，运营维护。成都创新互联自2013年起到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。

里面有DirectSound的教程

还有DirectInput、DirectDraw的教程

但是DirectSound只能播放wav

如果想播放像mp3、ogg之类的音乐，你可以使用AudioVideoPlayback

关于播放器中的功能（歌词同步），急求VB.NET代码！！

思路很简单可以定义一个结构LyricStructure Lyric

Dim Time As Single

Dim Content As String

End Structure声明一个列表 Private Lyrics As New List(Of Lyric)然后以文本方式把歌词文件读入一个变量并对它进行分析分别把时间和歌词内容存入一个Lyric，并加入Lyrics中。代码如下：（假设歌曲文件的路径为path）Dim LrcPath As String== IO.Path.GetDirectoryName(cPath) "/" IO.Path.GetFileNameWithoutExtension(cPath) ".lrc"If IO.File.Exists(LrcPath= True Then AnalysisLyric() Private Sub AnalysisLyric()

Lyrics.Clear() '先清空列表

Dim tm As Byte

Dim sr As New IO.StreamReader(LrcPath, System.Text.Encoding.Default) '读取歌词文件

Do While sr.EndOfStream = False '判断是否处于文件流末尾

Dim tmpStr As String = sr.ReadLine '读取一行

If tmpStr.Length 5 Then Continue Do '长度小于5则跳过，进行下一次循环

Select Case Mid(tmpStr, 2, 2) '判断第2-3个字符因为歌词里的注释都是[ti:***]类似的结构

Case "ti"

lTitle = Mid(tmpStr, 5, tmpStr.Length - 5)

Case "ar"

lArtist = Mid(tmpStr, 5, tmpStr.Length - 5)

Case "al"

lAlbum = Mid(tmpStr, 5, tmpStr.Length - 5)

Case "by"

lAuthor = Mid(tmpStr, 5, tmpStr.Length - 5)

Case Else '如果不为以上的内容则为歌词正文，进行以下操作

If Not Mid(tmpStr, 1, 6) Like "?##:##" Then Continue Do

Dim time(-1) As String '因为有时歌词是以[00:00.00][00:00.00]**** 这样歌词把多个时间存放在一起的，所以定义一个数组来存放歌词

Do '因为不确定时间的个数，所以此处必须循环判断

tm = InStr(tmpStr, "]") '因为歌词时间有时是[00:00.00]形式，有时是[00:00]形式，所以不能单纯的截取第几个字符，我是根据查找']'字符来进行判断的

ReDim Preserve time(time.GetUpperBound(0) + 1) 为time数组重新分配大小

time(time.GetUpperBound(0)) = Mid(tmpStr, 1, tm) 'time.GetUpperBound(0)返回数组的第一维的最大下标

tmpStr = IIf(tmpStr.Length = tm, " ", Mid(tmpStr, tm + 1)) '歌词内容

Loop While Mid(tmpStr, 1, 6) Like "?##:##" '如果截取剩下的部分依然匹配的话继续循环

For Each t In time '为每个时间都创建一个Lyric变量

Dim ln As Lyric

ln.Time = SwitchTime(Mid(t, 2, t.Length - 2))

ln.Content = tmpStr

Lyrics.Add(ln)

End Select

Loop

sr.Close() 关闭流

Sort() '把所有Lyric按时间顺序排序

End Sub Private Function SwitchTime(ByVal time As String) As Single ‘这个函数是用来把00:00.00格式的时间转化成以秒数显示的数值

Dim tm As Single

Dim minute As Single = Val(Mid(time, 1, 2))

Dim second As Single = Val(Mid(time, 4, 5))

tm = minute * 60 + second

Return tm

End Function Private Sub Sort()

For i = 0 To Lyrics.Count - 2

For j = i To Lyrics.Count - 1

If Lyrics(i).Time Lyrics(j).Time Then

Dim tm As Lyric = Lyrics(i)

Lyrics(i) = Lyrics(j)

Lyrics(j) = tm

End If

End Sub 接下来是显示歌词的问题了，只要有每句歌词和对应的时间，那么问题就好办了。你可以用Windows Media Player控件返回的时间和每句歌词的时间做比较，来判断应该显示那一句。代码是很久前写的，那时没加注释，都是刚刚加上去的哟，你可以根据你的实际情况自己修改，有什么不懂的地方可以继续问我哈~~

在VB.net中我想实现“先暂停该程序，等其他程序运行完再继续执行该程序”的功能，请问怎么实现？

详细查看了你的问题，完全不需要使用线程sleep的方法。

在这边，我要给你引入一个概念。就是Form窗体的两个方法。

Form.Show()和Form.ShowDialog()

第一个Show方法运行后，你的主程序还是会进行，你的代码还是会继续进行下去。此时，窗体还是弹出的。

第二个ShowDialog方法运行后，此时，弹出的一个窗体，你不将其关闭，那么，主程序就会一直等待这个窗体关闭后，才执行后面的代码。

所以，你只需要使用showdialog这个方法，即可达到你想要的结果。

那么，如何才能让弹出的窗体不改变呢？很简单

你可以找到窗体的formcloseing事件，在这个事件中，有一个参数：e

这个e有一个属性，就是e.handle，表示是否处理过这个事件了。

这个时候，如果你不想让窗体关闭，你可以写：

e.handle=true，那么表示已经处理过窗体关闭的事件了。

注：有些情况，可能是：e.cancel=true

VB.net如何实现点击按钮两种图标进行互换，就像播放器开始暂停一样?

'在窗体上添加一个按钮测试

Private

m_PlayFlag

Boolean

False

'是否正在播放

Private

Sub

Button1_Click(ByVal

sender

System.Object,

ByVal

System.EventArgs)

Handles

Button1.Click

m_PlayFlag

False

Then

Button1.Image

Image.FromFile("d:\play.jpg")

'更换为播放图标

m_PlayFlag

True

'改变标志

Else

Button1.Image

Image.FromFile("d:\pause.jpg")

'更换为暂停图标

m_PlayFlag

False

'改变标志

End

Sub

Private

Sub

Form1_Load(ByVal

sender

System.Object,

ByVal

System.EventArgs)

Handles

MyBase.Load

'窗体加载时使用暂停图标

Button1.Image

Image.FromFile("d:\pause.jpg")

End

Sub

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.net暂停音乐 vbs播放音乐
网页URL：http://6mz.cn/article/dooohge.html

网站建设知识

vb.net暂停音乐 vbs播放音乐

怎么在vb.net程序里添加背景音乐？

关于播放器中的功能（歌词同步），急求VB.NET代码！！

在VB.net中我想实现“先暂停该程序，等其他程序运行完再继续执行该程序”的功能，请问怎么实现？

VB.net如何实现点击按钮两种图标进行互换，就像播放器开始暂停一样?

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

其他资讯

网站建设知识

vb.net暂停音乐 vbs播放音乐

怎么在vb.net程序里添加背景音乐？

关于播放器中的功能（歌词同步），急求VB.NET代码！！

在VB.net中我想实现“先暂停该程序，等其他程序运行完再继续执行该程序”的功能，请问怎么实现？

VB.net如何实现点击按钮两种图标进行互换，就像播放器开始暂停一样?

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

其他资讯

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