Painting when Button gets klicked

[Stefan Richter]

I want to paint some bars, as soon as a button get klicked.
My Paint Method has this signature:
Private Sub PaintChart(ByVa l sender As Object, ByVal e As PaintEventArgs,
ByVal insolvent As Decimal, ByVal days30 As Decimal, ByVal days60 As
Decimal, ByVal days90 As Decimal, ByVal current As Decimal)

Means it needs to get a PaintEventArgs to work.

My Button Click Method has this signature:
Private Sub view_something_ Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles view_something. Click

In this method, I want to call my PaintChart method, because only then I
know all local parameters.
(okay, one solution would be to make all parameters global, but I doubt that
that was any good...)

PaintChart(send er, PaintEventArgs , insolvent, days30, days60, days90,
current)

Now the problem is, when I add the PaintEventArgs Event to my Click method,
then the signature doesnt fit anymore.

Have I got to do my own Handler, or how can that be solved???
(And how do I make one, if necessary)

Thanks,

Stefan

[Ken Tucker [MVP]]

Hi,

Create a graphics object for what you want to draw on in the click
event. In your PaintGraph procedure pass a graphics object instead of a
painteventargs. Here is a simple example on how draw bars when a user
clicks on a button.

Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button3.Click
Dim g As Graphics = PictureBox1.Cre ateGraphics

g.FillRectangle (Brushes.Red, 0, 0, 10, 50)
g.FillRectangle (Brushes.Blue, 10, 0, 10, 50)
End Sub

Ken
-------------------
"Stefan Richter" <sp**@spammenot .com> wrote in message
news:c7******** ***@otis.netspa ce.net.au...

I want to paint some bars, as soon as a button get klicked.
My Paint Method has this signature:
Private Sub PaintChart(ByVa l sender As Object, ByVal e As PaintEventArgs,
ByVal insolvent As Decimal, ByVal days30 As Decimal, ByVal days60 As
Decimal, ByVal days90 As Decimal, ByVal current As Decimal)

Means it needs to get a PaintEventArgs to work.

My Button Click Method has this signature:
Private Sub view_something_ Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles view_something. Click

In this method, I want to call my PaintChart method, because only then I
know all local parameters.
(okay, one solution would be to make all parameters global, but I doubt
that
that was any good...)

PaintChart(send er, PaintEventArgs , insolvent, days30, days60, days90,
current)

Now the problem is, when I add the PaintEventArgs Event to my Click
method,
then the signature doesnt fit anymore.

Have I got to do my own Handler, or how can that be solved???
(And how do I make one, if necessary)

Thanks,

Stefan

[Stefan Richter]

What is PictureBox1.Cre ateGraphics?

And, when I created this Graphic, how could I forward it to my method again?
Cause the paint method that reacts on the PaintEventArgs can't have extra
arguments,
because otherwise the necessary signature for this event doesn't fit
anymore.

Sorry, Iam really confused by this stuff!

Maybe I should show you, what I want to do:

OnClick {

CalculateCoordi nates()
DrawBars(Coordi nates)

}
CalculateCoordi nates{
.........
.........
}

DrawBars{
.........
.........
}
Thx,

Stefan

[Ken Tucker [MVP]]

Hi,

The graphics object is the class the handles drawing on a form or
control. Try something like this.
Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button3.Click
Dim g As Graphics = PictureBox1.Cre ateGraphics
PaintChart(g, 0, 0, 0, 0, 0)
End Sub

Private Sub PaintChart(ByVa l g As Graphics, ByVal insolvent As Decimal,
ByVal days30 As Decimal, ByVal days60 As Decimal, ByVal days90 As Decimal,
ByVal current As Decimal)
g.FillEllipse(B rushes.Red, 10, 10, 100, 100)
g.FillRectangle (Brushes.Red, 0, 0, 10, 50)
g.FillRectangle (Brushes.Blue, 10, 0, 10, 50)

End Sub

Ken
---------------------------
"Stefan Richter" <sp**@spammenot .com> wrote in message
news:c7******** ***@otis.netspa ce.net.au...

What is PictureBox1.Cre ateGraphics?

And, when I created this Graphic, how could I forward it to my method
again?
Cause the paint method that reacts on the PaintEventArgs can't have extra
arguments,
because otherwise the necessary signature for this event doesn't fit
anymore.

Sorry, Iam really confused by this stuff!

Maybe I should show you, what I want to do:

OnClick {

CalculateCoordi nates()
DrawBars(Coordi nates)

}
CalculateCoordi nates{
........
........
}

DrawBars{
........
........
}
Thx,

Stefan

[Armin Zingler]

"Stefan Richter" <sp**@spammenot .com> schrieb

What is PictureBox1.Cre ateGraphics?
It is a call of the CreateGraphics method of the Picturebox. Press <F1> for
more.
And, when I created this Graphic, how could I forward it to my method
again? Cause the paint method that reacts on the PaintEventArgs can't
have extra arguments,
because otherwise the necessary signature for this event doesn't
fit anymore.

Write a procedure. The procedure does the painting. One argument of the
procedure is a Graphics object. Call the procedure in the paint event. Pass
e.graphics to the procedure. In your click handler, call the proecedure,
too. As you don't have a graphics object there, you have to create it by
calling Creategraphics. Similar to Ken's answer:

Dim g As Graphics

g = PictureBox1.Cre ateGraphics
try
YourPaintingPro cedure(g)
finally
g.dispose
end try

sub YourPaintingPro cedure(byval g as graphics)
'Paint on g here
end sub

Instead of calling the procedure in the click event, you can simply call
Picturebox1.inv alidate. This invalidates the picturebox' content. See
http://msdn.microsoft.com/library/en...tdraw_7zn2.asp
and the following topics.

--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Stefan Richter]

Sorry, but that doesn't work.
I guess it's because MyBase.Paint does not repaint the Object over and over
again.

Dim PictureBox1 As New System.Windows. Forms.PictureBo x

I tried:

Private Sub view_crs_mth_bt n_Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles view_crs_mth_bt n.Click

.......

....

Dim g As Graphics = PictureBox1.Cre ateGraphics

g.FillRectangle (Brushes.Red, 0, 0, 10, 50)

g.FillRectangle (Brushes.Blue, 10, 0, 10, 50)

..............

End Sub

[Stefan Richter]

Okay, so you want me to write a paint procedure.
-----------
Private Sub PaintChart(ByVa l e As Graphics, ByVal value1 As Integer, ByVal
value2 As Integer )

e.FillRectangle (Brushes.White, 530, value1 , 35, 150)
e.FillRectangle (Brushes.Lime, 600, value2, 35, 75)

End Sub

-------------
Then you want me to write a paint event:
Private Sub PaintChart2(ByV al sender As Object, ByVal e As PaintEventArgs)
Handles MyBase.Paint

Dim g As Graphics = e.Graphics

PaintChart(g, 0, 0)

End Sub

------------

How can I know value1 and value2 in the paint event????

---------

Private Sub view_crs_mth_bt n_Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles view_crs_mth_bt n.Click

Dim value1 As Integer

Dim value2 as Integer

.....

Dim g As Graphics

Dim PictureBox1 As New System.Windows. Forms.PictureBo x

g = PictureBox1.Cre ateGraphics

PaintChart(g, value1, value2)

-----------
So value1 and value2 have to be global for the whole class then????
And if so, how can I hide the Graphics again or better how can I stop the
Paint
method to try to paint it again???

thx,

Stefan

[Stefan Richter]

Doesn't seem to work, as a method that handles MyBase.Paint is missing.

Cheers,

Stefan

[Armin Zingler]

"Stefan Richter" <sp**@spammenot .com> schrieb

Okay, so you want me to write a paint procedure.
-----------
Private Sub PaintChart(ByVa l e As Graphics, ByVal value1 As Integer,
ByVal value2 As Integer )

e.FillRectangle (Brushes.White, 530, value1 , 35, 150)
e.FillRectangle (Brushes.Lime, 600, value2, 35, 75)

End Sub

-------------
Then you want me to write a paint event:
Private Sub PaintChart2(ByV al sender As Object, ByVal e As
PaintEventArgs) Handles MyBase.Paint

Dim g As Graphics = e.Graphics

PaintChart(g, 0, 0)

End Sub

------------

How can I know value1 and value2 in the paint event????

---------

Private Sub view_crs_mth_bt n_Click(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles view_crs_mth_bt n.Click

Dim value1 As Integer

Dim value2 as Integer

....

Dim g As Graphics

Dim PictureBox1 As New System.Windows. Forms.PictureBo x

g = PictureBox1.Cre ateGraphics

PaintChart(g, value1, value2)

-----------
So value1 and value2 have to be global for the whole class
then????
Yes
And if so, how can I hide the Graphics again or better how
can I stop the Paint
method to try to paint it again???

Why stop it? The Paint event is only raised if it is required.
In general, you must remember what you want to display in the control.
Whenever the data influencing the painting changes, or whenever Windows
wants you to repaint, you must paint again.
--
Armin