vb同步歌词

来源：百度知道 编辑：UC知道 时间：2024/07/02 09:38:02
问一下VB.NET有什么办法可以同步歌词？
用控件也可以，最好达到千千静听的效果
有vb.net的多20分！
如是没有控件,怎样读取出歌词的内容,格式如下:时间 : 内容
要读出比如
[00:01.00][00.02.00]text
的歌词
二楼，有没有vb.net的？
三楼，有没有实际代码？

添加一个text1用来显示歌词， 把播放器时间赋值给变量 如：ss=WindowsMediaPlayer1.Controls.currentPositionString
歌词文本为千千静听的那种格式
Open "c:\1.lrc" For Input As #1
Do While Not EOF(1)
Line Input #1, a
List1.AddItem a
Loop
Close #1
加载歌词到list里面
添加一个timer控件
Private Sub Timer1_Timer()
On Error GoTo err
tt = ss & "*"
For i = 0 To List1.ListCount - 1
s = List1.List(i)
If s Like tt Then
text1.text =s
End If
Next i
err:
End Sub
大概就是这样，你慢慢摸索

检测影片的进度，根据进度显示相应的歌词。
WMP11里面播放时间是这里：
WindowsMediaPlayer1.Controls.currentPositionString

这几天刚好研究了一下这个，写了个可以同步显示不过不太好看。
把.lrc当文本文件读，其中前面的标签不是时间标签，不用管它，如：
[ti:不想让你哭]
[ar:王强]
[al:]
[by:酷我 www.koowo.com]
[offset:500]‘这个是整体调整歌词用的，毫秒，可以是负值，

主要的时间标签，
[02:23.01]我不想让你哭
[02:24.84]我也不想认输
[02:27.12]只想用我的爱再次把你留住
[03