如何制作VFP桌面歌词效果，API和GDI高手请进

PS中有描边效果，水印是写上字后（字体也需要选择自己喜欢的）的描边效果，那个类似图章的可以用圆+描边做出来，中间的心形可以用自定义形状做，弧形文字是路径文字效果。边框是圆角矩形+阴影……

原单攻略

做最好的外贸原单正品服装网站

我只能实现这个效果的桌面歌词：

实现方法：

首先插入一个窗口，里面要有透明标签

然后在这个窗口的程序集里加入类似如下的代码：

版本 2

支持库 iext

子程序 _桌面歌词窗口_创建完毕

宽度 ＝ 取屏幕宽度 ()

左边 ＝ 0

透明标签1宽度 ＝ 宽度

置窗口透明 (取窗口句柄 (), #品红)

顶边 ＝ 取屏幕高度 () － 高度 － 20

子程序 _透明标签1_鼠标左键被按下, 逻辑型

参数 横向位置, 整数型

参数 纵向位置, 整数型

参数 功能键状态, 整数型

发送信息 (274, 61458, 0)

子程序 置窗口透明, , , 只有窗口透明，但窗口组件不会透明

参数 窗口句柄, 整数型

参数 窗口底色, 整数型, , 不能为默认底色

设置窗口 (窗口句柄, -20, 位或 (取窗口风格 (窗口句柄, -20), 524288))

设置透明 (窗口句柄, 窗口底色, 200, 1)

还需调用以下dll命令：

版本 2

DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"

    参数 hwnd, 整数型

    参数 crkey, 整数型

    参数 alpha, 字节型

    参数 dwflags, 整数型

DLL命令 取窗口风格, 整数型, , "GetWindowLongA"

    参数 hwnd, 整数型

    参数 nIndex, 整数型

DLL命令 设置窗口, 整数型, , "SetWindowLongA"

    参数 hwnd, 整数型

    参数 nIndex, 整数型

    参数 dwNewLong

然后只需要让透明标签显示歌词就行了

建议把歌词窗口设为总在最前。还需要注意的是底色不能为默认底色，且不能与透明标签的颜色一样，不过建议让颜色很像透明标签的颜色

编程原理

要实现歌词与音频同步显示并让音频文件自动播放，我们首先要从网上下载音频文件（本文以MP3为例）和歌词文件（LRC格式），然后用VB制作一个简易的音频播放器，实现音频与歌词的同步播放，最后用WinRar或VB-PowerWrap工具实现音频文件与歌词的封装并自动播放。

编程分析

一、歌词同步原理

千千静听的歌词文件扩展名为LRC，歌词是以句为单位进行显示，歌词文件中包含了歌词内容及歌词显示时的音频播放时间，歌词在后，时间在前，时间放在一对中括号内。在播放的时候，实时获取播放位置对应的播放时间，并从歌词文件中查找当前时刻对应的歌词并显示出来，这就是千千静听播放器的同步显示原理。在一首歌中，重复的歌词将对应两个或多个音频播放时间，如图1所示。歌词文件格式从本质上讲是文本格式，因此，我们可以用记事本对歌词进行编辑，如果从网上下载的歌词文件在播放时不能与音频同步，那么我们可以修改其中的时间，在歌曲的前奏音乐时间内，可以加入一些信息，如：专辑名称、词曲作者、歌手名称等等。

图1 歌词文件

二、播放功能实现

播放音频文件的方法很多，本文采用“Microsoft MultiMedia Control”控件（MCI32OCX）实现，在调用Multimedia MCI控件之前，须要执行“工程\部件”菜单命令，将“Microsoft Multimedia Controls”前的方框选中，确定返回，在工具箱中便会出现Multimedia 控件图标，把 Multimedia 控件添加到窗体上，命名为Mci。

1、MCI控件的部分方法和属性如下：

MciFileName = Mp3 '文件名

MciCommand = "Open" '打开

MciCommand = "Play" '播放

MciCommand = "Stop" '停止

MciCommand = "Close" '关闭

MciPosition：当前播放时间（毫秒）

MciLength：总的播放时间（毫秒）

2、取得Windows临时文件夹

把音频文件和歌词文件都放在程序同文件夹中，且名称都为Song（扩展名分别为MP3、LRC），程序运行时，将音频文件复制到Windows的临时文件夹中，并对其进行播放。取得Windows临时文件夹通过API函数GetTempPath实现，编程方法和核心代码如下：

Function WinTempDir() As String

Dim Tmp As String

Dim tP As String

Tmp = Space$(255)

Call GetTempPath(Len(Tmp), Tmp)

tP = Left(Trim$(Tmp), Len(Trim$(Tmp)) - 1)

If Right$(tP, 1) <> "\" Then

tP = tP + "\"

End If

WinTempDir = tP

End Function

3、读入歌词

在播放音频文件前，将当前文件夹中的歌词从文件中读入到列表框控件中，在播放的时候，可以通过播放时间提取歌词并显示，读入歌词文件的编程方法和核心代码如下：

Function OpenLrc()

'Lrc为歌词文件名

Open Lrc For Input As #1

While Not EOF(1)

Line Input #1, S

If Len(S) > 0 Then List1AddItem S

Wend

Close #1

End Function

4、程序初始化

程序运行时取得当前文件夹和Windows临时文件夹，完成音频文件复制，读入歌词，同时删除当前文件夹中的音频文件和歌词文件，并开始音频播放，编程方法和核心代码如下：

Private Sub Form_Load()

Pa = AppPath

tPa = WinTempDir

tMp3 = Pa + "Songmp3"

Mp3 = tPa + "Songmp3"

Lrc = Pa + "Songlrc"

FileCopy tMp3, Mp3

Call OpenLrc '歌词

Kill tMp3: Kill Lrc

'以上删除了音频文件和歌词文件，在程序调试期间，应取消此功能

MciFileName = Mp3

MciCommand = "Open"

MciCommand = "Play"

End Sub

5、歌词同步显示

在音频播放时，通过定时器控件，获取当前音频播放时间（MM:SS，秒级），然后在列表框中查找当前时间对应的歌词，找到则显示歌词，编程方法和核心代码如下：

'转换播放时间格式

Function tFormat(iPos) As String

M = iPos / 1000 \ 60 '分

S = iPos / 1000 Mod 60 '秒

If M < 10 Then Ret = "0"

Ret = Ret + CStr(M) + ":"

If S < 10 Then Ret = Ret + "0"

Ret = Ret + CStr(S)

tFormat = Ret

End Function

'查找歌词位置

Function ListIdx(ItemTxt) As Integer

For I = 0 To List1ListCount - 1

P = InStr(1, List1List(I), ItemTxt)

If P > 0 Then

ListIdx = I: Exit Function

End If

Next

ListIdx = -1

End Function

'同步显示歌词

Private Sub Timer1_Timer()

SetFormTop Me, True '窗体置顶

Pos = tFormat(MciPosition)

Label3Caption = Pos

Idx = ListIdx(List1, Pos)

If Idx <> -1 Then

P = InStrRev(List1List(Idx), "]", -1)

GeCi = Mid$(List1List(Idx), P + 1)

If GeCi = "" Then

Label2Caption = "Music"

Else

Label2Caption = GeCi

End If

End If

End Sub

6、窗体设置

本文设计的简易播放器的窗体为对话框模式（BorderStyle=3），没有标题栏，在任务栏上没有显示，而且无法移动，所以要实现无标题栏窗体的移动，且要让窗体实时置于其它窗体之上。编程方法和核心代码如下：

'窗体置顶

Function SetFormTop(iForm As Form, iFlag As Boolean)

If iFlag = True Then

SetWindowPos iFormhwnd, -1, 0, 0, 0, 0, 3

Else

SetWindowPos iFormhwnd, -2, 0, 0, 0, 0, 3

End If

End Function

'窗体移动准备

Private Sub Frame1_MouseDown(参数略)

If Button = 1 Then

mX = X: mY = Y: mV = 1

End If

End Sub

'移动窗体

Private Sub Frame1_MouseMove(参数略)

If Button = 1 And mV = 1 Then

MeLeft = MeLeft + X - mX

MeTop = MeTop + Y - mY

End If

End Sub

'移动结束

Private Sub Frame1_MouseUp(参数略)

mV = 0

End Sub

7、编译运行

编译程序、运行，可以看到音频播放的同时，歌词在同步显示，如图2所示。

图2 程序运行

三、封装的实现

上面已经实现了音频文件的播放与歌词的同步显示，但播放的是同文件夹中的音频文件，使用的是同文件夹中的歌词文件，实现了千千静听的同步显示播放功能。但如何将音频文件和歌词文件封装成一个可执行的包呢？在可执行包运行的时候，如何自动运行包中的音频播放器从包中读入歌词并播放包中的音频文件呢？

1、用WinRAR实现

WinRAR可以实现将多个文件按自解压方式压缩成一个可执行的文件，而且可以设置解压后自动运行其中的某个程序（很多安装程序就是这样做的），利用这个方法，我们可以把上面设计的播放器和音频文件、歌词文件封装成一个可执行的包。当运行可执行包时，将自动释放包中的播放器、音频文件、歌词文件，并自动运行播放器开始播放。但这样有三个缺点：一是解压后可以看见音频文件和歌词文件，二是程序中使用的MCI播放控件无法自动注册，三是WinRar制作的压缩包在解压时有提示，需要用户进行解压确认。

2、用VB-PowerWrap实现

VB-PowerWrap是发布VB程序的一个优秀的安装程序制作工具，她通过扫描一个VB的工程文件，自动将该工程所需要的文件加入到包中，同时可以添加其它任何类型的文件到包中，并创建一个包含所有必要文件和相关文件的可执行包供程序员发布。VB-PowerWrap使用了超强的压缩模块，能对所用的动态库文件进行压缩，这样可以创建出最小的EXE文件。该软件可以用于VB4、5、6版本中。

用VB-PowerWrap封装的可执行包运行时，首先释放出其中的所有文件，并自动将VB运行库和第三方控件加载到内存并从磁盘删除释放的文件，随后自动运行工程中的执行程序。在本文设计的播放器中，自动将音频文件复制到临时文件夹并对其进行播放，同时删除了音频文件和歌词文件，所以，通过用VB-PowerWrap封装的运行包运行后，在磁盘上留下的仅仅是临时文件夹中的音频文件，这样，看起来就是一个可播放音乐的独立文件在运行。用VB-PowerWrap封装的步骤如下：

1)、安装并运行VB-PowerWrap；

2)、点击界面上的VB工程按钮，在d出的对话框中，点击右上方的图标，选择刚编译的执行程序文件名并打开，随后选择工程文件名并打开；这时可看到你编制的程序所依赖的文件列表，从左下方选择你所使用的VB版本，然后点击完成按钮返回；

3)、添加音频文件和歌词文件

通过软件界面上的添加按钮完成音频文件和歌词文件的添加，如图3所示。

图3 程序打包

4)、创建压缩包

在链接工程和添加好其它文件之后，就可以点击软件界面上的创建按钮，几秒钟后就生成一个独立的执行程序包了。到此为止，新建立的执行程序就可以在其它任何Windows平台上独立运行了。

编程后记

本文建立的VB工程和程序，具有通用性，你现在要做的就是，从网上下载你喜欢的歌曲文件和歌词文件，并以Song为文件名放到工程的同文件夹中，这个工作是很轻松的，然后通过VB-PowerWrap工具进行打包，这样就形成了能自动播放的音频文件。

值得一提的是，你的程序经过VB-PowerWrap的封装，就变得相当精干了。源码下载>

正确歌词为：人一次一次一次也惊慌。

歌名：《一次一次一次》

歌曲原唱：林峯

填词：林若宁

谱曲：Apicihai Yenpoonsook，Terdsak Janpan

编曲：Tommy仔

歌词：

春天的约定二月满天星，但愿牡丹开遍了门庭

但是我等不到你，从无旁人见证

剩下了烟花撒满倒影，出海的约定六月看风景

漫步布吉可会更忘形，愿望也给蒸发了

为何全无记性，剩下鸟声敲破了梦境

承诺的一次一次一次有希望，最后你亦叫我期望又失望

不忍怪你亦管不得说谎，人一次一次一次也惊慌

能跟你把臂一次也相当希罕，尽管爽约亦部不敢沮丧

冬天的约定踏着那干冰，共用领巾走过了繁荣

落叶散开只有我，悠悠长雪径

望着雪花遮盖了视听，期望你或者一次守约

扩展资料：

《一次一次一次》创造并发行于2007年11月23日，收录于林峯首张专辑《爱在记忆中找你》中，由英皇娱乐集团有限公司出版并发行。

该专辑是林峯的首张粤语唱片，于2007年11月23日由英皇娱乐集团有限公司发行，全碟共收录十首歌曲，同名单曲《爱在记忆中找你》和《赤地转机》为该碟的主打歌。

该专辑发行三周即获IFPI金唱片销量，并林峯获封“销量新人王”，夺得IFPI香港唱片销量大奖“十大销量广东唱片”和“最畅销本地男新人奖“，林峯凭借该专辑夺得2007年度十大劲歌金曲“最受欢迎男新人”金奖。

以上就是关于如何制作VFP桌面歌词效果，API和GDI高手请进全部的内容，包括:如何制作VFP桌面歌词效果，API和GDI高手请进、易语言如何实现桌面歌词、怎样用VB实现LRC歌词播放等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！