Help for DRAWRECTANGLE

[Cristian]

Hi.
I've made so:

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim GR As Graphics = Me.CreateGraphics

GR.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

End Class

But when the program was executed I saw only the form!!
Please Help Me
Bye
Cris

[Armin Zingler]

"Cristian" <cr*********@libero.it> schrieb

Hi.
I've made so:

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load

Dim GR As Graphics = Me.CreateGraphics

GR.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

End Class

But when the program was executed I saw only the form!!

In Form_Load, the form is not visible yet. Painting on an invisible Form
does not makes sense. On the other side, you don't paint if it is visible.
To do this, handle the Paint event.

Background and basics:
http://msdn.microsoft.com/library/en...tdraw_8alz.asp

http://msdn.microsoft.com/library/en...tdraw_4k6d.asp

http://msdn.microsoft.com/library/en...tdraw_1xd1.asp

(The Paint event is raised whenever the Form receives a WM_PAINT Message).
Armin

[Ken Tucker [MVP]]

Hi,

Never draw in the forms load event it will be erased when the form
paints itself. Use the paint event instead.

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim g As Graphics = e.Graphics

g.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

Ken

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

"Cristian" <cr*********@libero.it> wrote in message
news:t6********************@twister1.libero.it...

Hi.
I've made so:

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim GR As Graphics = Me.CreateGraphics

GR.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

End Class

But when the program was executed I saw only the form!!
Please Help Me
Bye
Cris

[Herfried K. Wagner [MVP]]

"Cristian" <cr*********@libero.it> schrieb:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim GR As Graphics = Me.CreateGraphics

GR.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

End Class

But when the program was executed I saw only the form!!

Add the code to your form's 'Paint' event handler:

\\\
e.Graphics.DrawRectangle(...)
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Cristian]

NO!
OK! I've result.
It's WRONG that is not possible write on invisible form!!!
In ON_LOAD the form is already existent!!
Soo Thank.
Bye

"Cristian" <cr*********@libero.it> ha scritto nel messaggio
news:t6********************@twister1.libero.it...

Hi.
I've made so:

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim GR As Graphics = Me.CreateGraphics

GR.DrawRectangle(Pens.Red, 100, 30, 150, 190)

End Sub

End Class

But when the program was executed I saw only the form!!
Please Help Me
Bye
Cris

[Armin Zingler]

"Cristian" <cr*********@libero.it> schrieb

NO!
OK! I've result.
It's WRONG that is not possible write on invisible form!!!
No, it's TRUE that it is not possible.
In
ON_LOAD the form is already existent!!

Yes, but it is not visible.
Armin