Call sub ERROR

[umitsogut]

Private Sub Form2_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint

Dim g As Graphics = e.Graphics
Dim blackBrush As Brush = Brushes.Black
Dim fillBrush As Brush = Brushes.Gray
Dim whitePen As Pen = Pens.White
Dim format As StringFormat = New StringFormat()
format.Alignment = StringAlignment.Center
format.LineAlignment = StringAlignment.Center

Dim pen As Pen = New Pen(Color.Blue, 4)

'**********************//////// KASA /////////*************************

fillBrush = Brushes.Tomato
pen = New Pen(Color.Black, 3)
'SOL KARE
g.FillPolygon(fillBrush, New PointF() {New PointF(120, 240), New PointF(350, 40), New PointF(350, 340), New PointF(120, 540)})
g.DrawPolygon(pen, New PointF() {New PointF(120, 240), New PointF(350, 40), New PointF(350, 340), New PointF(120, 540)})
'ARKA KARE
g.FillPolygon(fillBrush, New PointF() {New PointF(350, 40), New PointF(650, 40), New PointF(650, 340), New PointF(350, 340)})
g.DrawPolygon(pen, New PointF() {New PointF(350, 40), New PointF(650, 40), New PointF(650, 340), New PointF(350, 340)})
'ALT KARE
g.FillPolygon(fillBrush, New PointF() {New PointF(350, 340), New PointF(647, 340), New PointF(420, 540), New PointF(120, 540)})
g.DrawPolygon(pen, New PointF() {New PointF(350, 340), New PointF(650, 340), New PointF(420, 540), New PointF(120, 540)})


End Sub


'I WANT TO CALL THIS SUB ,PLEASE HELP ME

 

[chrissie1]

depends form where you want to call it. mybase.invalidate perhaps? or controlname.invalidate.

Christiaan Baes
Belgium

"My new site" - Me

 

[umitsogut]

ERROR

Argument not specified for parameter 'e' of 'Private Sub Form2_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs)'


WHAT DOES IT MEAN?

 

[umitsogut]

Form2_Paint.invalidate()

it's true , isn't it ?

 

[earthandfire]

Use the word [tt]Nothing[/tt] for the second parameter - (and [tt]Me[/tt] (presumably you are repainting the current form) for the first)


Hope this helps.

 

[earthandfire]

With your code as written, my previous suggestion won't work. However if you change the first line of your code

from:

[tt]Dim g As Graphics = e.Graphics[/tt]

to:

[tt]Dim g As Graphics = Me.CreateGraphics[/tt]

it should.

Hope this helps.

 

[umitsogut]

please ,earthandfire write as code

 

[earthandfire]

All I have done is to suggest changing one line of your code and suggested a replacement for the line that produced the error message (where ever that is in your code), so I don't really understand your request.

Hope this helps.

 

[umitsogut]

thanks for everything

 

[umitsogut]

this code helped me

 

[umitsogut]

very very very thanks :>

 

[earthandfire]

I'm glad it helped you.

 

[gmmastros]

unitsogut,

I notice that you are new to tek-tips. I encourage you to read this article (faq796-2540), particularly point #4, because it will help you to get the most out of tek-tips.


-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[cjelec]

If you wanted to call the function, you could use:

Form2_Paint(Me, Me.CreateGraphics)

But, Most people use Me.Invalidate() because it will trigger other controls on the form to paint as well, giving better visual results.