رسم شی گرافیکی با کد نویسی

[arsalansalar]

با سلام
دوستان عزیز آیا می شود شکل گرافیکی زیر را با کد نویسی در آورد؟
یعنی یک مستطیل بزرگ که در 4 طرف ن یک مربع و در وسط آن یک مستطیل باشد؟

[رضا عربلو]

بله می شود. در مورد GDI+ تحقیق کنید و فضای نام system.Drawing را بیینید.

[arsalansalar]

دوست عزیزمیشه یک sample به من بدهید؟

[morteza_261]

سلام
این یه نمونه بسیار ساده هست
میتونید ازش الگو بگیرید و با کمی تغییرات چیزی که میخواهید بدست بیاورید..

ایام به کام

[Hajar_Nazari]

سلام
از کدهای زیر هم میتونید استفاده کنید .

Public Class Form1
Dim RcDraw As Rectangle
Dim PenWidth As Integer = 2
Dim redBrush As New SolidBrush(Color.Red)

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawRectangle(New Pen(Color.Blue, PenWidth), RcDraw)
End Sub

Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
If e.X < RcDraw.X Then
RcDraw.Width = RcDraw.X - e.X
RcDraw.Width = e.X
Else
RcDraw.Width = e.X - RcDraw.X
End If
If e.Y < RcDraw.Y Then
RcDraw.Height = RcDraw.Y - e.Y
RcDraw.Y = e.Y
Else
RcDraw.Height = e.Y - RcDraw.Y
End If
Me.Invalidate(RcDraw)

End Sub

Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
RcDraw.X = e.X
RcDraw.Y = e.Y
End Sub
End Class