谁能将VB.net 的一段代码翻译成VB6
XinJW 2015-02-25 08:41:07 Imports System.Drawing
Imports Bytescout.Watermarking
Module Module1
Sub Main()
' Create Watermarker instance
Dim waterMarker As New Watermarker()
' Initialize library
waterMarker.InitLibrary("demo", "demo")
' Set input file name
Dim inputFilePath As String = "my_sample_image.jpg"
' Set output file title
Dim outputFilePath As String = "my_sample_output.jpg"
' Add image to apply watermarks to
waterMarker.AddInputFile(inputFilePath, outputFilePath)
' Create new watermark
Dim preset As New Presets.SimpleText()
' Set watermark text
preset.Text = "Bytescout Watermarking"
' Set watermark font
preset.Font = New WatermarkFont("Tahoma", FontStyle.Regular, FontSizeType.Points, 30)
' Add watermark to watermarker
waterMarker.AddWatermark(preset)
' Set output directory
waterMarker.OutputOptions.OutputDirectory = "."
' Apply watermarks
waterMarker.Execute()
' open generated image file in default image viewer installed in Windows
Process.Start(outputFilePath)
End Sub
End Module