VB.NET实现人物2D行走(wpf向)

这篇文章我主要介绍如何,控制一个人物行走。达到小游戏中很常见的简单的功能。

通常小游戏的资源文件中通常包含下面这样的四方位行走图,百度搜索人物四方位行走图,这样的图片很多。可以直接拿来用。

 

那么问题出现了,怎么用?当然是一张一张的替换啊,比如说第一张图的第一排的四个图轮流播放,就完成了人物向前行走的动画。

那么第一步,首先要把这些图片给分开。有同学说了,用PS分一下。想象一个游戏好多角色,好多动作,单单这个行走的动作你就要分16张存储,你跑动又来16张,攻击又来,你不觉得图片太多太乱了么。当然应该在游戏里面分一下图片。划分的方式很多,我以WPF为例,剪裁一下这些资源图片。

  

    Dim path = "Images\1111.png"

    Dim bitmap As BitmapSource = New BitmapImage(New Uri(path, UriKind.Relative))

    Dim ImageList(4, 4) As ImageSource

    Private Delegate Sub mydelegate1(ByVal i As Integer, ByVal j As Integer)

    Private Delegate Sub mydelegate2()

    Dim image1 As New Image

        Dim width = bitmap.PixelWidth

        Dim height = bitmap.PixelHeight

        Dim bytePerPixel = bitmap.Format.BitsPerPixel / 8

        Dim stride = width * bytePerPixel

        Dim pixls(stride * height + 1) As Byte

        Dim dpix = bitmap.DpiX

        Dim dpiy = bitmap.DpiY

        Dim format = bitmap.Format

        Dim palette = bitmap.Palette

Dim cut(4, 4) As Int32Rect For i = 1 To 4 For j = 1 To 4 cut(i, j) = New Int32Rect((j - 1) * width * 0.25, (i - 1) * height * 0.25, width * 0.25, height * 0.25) bitmap.CopyPixels(cut(i, j), pixls, stride, 0) ImageList(i, j) = BitmapSource.Create(width * 0.25, height * 0.25, dpix, dpiy, format, palette, pixls, stride) Next Next

 

 

上面这段代码是图片处理的核心代码,很值得收藏,是这篇文章的第一个精华。针对像素的处理,可以做的工作很多,比如黑化等等,放在这里划分图片确实是大材小用。经过上面的处理,我们把资源图片划分存储进入ImageList(i, j)数组中,4x4正好16张。虽然实际是5x5的数组,但是个人使用vb的习惯,数组的第一项0向来是不用的。

 

好了,现在划分完了资源图片。接下来就是播放行走动画了。有同学说无非就是循环播放那么简单,放一个timer里面就可以了。下面我们看看是不是这么简单。

 

我们用一个image控件来做人物的动作。

      

        image1.Source = ImageList(1, 1)

        image1.Width = ImageList(1, 1).Width

        image1.Height = ImageList(1, 1).Height

        grid1.Children.Add(image1)

 

 

这篇文章我先介绍第一种效果:键盘方向键触发和解除timer的方式。当然先把timer注册了。

Dim WithEvents timer1 As New System.Timers.Timer

时间间隔设为200毫秒

timer1.Interval = 200

 

然后再keydown事件中写下

Private Sub Window_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles MyBase.KeyDown

        If e.Key = Key.Down Then

            If timer1.Enabled = False Then

                timer1.Start()

            End If

            Image_i = 1

            Call ChangePIC1()

        End If

       ···

    End Sub

 

 

Timer1的事件触发更换图片,因为WPF里面的timer的线程不属于这个程序,这里使用了托管线程,回到程序本身。(如果winform应该不用)

  

 Sub ChangePIC1() Handles timer1.Elapsed

        Image_j += 1

        If Image_j > 4 Then

            Image_j = 1

        End If

        Dim d As New mydelegate1(AddressOf ChangePIC)

        Dispatcher.BeginInvoke(d, Image_i, Image_j)

    End Sub

 

    Sub ChangePIC(ByVal i As Integer, ByVal j As Integer)

        image1.Source = ImageList(i, j)

    End Sub

 

 

到这里确实很简单,这样就完成了4个方位人物行走的效果,按下方向键就可以走了。试一下效果,看起来好像不错。但是。。。。

 

生活总是有很多的但是。切换方向键的时候,人物的切换动作比较慢。快速的点击左右方向键,人物基本不动的。游戏做完了,别人玩后的评价,手感太僵硬!这时候我们就要在keyup里面处理一下了。

  

 Private Sub Window_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles MyBase.KeyUp

        If e.Key = Key.Down Then

            If timer1.Enabled = True Then

                'timer1.Stop()

            End If

            Call ChangePIC1()

        End If

        If e.Key = Key.Up Then

            Call ChangePIC1()

        End If

        If e.Key = Key.Left Then

            Call ChangePIC1()

        End If

        If e.Key = Key.Right Then

            Call ChangePIC1()

        End If

    End Sub

 

我们在keyup里面绕过了timer,直接调用ChangePIC1。大大提升了反映速度,不受限制于timer。这里算是一个小技巧。

这样做的结果就是人物会一直走下去。松开按键还是会走,因为timer没有停止。这样做一下坦克大战,贪吃蛇那样的没什么问题,要是做动作操纵的,不给人控制可不行。

有同学说在keyup里面停止下timer.stop就好了,是个办法。但是问题又来了,停在哪一张图片上面呢?停在中间伸一条腿呆在那,有点违和啊。

下面就是我的第二篇内容了,按键行走。本片结束

前文回顾:使用timer做人物四方位行走图。

下文介绍:按键触发的太快了,人物的动作动那么快,更加违和啊,怎么办?且听下文分解

 

posted @ 2015-12-24 18:56  早一步是财富  阅读(448)  评论(0编辑  收藏