VB改变图片大小的函数

小歆13年前软件源码03488
   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        

相关文章

Google官方C++编程规范手册

Google官方C++编程规范手册

Google C++ 编程规范 目录: 下载地址:       小歆网盘:Google C  编程规范(541.98 KB...

测判三极管的口诀

三极管的管型及管脚的判别是电子技术初学者的一项基本功,为了帮助读者迅速掌握测判方法,笔者总结出四句口诀:“三颠倒,找基极;PN结,定管型;顺箭头,偏转大;测不准,动嘴巴。”下面让我们逐句进行解释...

Base64加密解密VB源码

base64加密模块 用法:Base64Encode(‘加密字符') Option Explicit Publ...

STM32 V3.5.0 工程模版

STM32 V3.5.0 工程模版

STM32_V3.5.0工程模版 MDK环境下利用STM32库V3.5创建工程的模板! 下载地址:STM32_V3.5.0工程模版(701.27 K...

DIY白光电烙铁 全过程图解

DIY白光电烙铁 全过程图解         下载地址:DIY白光电烙铁 全过程图解(1.87 MB)...

开启Win7开始菜单右边的快速启动栏

1.在任务栏上点击鼠标右键 -> 工具栏 -> 新建工具栏。 2.在文件夹里输入这个路径,然后按Enter: %userprofile%\AppData\Roaming\Microso...

发表评论    

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