Webコントロールでの画像の拡大／縮小

// id 属性 "IMAGE" を持った img 要素があるとして

function adjustHeight(){

	var m_img = this.document.getElementById('IMAGE');

	// ↑ ほんとは、body 要素の onload 属性で処理すれば、一回で済む。

	m_img.style.height='90%';	// ← 適当に加減して。

	// Window サイズの取得は IE と NN で違うので面倒だけど。  

	m_img.style.width='auto';

}

function adjustWidth(){

	var m_img = this.document.getElementById('IMAGE');

	m_img.style.height='auto';

	m_img.style.width='100%';

}

function normalSize(){

	var m_img = this.document.getElementById('IMAGE');

	m_img.style.height='auto';

	m_img.style.width='auto';

}

Protected WithEvents bigb As System.Web.UI.WebControls.Button
    Protected WithEvents smallb As System.Web.UI.WebControls.Button
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image

    Public Shared IMGS As Integer '現在の画像の拡大縮小率
    Public Shared BP As Integer '画像の拡大率
    Public Shared SP As Integer '画像の縮小率
    Public Shared IFO As String '元画像のパス
    Public Shared IFT As String 'テンポラリ用の画像パス

    Private Sub Page_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles MyBase.Load
        ' ページを初期化する ユーザー コードをここに挿入します。
        If Not IsPostBack Then
            IMGS = 100
            BP = 10
            SP = 10
            IFO = Server.MapPath("./") & "/PIX/" & "BB30.JPG"
            IFT = Server.MapPath("./") & "/IMGTMP/" & "TMP.JPG"
            Image1.ImageUrl = IFO
        End If
    End Sub

    Private Sub smallb_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) Handles smallb.Click
        '元画像からビットマップオブジェクトを作成
        Dim IMG As New Bitmap(IFO)
        IMGS += -BP
        '元の画像から見て指定されただけ、縮小された縦横のサイズを格納
        Dim Sizew As Integer = IMG.Width * (IMGS / 100)
        Dim Sizeh As Integer = IMG.Height * (IMGS / 100)
        'サイズの縮小拡大を行うメソッド（元画像オブジェクト,横サイズ,縦サイズ,JPEG圧縮率,保存先のファイル名)
        OPTIMG(IMG, Sizew, Sizeh, 100L, IFT)
        'ビットマップオブジェクトの解放
        IMG.Dispose()
        'ブラウザ上のイメージコントロールの画像を変更
        Image1.ImageUrl = IFT
    End Sub

    Private Sub bigb_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles bigb.Click
        Dim IMG As New Bitmap(IFO)
        IMGS = IMGS + BP
        Dim Sizew As Integer = IMG.Width * (IMGS / 100)
        Dim Sizeh As Integer = IMG.Height * (IMGS / 100)
        OPTIMG(IMG, Sizew, Sizeh, 100L, IFT)
        IMG.Dispose()
        Image1.ImageUrl = IFT
    End Sub

    '画像のＪＰＥＧ化とサイズ調整を行うためのメソッド
    Public Sub OPTIMG(ByVal IMG As Bitmap, _
                      ByVal SIZEW As Integer, _
                      ByVal SIZEH As Integer, _
                      ByVal JPGCOMP As Long, _
                      ByVal sfol As String)
        '元のビットマップオブジェクトから、新しいサイズの変更されたビットマップオブジェクトの作成
        Dim bitmap As New Bitmap(IMG, SIZEW, SIZEH)
        'JPEG変換に関するエンコーダ情報部
        Dim myImageCodecInfo As System.Drawing.Imaging.ImageCodecInfo
        Dim myEncoder As System.Drawing.Imaging.Encoder
        Dim myEncoderParameter As System.Drawing.Imaging.EncoderParameter
        Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters
        myImageCodecInfo = GetEncoderInfo("image/jpeg")
        myEncoder = System.Drawing.Imaging.Encoder.Quality
        myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
        myEncoderParameter = New System.Drawing.Imaging.EncoderParameter(myEncoder, JPGCOMP)
        myEncoderParameters.Param(0) = myEncoderParameter
        'ビットマップオブジェクトを指定された条件で、ファイルとして保存
        bitmap.Save(sfol, myImageCodecInfo, myEncoderParameters)
        bitmap.Dispose()
    End Sub

    'JPEGインフォメーションエンコーダを受け取るためのメソッド
    Private Function GetEncoderInfo(ByVal MYmimeType As String)
        Dim i As Integer
        Dim encoders As System.Drawing.Imaging.ImageCodecInfo() = _
            System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
        For i = 0 To (encoders.Length - 1)
            If (encoders(i).MimeType = MYmimeType) Then
                Return encoders(i)
            End If
        Next i
    End Function