Visual Basic

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)