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

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 = F