Visual Basic

<br />
 Public Sub waterMark()<br />
        Dim imageURL As String<br />
<br />
        'Set the thumbnail width in px – the width will be calculated later to keep the original ratio.<br />
        Dim imageHeight As Integer<br />
        Dim imageWidth As Integer<br />
<br />
        Dim logoX, logoY As Integer<br />
<br />
        'Original image<br />
        imageURL = Server.MapPath("watermark_images/originalImg.jpg")<br />
        Dim fullSizeImg As System.Drawing.Image<br />
        fullSizeImg = System.Drawing.Image.FromFile(imageURL)<br />
<br />
        'For Logo with which we watermark image<br />
<br />
        Dim logoImg As System.Drawing.Image<br />
        imageURL = Server.MapPath("watermark_images/logo.png")<br />
        logoImg = System.Drawing.Image.FromFile(imageURL)<br />
      <br />
        imageHeight = fullSizeImg.Height<br />
        imageWidth = fullSizeImg.Width<br />
<br />
<br />
        Response.ContentType = "image/jpeg"<br />
<br />
        If imageHeight > 0 And imageWidth > 0 Then<br />
            Dim dummyCallBack As System.Drawing.Image.GetThumbnailImageAbort<br />
            dummyCallBack = New _<br />
               System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)<br />
<br />
<br />
            'Creating the Thumbnail image of same size<br />
            thumbNailImg = fullSizeImg.GetThumbnailImage(imageWidth, imageHeight, _<br />
                                                         dummyCallBack, IntPtr.Zero)<br />
<br />
<br />
<br />
            'Declaring and initializing the Graphics image<br />
            'With this image we wil draw image and watermark it<br />
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(thumbNailImg)<br />
<br />
<br />
            'Sets the interpolation mode for a high quality image<br />
<br />
            g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic<br />
          <br />
            'Drawing the original image<br />
            g.DrawImage(fullSizeImg, 0, 0, imageWidth, imageHeight)<br />
            'Drawing the logo on it<br />
<br />
<br />
            logoX = imageWidth * 0.02<br />
            logoY = imageHeight * 0.92<br />
            imageHeight = logoImg.Height<br />
            imageWidth = logoImg.Width<br />
<br />
            g.DrawImage(logoImg, logoX, logoY, imageWidth, imageHeight)<br />
<br />
<br />
            g.SmoothingMode = SmoothingMode.HighQuality<br />
           <br />
            thumbNailImg.Save(Server.MapPath("watermark_images/watermarkedImg.jpg"))<br />
<br />
        Else<br />
<br />
        End If<br />
<br />
<br />

Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
 
.
.
.
 
'
' Create and return a Watermarked image.
'
Public Function CreateWatermarkedImage(
    ByVal SourceFilepath As String, _
    ByVal WatermarkFilepath As String, _
    ByVal WatermarkScale As Single) _
        As Bitmap
 
    ' Check to see if our parameters are valid!
    If File.Exists(SourceFilepath) AndAlso File.Exists(WatermarkFilepath) _
        AndAlso WatermarkScale > 0 AndAlso WatermarkScale < 100 Then
 
        ' Load the source image into a target bitmap to build the watermarked image in...
        Dim targetImage As New Bitmap(SourceFilepath)
 
        ' Now load the watermark image...
        Dim wmImage As New Bitmap(WatermarkFilepath)
 
        ' Scale the Watermark image...
        Dim gtia As New Image.GetThumbnailImageAbort(AddressOf GetThumbnailImageAbortHandler)
        Dim thumbImage As Bitmap = wmImage.GetThumbnailImage( _
            wmImage.Width * WatermarkScale, _
            wmImage.Height * WatermarkScale, _
            gtia, IntPtr.Zero)
 
        ' Draw the thumbnailed watermark image over the target image...
        Dim g As Graphics = Graphics.FromImage(targetImage)
        g.CompositingMode = Drawing2D.CompositingMode.SourceOver
        g.DrawImage( _
            thumbImage, _
            targetImage.Width - thumbImage.Width, _
            targetImage.Height - thumbImage.Height, _
            thumbImage.Width, _
            thumbImage.Height)
        g.Dispose()
 
        Return targetImage
    End If
 
    Return Nothing
End Function
 
Private Function GetThumbnailImageAbortHandler() As Boolean
End Function

angelagke wrote:

what the return value by using String$()??, example:

value = String$(255,32)

String(number, character)