Mp3播放器★歌词同步显示★ 2.0

Question

[原创]Mp3播放器★歌词同步显示★ 2.0感谢您使用本程序
本程序需要您安装Windows Media Player 9以上版本!!
主要功能：
1.使用播放列表连续播放歌曲;
2.播放歌曲时同步显示歌词;
3.实现文件的拖放操作。本程序全部由小弟个人编写，多有不足之处，还望高人不吝赐教。程序中的问题全部写在Form1代码的最底端！2.0更新信息:
1.改进用户接口（界面）；
2.改进读取歌词文件的算法；
3.实现磁性窗口。我这个程序中可是有“复活节彩旦”的呦，换句话说就是程序中有些“小秘密”，不研究一下代码可是发现不了的！（提示下：在编辑歌词框架的“保存”按钮中—:）由于小弟水平实在有限，无法实现千千静听的同步效果。还望高人不吝赐教！下载地址：http://pickup.mofile.com/6386349639246372
          http://www.esnips.com/doc/5f50240d-c3c2-4f7b-8694-9af27ad0d149/Mp3播放器★歌词同步显示★
 

Answer 1

千千静听的歌词同步效果？？？说的是显示效果吧。。
看了看千千的歌词显示效果，最难的应该是那种半个字半个字的卡拉ok变色效果吧简单模拟了一下：
Private Sub Command1_Click()
Label2.AutoSize = False
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 20
With Label1
    .AutoSize = True
    .Alignment = 1
    .ForeColor = 255
    .FontSize = 22
    .Caption = "abcdefghi"
End With
With Label2
    .AutoSize = True
    .Alignment = 1
    .ForeColor = 0
    .FontSize = 22
    .Caption = "abcdefghi"
    .Top = Label1.Top
    .Left = Label1.Left
End With
End SubPrivate Sub Timer1_Timer()
If Label2.Width > 0 Then
DoEvents
Label2.Width = Label2.Width - 10
Label2.Left = Label2.Left + 10
Else
Timer1.Enabled = False
End If
End Sub当然，上面的示例会有闪烁感不过估计应该可以通过常规的用双缓冲解决动画闪烁问题的方法来解决
至于鼠标滚轮调整歌词等功能，估计也不会太难。
试试吧。。

Answer 2

歌词文件（*.lrc）必须和歌曲文件同名,且在同一目录下。或者如果您参悟了我程序中的玄机，可以自己设置专门的歌词文件目录让程序去搜索。