编程实战——电影管理器之界面UI及动画切换
在前文“编程实战——电影管理器之利用MediaInfo获取高清视频文件的相关信息”中提到电影管理器的目的是方便播放影片，在想看影片时不需要在茫茫的文件夹下找寻。
我对电影管理器的想法如下：
1、可以全键盘操作（不依赖鼠标），最好是利用键盘上的小数字键区就能完成全部操作。
2、基于HTPC的全屏操作，故软件的大小为1920*1080
3、模仿时下流行的“磁贴”效果。
下图是本软件的初步的界面UI
解释一下：
1、HTPC的屏幕是1920*1080，在软件设计的时候，由于电脑的屏幕没那么大，初步设计为960*540，等调试完全没有问题后，再将分辨率调成1920*1080。
2、整个屏幕分为上下两个部分。上部是类别信息（上图中顶部的黑条，目前是空在那儿），下部是电影信息的磁贴
3、磁贴一共3*3=9个，分别用1-9标示，对应小数字键盘上的数字键，设想是按相应的数字键，调用系统播放器播放相应的影片
4、由于电影的数量众多，利用数字小键盘区上的/、*键实现电影列表的左右切换；利用-、+键实现电影列表的上下切换
现在的流行的UI，在列表切换的时候，都会有一段动画的切换效果，以避免呆板的效果。
下面就给出动画切换的实现代码
Private Sub TransFilm(Bmp1 As Bitmap, Bmp2 As Bitmap)
Dim I As Integer
Dim X As Integer
Dim Steps As Integer = 35
_IsDrawing = True
_G.SetClip(New Rectangle(0, 30, 960, 510))
For I = 0 To Steps
X = Int((Math.Cos(I / Steps * Math.PI) - 1) * 480 + 0.5)
_G.DrawImageUnscaled(Bmp1, X, 30)
_G.DrawImageUnscaled(Bmp2, X + 960, 30)
PrivatePaint()
'Threading.Thread.Sleep(20)
Next
_G.ResetClip()
_IsDrawing = False
End Sub
首先，将要切换的2个电影列表绘到2个Bitmap对象（上面的代码没有显示描绘的代码，作为参数传入到方法中）。
所谓的动画，就是把动画拆成若干步，然后把每一步绘制到界面上，在每一步中间加上Threading.Thread.Sleep(20)，使动画在不同的机器上动画的时间不会相差太大。
不过上面的代码，有这几个问题，不太好解决。写在这也是向网友求教，看看有没有啥好的解决方法
1、加上Threading.Thread.Sleep(20)后，在参数大于20，有频闪的现象。我已经用了双缓冲技术，_G就是在内存中开辟的缓冲区，在绘图完成后，用PrivatePaint方法把_G的内容绘制到WinForm上
2、把这句话注释后，虽然动画看起来快了很多，但是动画很流畅，没有频闪的现象。不过在Steps参数改成超过40后，还是有一丝闪烁。
有网友能给出比较好的VS的动画教程么？也考虑到也许用Directx.Direct2D实现动画效果比较好，只是相关的资料找寻比较少而作罢。
曾经考虑用WPF实现动画，不过相关的资料找寻比较少而作罢。不过WPF和WP7、WP8、IOS、Android等技术相似度比较高。在本软件的首个版本开发后，可以考虑用WPF技术再开发一个版本