一个VB.NET写的简单图片缩放处理组件源代码,支持添加半透明效果小图标

最新推荐文章于 2021-01-27 23:27:23 发布

super852

最新推荐文章于 2021-01-27 23:27:23 发布

阅读量3.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.NET学习 ASP学习文章标签： vb.net integer string function exception class

本文链接：https://blog.youkuaiyun.com/super852/article/details/292347

这篇博客介绍了一个使用VB.NET编写的图片处理组件，该组件可以进行图片缩放并添加半透明小图标。通过设置目标宽度、高度和是否添加LOGO标志，可以实现图片按比例缩放并自定义背景。源代码中包含关键方法如SaveAs、getnewco等，用于处理图像并混合颜色以实现半透明效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VB.NET写的一个图片处理组件,用于在ASP中处理图片,缩放图片,成比例缩放,有固定比例背景的缩放,加半透明LOGO小图标等功能.

dImage.vb

Imports System
Imports System.Drawing
<ComClass(dImage.ClassId, dImage.InterfaceId, dImage.EventsId)> _
Public Class dImage

#Region "COM GUIDs"
    ' 这些 GUID 提供该类的 COM 标识及其 COM 接口。
    ' 如果您更改它们，现有的客户端将再也无法
    ' 访问该类。
    Public Const ClassId As String = "29641F37-8FA4-4ED9-9118-9DA8EFA306B9"
    Public Const InterfaceId As String = "06E4B037-2461-4F83-96BE-2A5D1CAAB0CE"
    Public Const EventsId As String = "802EBB14-2D4D-416E-BA26-E8ADCD480E26"
#End Region

    ' 可创建的 COM 类必须具有不带参数的
    ' Public Sub New()，否则，该类将不会注册到 COM 注册表中，
    ' 而且不能通过 CreateObject
    ' 来创建。
    Private myImage As Drawing.Bitmap
    Private syimg As Drawing.Bitmap
    Private syok As Boolean = False
    Private myok As Boolean = False
    Public Sub New()
        MyBase.New()
    End Sub
    Public WriteOnly Property bigImage() As String
        Set(ByVal Value As String)
                Try
                    myImage = New Bitmap(Value)
                    myok = True
                Catch e As IO.IOException
                    myok = False
                End Try
        End Set
    End Property
    Public WriteOnly Property LogoImage() As String