编程实战——电影管理器之界面UI及动画切换

  1. 云栖社区>
  2. 博客>
  3. 正文

编程实战——电影管理器之界面UI及动画切换

万仓一黍 2013-07-31 20:27:00 浏览446
展开阅读全文

在前文“编程实战——电影管理器之利用MediaInfo获取高清视频文件的相关信息”中提到电影管理器的目的是方便播放影片,在想看影片时不需要在茫茫的文件夹下找寻。

 

我对电影管理器的想法如下:

1、可以全键盘操作(不依赖鼠标),最好是利用键盘上的小数字键区就能完成全部操作。

2、基于HTPC的全屏操作,故软件的大小为1920*1080

3、模仿时下流行的“磁贴”效果。

 

下图是本软件的初步的界面UI

bg

解释一下:

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技术再开发一个版本

网友评论

登录后评论
0/500
评论
万仓一黍
+ 关注