VB.NET

VB.NET RSS

simple paint similar to MS Paint.. I have qustions!

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Apr 2007

Posts: 4

Reputation: Nana.vb is an unknown quantity at this point

Solved Threads: 0

Nana.vb

Offline

Newbie Poster

simple paint similar to MS Paint.. I have qustions!

Apr 26th, 2007

Hi,

I work with Microsoft Visual Studio 2005.

I'm about to build a simple paint editor similar to MS Paint program.

of course, it has Edit menu, with Undo, Redo, Cut, Copy, Paste, Delete... etc.

I have a problem with Undo and Redo!

How to do them with drawing?

have I use Stack or something like this?

I'm just a beginner and I have no idea

Another question..

For Cut, Paste, Copy and Delete, I need a selection tool same as the one in MS Paint.
Where can I find it? or how to Cut and Paste with out it?

Please, I really need your help

thanx a lot.

Last edited by Nana.vb; Apr 26th, 2007 at 9:05 am.

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

Here is how I did a undo:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Dim UndoStack As New Stack(Of Bitmap)()    'holds the backup images
 
    '==========================================================================
    '   Saves the picture passed
    '==========================================================================
    Private Sub PushUndo(ByVal b As Bitmap)
        UndoStack.Push(b)
        btnUnDo.Visible = True
    End Sub
 
    '==========================================================================
    '   Returns the last picture saved
    '==========================================================================
    Private Function PopUndo() As Bitmap
        If UndoStack.Count = 0 Then
            Return Nothing
            btnUnDo.Visible = False
            Exit Function
        End If
        If UndoStack.Count = 1 Then btnUnDo.Visible = False
        Return UndoStack.Pop
    End Function
    Dim UndoStack As New Stack(Of Bitmap)()    'holds the backup images

    '==========================================================================
    '   Saves the picture passed
    '==========================================================================
    Private Sub PushUndo(ByVal b As Bitmap)
        UndoStack.Push(b)
        btnUnDo.Visible = True
    End Sub

    '==========================================================================
    '   Returns the last picture saved
    '==========================================================================
    Private Function PopUndo() As Bitmap
        If UndoStack.Count = 0 Then
            Return Nothing
            btnUnDo.Visible = False
            Exit Function
        End If
        If UndoStack.Count = 1 Then btnUnDo.Visible = False
        Return UndoStack.Pop
    End Function

To save a bitmap:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
'save the current picture for undo
        PushUndo(Display.Image.Clone)
'save the current picture for undo
        PushUndo(Display.Image.Clone)

To undo:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    '==========================================================================
    '  pops the last bitmat off the stack and places it in the display
    '==========================================================================
    Private Sub btnUnDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnDo.Click
        Dim bmp As Bitmap
        bmp = PopUndo()
        If bmp IsNot Nothing Then
            Display.Image = bmp
        End If
    End Sub
    '==========================================================================
    '  pops the last bitmat off the stack and places it in the display
    '==========================================================================
    Private Sub btnUnDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnDo.Click
        Dim bmp As Bitmap
        bmp = PopUndo()
        If bmp IsNot Nothing Then
            Display.Image = bmp
        End If
    End Sub

The second part I am going to have to find. I'll get back at you.

•

Join Date: Apr 2007

Posts: 4

Reputation: Nana.vb is an unknown quantity at this point

Solved Threads: 0

Nana.vb

Offline

Newbie Poster

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

waynespangler

thank u soooo mutch ..

I have a good idea now : )

thanks again

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

After all this time I finally found my bug in this routine. The undo button would never go off and I couldn't figure out why. Can you see it?

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        If UndoStack.Count = 0 Then
            Return Nothing
            btnUnDo.Visible = False
            Exit Function
        End If
        If UndoStack.Count = 0 Then
            Return Nothing
            btnUnDo.Visible = False
            Exit Function
        End If

In vb net a return exits the routine immediatlly so in the above btnUnDo.visible=False never got executed and neither did Exit Function. Because it was exiting I figured it was working right. Now I know why not.
It should be:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        If UndoStack.Count = 0 Then
            btnUnDo.Visible = False
            Return Nothing
      End If
        If UndoStack.Count = 0 Then
            btnUnDo.Visible = False
            Return Nothing
      End If

•

Join Date: Apr 2005

Posts: 16,142

Reputation: jbennet is a name known to all

Solved Threads: 531

jbennet

Offline

Moderator

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

What are you using for the drawing, GDI+ ?

If i am helpful, please give me reputation points.

•

Join Date: Apr 2007

Posts: 4

Reputation: Nana.vb is an unknown quantity at this point

Solved Threads: 0

Nana.vb

Offline

Newbie Poster

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

waynespangler..

ohhh .. yes that's right : )

thanx alooot

jbennet..

The drawing tool bar contains:

Lines (in different styles : regular, dashed and thick)
curves
Shapes: rectangle, circle and oval.
Pen.
Brush ( in different styles- HatchBrush, LinearGradientBrush, PathGradientBrush and TextureBrush)
Text.
Fill (with color or pattern)

and I drow on picture box

thank u : )

Last edited by Nana.vb; Apr 27th, 2007 at 12:06 pm.

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: simple paint similar to MS Paint.. I have qustions!

Apr 27th, 2007

Here is some samples of cut, copy and paste. They are not as effecient as they should be, so that is up to you. Post if you have any more questions.

Attached Files

Rubberband.zip (642.9 KB, 143 views)

•

Join Date: Apr 2007

Posts: 4

Reputation: Nana.vb is an unknown quantity at this point

Solved Threads: 0

Nana.vb

Offline

Newbie Poster

Re: simple paint similar to MS Paint.. I have qustions!

May 15th, 2007

waynespangler..

thnx alooot : )

I did my project, and it's perfect now

thnx again

•

Join Date: May 2007

Posts: 3

Reputation: WoW7787 is an unknown quantity at this point

Solved Threads: 0

WoW7787

Offline

Newbie Poster

Re: simple paint similar to MS Paint.. I have qustions!

May 18th, 2007

Hi

please i want to ask about this statment

PushUndo(Display.Image.Clone)

Display is't the surface i draw on it??

i use a picture box for drawing and i don't want just the back ground image to be save

what about the drawings like lines,curves...etc??

please i need your healp

see ya