1楼留给百度叔叔.

下面是界面.问题在下一楼写上.

为了做好皮肤,我模仿了 Office 2007 的皮肤,把窗体的ControlBox设为False把BorderStyle设为 2-Sizable ,Caption设为空.这样就得到一个无标题栏,又能改变大小的窗口了.我又想在任务栏上显示,把ShowTaskBar设置为True.但是任务栏上显示的是没有标题(因为Caption为空)而且没有系统菜单.这个问题我去问过,有人说我问白痴问题,就没有再问.我想了另一个方法,添加一个窗口,播放器的主窗口置顶,那个窗体隐藏在主窗口下面.这样问题就解决了,但是拖动主窗口时,那个隐藏在下面的窗口经常会显示出来.我就用API把那个要隐藏的窗口设透明度为0%.问题就出现了.主窗口的拖动和改变大小都变得好慢.不知道还有没有更好的办法?

我已经上传到网络硬盘,下载地址:http://webdisk.cech.com.cn/download/7686011/758654db0aaa3fc3e38f/播放器RAR.rar请好心的人帮我解决一下.

问题得到解决了,在模块的Sub Main()里添加主窗口.Show和用API设置次窗口的透明度.但是窗口最大化时还是慢.

怎么都没有人回复?...

我要问的问题在 3 楼.

晕,我发的贴怎么爆冷门??

谁能帮我一下????

改变大小处理慢的问题已经解决.现在就只是最大化的处理速度特慢了.我已经上传到网络硬盘,下载地址:http://webdisk.cech.com.cn/download/7690571/2e58da1006ca02c82508/播放器.rar下一楼我发代码上来,帮我看看是什么问题.

先说一下我的程序的结构:●FrmStart是主窗口。BorderStyle为2-Sizable,ControlBox为False,Caption为空。●●FrmMain是一个没什么作用的窗口，因为FrmStart的ShowTaskbar为False了，我想在任务栏上显示，所以就利用了这个窗口●

FrmStart的代码Private Sub Timer1_Timer()FrmMain.Show'为了使任务栏上的按钮呈现选中状态End SubPrivate Sub Form_Resize()Call SetSkin'调用皮肤设置End Sub

FrmMain的代码:Private Sub Form_Resize()FrmStart.WindowState = Me.WindowStateIf Me.WindowState <> 1 ThenFrmStart.ShowEnd IfIf Me.WindowState = 0 ThenMe.Left = (FrmStart.Width - Me.Width) / 2Me.Top = FrmStart.TopEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Unload FrmStartEnd Sub'这些代码是为了使任务栏上的系统菜单起作用

[email protected]我要一份源代码，谢谢了

等我做好了就把源代码上传到网络硬盘,随便大家下载.现在只是半成品.本程序只使用了 WMP v10 控件,其他的都是VB默认的.

更新了.列表不再显示路径而是显示歌曲的TAG信息.而且支持,播放信息的显示(播放进度条上面)我做好了马上发源代码.下面是截图:

因为找不到一个风格相似的打开文件的Ico所以一直没能完成.

界面太豪华了,运行当然慢了…………

[email protected]