Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Drawing
Public Sub RasterPictureBox_RasterPictureBox()
Dim form As MyForm1 = New MyForm1()
form.ShowDialog()
End Sub
Private Class MyForm1 : Inherits Form
Private thePictureBox As RasterPictureBox
Public Sub New()
' Create the raster PictureBox
thePictureBox = New RasterPictureBox()
thePictureBox.Dock = DockStyle.Fill
thePictureBox.BorderStyle = BorderStyle.Fixed3D
thePictureBox.UseDpi = False
' Set the paint properties
Dim p As RasterPaintProperties = New RasterPaintProperties()
p.PaintDisplayMode = RasterPaintDisplayModeFlags.Bicubic
p.PaintEngine = RasterPaintEngine.GdiPlus
p.UsePaintPalette = True
thePictureBox.PaintProperties = p
Controls.Add(thePictureBox)
thePictureBox.BringToFront()
' load an image into the viewer
Dim codecs As RasterCodecs = New RasterCodecs()
thePictureBox.Image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "eye.gif"))
codecs.Dispose()
Text = String.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode)
AddHandler thePictureBox.DoubleClick, AddressOf thePictureBox_DoubleClick
End Sub
Private Sub thePictureBox_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
Select Case thePictureBox.SizeMode
Case RasterPictureBoxSizeMode.Normal
thePictureBox.SizeMode = RasterPictureBoxSizeMode.StretchImage
Case RasterPictureBoxSizeMode.StretchImage
thePictureBox.SizeMode = RasterPictureBoxSizeMode.Fit
Case RasterPictureBoxSizeMode.Fit
thePictureBox.SizeMode = RasterPictureBoxSizeMode.AutoSize
Case RasterPictureBoxSizeMode.AutoSize
thePictureBox.SizeMode = RasterPictureBoxSizeMode.CenterImage
Case RasterPictureBoxSizeMode.CenterImage
thePictureBox.SizeMode = RasterPictureBoxSizeMode.Normal
End Select
Text = String.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode)
MyBase.OnDoubleClick(e)
End Sub
End Class
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools.WinForms;
using Leadtools;
using Leadtools.Codecs;
using Leadtools.Drawing;
public void RasterPictureBox_RasterPictureBox()
{
MyForm1 form = new MyForm1();
form.ShowDialog();
}
class MyForm1 : Form
{
RasterPictureBox thePictureBox;
public MyForm1()
{
// Create the raster PictureBox
thePictureBox = new RasterPictureBox();
thePictureBox.Dock = DockStyle.Fill;
thePictureBox.BorderStyle = BorderStyle.Fixed3D;
thePictureBox.UseDpi = false;
// Set the paint properties
RasterPaintProperties p = new RasterPaintProperties();
p.PaintDisplayMode = RasterPaintDisplayModeFlags.Bicubic;
p.PaintEngine = RasterPaintEngine.GdiPlus;
p.UsePaintPalette = true;
thePictureBox.PaintProperties = p;
Controls.Add(thePictureBox);
thePictureBox.BringToFront();
// load an image into the viewer
RasterCodecs codecs = new RasterCodecs();
thePictureBox.Image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir,"eye.gif"));
codecs.Dispose();
Text = string.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode);
thePictureBox.DoubleClick += new EventHandler(thePictureBox_DoubleClick);
}
void thePictureBox_DoubleClick(object sender, EventArgs e)
{
switch (thePictureBox.SizeMode)
{
case RasterPictureBoxSizeMode.Normal:
thePictureBox.SizeMode = RasterPictureBoxSizeMode.StretchImage;
break;
case RasterPictureBoxSizeMode.StretchImage:
thePictureBox.SizeMode = RasterPictureBoxSizeMode.Fit;
break;
case RasterPictureBoxSizeMode.Fit:
thePictureBox.SizeMode = RasterPictureBoxSizeMode.AutoSize;
break;
case RasterPictureBoxSizeMode.AutoSize:
thePictureBox.SizeMode = RasterPictureBoxSizeMode.CenterImage;
break;
case RasterPictureBoxSizeMode.CenterImage:
thePictureBox.SizeMode = RasterPictureBoxSizeMode.Normal;
break;
}
Text = string.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode);
base.OnDoubleClick(e);
}
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}