VB改变图片大小的函数

小歆13年前软件源码03530
   Public Function ResizePicture(ByVal sourceImage As Bitmap, _
                ByVal newSize As Size) As Bitmap '调整图片大小(图片源,新尺寸)

        Dim Result_image As New Bitmap(sourceImage, newSize.Width, newSize.Height)
        Dim Gr As Graphics

        Gr = Graphics.FromImage(Result_image)
        Gr.DrawImage(Result_image, 0, 0, newSize.Width, newSize.Height)
        Gr.Save()

        Return Result_image
    End Function

    Public Function CropBitmap(ByVal inputBmp As Bitmap, _
                ByVal cropRectangle As Rectangle) As Bitmap '裁剪位图(输出,矩形)
        '创建一个新的位图对象根据输入的
        Dim newBmp As New Bitmap(cropRectangle.Width, _
                 cropRectangle.Height, _
                 System.Drawing.Imaging.PixelFormat.Format24bppRgb) 'Graphics.FromImage 
                                                'doesn't like Indexed pixel format

        '创建一个图形对象,并将其附加的位图
        Dim newBmpGraphics As Graphics = Graphics.FromImage(newBmp)

        '对输入图像中裁剪矩形绘制的部分
        '图形对象
        newBmpGraphics.DrawImage(inputBmp, _
              New Rectangle(0, 0, cropRectangle.Width, cropRectangle.Height), _
                cropRectangle, _
                GraphicsUnit.Pixel)

        'Return the bitmap
        newBmpGraphics.Dispose()

        'newBmp will have a RawFormat of MemoryBmp because it was created
        'from scratch instead of being based on inputBmp.  Since it is inconvenient
        'for the returned version of a bitmap to be of a different format, now convert
        'the scaled bitmap to the format of the source bitmap
        Return newBmp
    End Function        

相关文章

嵌入式软件架构设计

模块划分 模块划分的"划"是规划的意思,意指怎样合理的将一个很大的软件划分为一系列功能独立的部分合作完成系统的需求。C语言作为一种结构化的程序设计语言,在模块的划分上主要依据功能(依功能...

在线学高校精品课程(部分失效)

计算机专业视频合集(计算机、数据库、编程、软件等) 下载地址: http://pan.baidu.com/s/1c0voWnQ 密码: sknk 土木类专业视频合集 (土木...

制作win7+ubuntu +winPE+CDlinux多系统启动U盘

制作前期准备工作 1.需要软件 grub4dos(http://sourceforge.net/projects/grub4dos/files/)...

小歆工作室 手机版.jpg

规划小歆工作室Android刷机包制作...

小歆工作室Android刷机包制作        《小歆工作室Android刷机包》基于MIUI安卓系统修改更新的一款ROM刷机包,此版本规...

VB获取本机公网IP源码

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, Fa...

C51单片机及C语言知识点必备秘籍

C51单片机及C语言知识点必备秘籍

C51单片机及C语言知识点必备秘籍2 `: }( _# B# m% p+ _6 t, B* k 5 W' z" b2 T. Z: s' m! Q" T ; s0 w2 E& a&nbs...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。