"James Westgate (Crainiate)" <james@nospam.crainiate.com> wrote in message
news:e8Q3RHhzDHA.2308@TK2MSFTNGP11.phx.gbl...
> Hi James,
>
> What you want to do is create a new Bitmap and then create a Graphics
object
> from the bitmap using the static method graphics.FromImage(Bitmap)
>
> Draw the scanned image using this graphics object and then paint to the
> form, picture box etc using the bitmap.
>
> James
>
>
> --
> Create interactive flowcharts, diagrams and UML models with ERM3 at
> http://www.crainiate.net
>
>
>
> "james" <jjames700ReMoVeMe at earthlink dot net> wrote in message
> news:Oud5uEbzDHA.2060@TK2MSFTNGP10.phx.gbl...
> > I hope I can explain this right. I found some VB.NET code (converted
from
> a
> > C# program) that uses Windows Image Aquisition to scan images from an
> > attached scanner. It only works in Windows 2000 and XP.
> > The code copies the bits from the scanner to an array and then overrides
> the
> > form's paint even and paints the form with the data from the array. If I
> try
> > to copy the Background image of the form to a Bitmap or an Image, I get
a
> > blank image. Is there some way to paint on a Bitmap or Image ? Here is
a
> > bit of the code that does the painting:
> >
> > Protected Overrides Sub OnPaint(ByVal e As
> > System.Windows.Forms.PaintEventArgs)
> >
> > Dim cltrect As Rectangle = ClientRectangle
> >
> > Dim clprect As Rectangle = e.ClipRectangle
> >
> > Dim scrol As Point = AutoScrollPosition
> >
> > Dim realrect As Rectangle = clprect
> >
> > realrect.X -= scrol.X
> >
> > realrect.Y -= scrol.Y
> >
> > Dim brbg As SolidBrush = New SolidBrush(Color.Black)
> >
> > If (realrect.Right > bmprect.Width) Then
> >
> > Dim bgri As Rectangle = clprect
> >
> > Dim ovri As Integer = bmprect.Width - realrect.X
> >
> > If (ovri > 0) Then
> >
> > bgri.X += ovri
> >
> > bgri.Width -= ovri
> >
> > End If
> >
> > e.Graphics.FillRectangle(brbg, bgri)
> >
> > End If
> >
> > If (realrect.Bottom > bmprect.Height) Then
> >
> > Dim bgbo As Rectangle = clprect
> >
> > Dim ovbo As Integer = bmprect.Height - realrect.Y
> >
> > If (ovbo > 0) Then
> >
> > bgbo.Y += ovbo
> >
> > bgbo.Height -= ovbo
> >
> > End If
> >
> > e.Graphics.FillRectangle(brbg, bgbo)
> >
> > End If
> >
> > realrect.Intersect(bmprect)
> >
> > If Not (realrect.IsEmpty) Then
> >
> > Dim bot As Integer = bmprect.Height - realrect.Bottom
> >
> > Dim hdc As IntPtr = e.Graphics.GetHdc()
> >
> > SetDIBitsToDevice(hdc, clprect.X, clprect.Y, realrect.Width,
> > realrect.Height, realrect.X, bot, 0, bmprect.Height, pixptr, bmpptr, 0)
> >
> > e.Graphics.ReleaseHdc(hdc)
> >
> > End If
> >
> > End Sub
> >
> >
> >
> > I have a Module called PassImage with a Global object called: scanImg (
> > like this: Public scanImg as Image)
> >
> > that I can access from any of my other forms in my program. I can scan &
> > save the painted image just fine. But, I would like to be able to copy
the
> > scanned image back to my main form's picturebox, where I can edit it.
> >
> > Any ideas?
> >
> > james
> >
> >
> >
> >
>
>

"james" <jjames700ReMoVeMe at earthlink dot net> wrote in message
news:Oud5uEbzDHA.2060@TK2MSFTNGP10.phx.gbl...
> I hope I can explain this right. I found some VB.NET code (converted from
a
> C# program) that uses Windows Image Aquisition to scan images from an
> attached scanner. It only works in Windows 2000 and XP.
> The code copies the bits from the scanner to an array and then overrides
the
> form's paint even and paints the form with the data from the array. If I
try
> to copy the Background image of the form to a Bitmap or an Image, I get a
> blank image. Is there some way to paint on a Bitmap or Image ? Here is a
> bit of the code that does the painting:
>
> Protected Overrides Sub OnPaint(ByVal e As
> System.Windows.Forms.PaintEventArgs)
>
> Dim cltrect As Rectangle = ClientRectangle
>
> Dim clprect As Rectangle = e.ClipRectangle
>
> Dim scrol As Point = AutoScrollPosition
>
> Dim realrect As Rectangle = clprect
>
> realrect.X -= scrol.X
>
> realrect.Y -= scrol.Y
>
> Dim brbg As SolidBrush = New SolidBrush(Color.Black)
>
> If (realrect.Right > bmprect.Width) Then
>
> Dim bgri As Rectangle = clprect
>
> Dim ovri As Integer = bmprect.Width - realrect.X
>
> If (ovri > 0) Then
>
> bgri.X += ovri
>
> bgri.Width -= ovri
>
> End If
>
> e.Graphics.FillRectangle(brbg, bgri)
>
> End If
>
> If (realrect.Bottom > bmprect.Height) Then
>
> Dim bgbo As Rectangle = clprect
>
> Dim ovbo As Integer = bmprect.Height - realrect.Y
>
> If (ovbo > 0) Then
>
> bgbo.Y += ovbo
>
> bgbo.Height -= ovbo
>
> End If
>
> e.Graphics.FillRectangle(brbg, bgbo)
>
> End If
>
> realrect.Intersect(bmprect)
>
> If Not (realrect.IsEmpty) Then
>
> Dim bot As Integer = bmprect.Height - realrect.Bottom
>
> Dim hdc As IntPtr = e.Graphics.GetHdc()
>
> SetDIBitsToDevice(hdc, clprect.X, clprect.Y, realrect.Width,
> realrect.Height, realrect.X, bot, 0, bmprect.Height, pixptr, bmpptr, 0)
>
> e.Graphics.ReleaseHdc(hdc)
>
> End If
>
> End Sub
>
>
>
> I have a Module called PassImage with a Global object called: scanImg (
> like this: Public scanImg as Image)
>
> that I can access from any of my other forms in my program. I can scan &
> save the painted image just fine. But, I would like to be able to copy the
> scanned image back to my main form's picturebox, where I can edit it.
>
> Any ideas?
>
> james
>
>
>
>