can you convert this VB6 sample code

[ZaidGS]

i have a sample code i downloaded sometime ago,
and i need its functionality.
i have a project that uses code snipets from it,
but after i upgraded to .net, it dont work anymore.

the problem is in the biggest problem is the api calls.

can anyone convert this sample into
a functional vb.net sample.

[ZaidGS]

here is the sample attached.

[Pirate]

As a first rule , change all "Long" in the API calls to Integer types .

[ZaidGS]

i know this rule,
the upgrade wizard did that.
but that didnot work.

if you think you can walk around
this trouble, try attaching a working
example of this sample.
(its dont inlude much code,
so guess anyone who knows
how to do this thing, will not
need much time at all)

[VBD]

Change all refrences from "Form1" that are in "Form1" to Me
You need to refer to an instance of a class, not a class. In .NET a form is a class. Next, you can't use the line method. For:
Form1.picture1.line
change to
Me.Picture1.CreateGraphics.DrawLine()
I don' feel like changing that all, but you can probably fix that much.

Also, replace .HDC
with .Handle

This should solve most if not all of your problems

[ZaidGS]

Originally posted by VBD
Next, you can't use the line method. For:
Form1.picture1.line
change to
Me.Picture1.CreateGraphics.DrawLine()

guess the way the .CreatGraphics.DrawLine() is
used seems very tricky, you cannot do a simple
replacement.

btw, the full vb line for the line is:
Form1.Picture1.Line (aX, aY)-(aX + 725, aY + 2.5 * TwipY), vbBlue, BF

can anyone give a .net equivalent ?!?!

[Pirate]

Originally posted by ZaidGS
guess the way the .CreatGraphics.DrawLine() is
used seems very tricky, you cannot do a simple
replacement.

btw, the full vb line for the line is:
Form1.Picture1.Line (aX, aY)-(aX + 725, aY + 2.5 * TwipY), vbBlue, BF

can anyone give a .net equivalent ?!?!

The equivalent is :
Graphcis.DrawLine(.....) .

[ZaidGS]

well, forget about the graphics thing,
i've got it right sometime before
(i once just tried .net, then stopped)
but this bitblt api didnt work at all.

i'v been testing on how to use it:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim srcRect = New Rectangle(50, 50, 100, 100)
        Dim r As Region
        If flip Then
            g.SetClip(New Rectangle(50, 50, 100, 100), Drawing.Drawing2D.CombineMode.Replace)
            g.DrawImage(PictureBox2.Image, 50, 50, srcRect, GraphicsUnit.Pixel)
            'g.DrawImage(PictureBox2.Image, 50, 50, srcRect, GraphicsUnit.Pixel)
            flip = False
        Else
            g.SetClip(New Rectangle(0, 0, 100, 100), Drawing.Drawing2D.CombineMode.Replace)
            g.DrawImage(PictureBox3.Image, 0, 0, srcRect, GraphicsUnit.Pixel)
            'g.DrawImage(PictureBox3.Image, 0, 0, srcRect, GraphicsUnit.Pixel)
            flip = True
        End If
    End Sub

is this code similar to what i should use ?!?!

guess that could only COPY pixcels, not make "AND" and "OR"

also, ive been trying it on my thing, its not working !!

[ZaidGS]

anyone can help further,
or convert code ??

[Pirate]

Originally posted by ZaidGS
anyone can help further,
or convert code ??

Rewrite the code in VB.NET or ask specific questions .