如何实现图片的缩放

tjpanda88

我想用一个函数来实现在一个指定点以指定大小显示图象.可是不知道为什么这个函数显示的大小没错可不是在指定的点,不知道我哪写错了?
Public Sub Render(ByVal x As Integer, ByVal y As Integer, ByVal Width As Integer, ByVal Height As Integer, Optional ByRef cDraw As Integer = &HFFFFFFFF)
        Dim srcreg As Rectangle, desreg As Rectangle
'M_Width和M_Height是图象原来的大小
        srcreg = New Rectangle(0, 0, M_Width, M_Height)
        desreg = New Rectangle(0, 0, Width, Height)

        If Not M_Pic Is Nothing Then
            M_Sprite.Draw2D(M_Pic, srcreg, desreg, New Point(x, y), cDraw)
        End If

    End Sub

wangh

跟旋转一样 [em10]

3个矩阵

第一个，移动位置，使移动的中心点=原点
第二个，缩放
第三个，移回到原来的位置

最后依此合并这3个矩阵

游戏之家

你想要的东西我都有,都是VB6的, 只是最近论坛的人对我意见大,
很多代码不想放出来, 其实我是很愿意帮助人的, 我手上还有完整的外国VB游戏代码,
晚一点吧, 我都会拿出来, 等我完成了新游戏后.

wangh

楼主要的是VB.net的 [em12]

tjpanda88

我按照矩阵的方法已经把程序改好了,多谢大家了.
我下了一个<3D图象算法入门指南>,里面有一些基本的算法,看来我有必要先认真的学习一下.

zliming

自己写过一个,要插值,模糊