ايران ويج

سلام.
تو ویبی 2 تا کنترل به نام های shape و line تو جعبه ابزار بود. ولی تو دات نت این ابزار ها موجود نیست. من چطور میتونم شیپ و لاین ایجاد کنم؟

توی دات نت باید با +GDI واسه ترسیم اشکال کار کنی البته یه کنترل جالب دیدم که همین کار رو کپسوله میکنه تو دات نت :

http://blogs.vbcity.com/mcintyre/archive.../8760.aspx

از MSDN :
دو روش برای کشیدن خط:

کد php: 
' Visual Basic 2005
' Using Label controls.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Line1 As New System.Windows.Forms.Label
    Dim Line2 As New System.Windows.Forms.Label
    ' Draw a horizontal line 14 pixels from the top of the form.
    Line1.Location = New System.Drawing.Point(0, 14)
    Line1.Size = New System.Drawing.Size(Me.Width, 1)
    Line1.BorderStyle = BorderStyle.None
    Line1.BackColor = System.Drawing.Color.Red
    Line1.Text = ""
    Controls.Add(Line1)
    ' Draw a vertical line 14 pixels from the left of the form.
    Line2.Location = New System.Drawing.Point(14, 0)
    Line2.Size = New System.Drawing.Size(1, Me.Height)
    Line2.BorderStyle = BorderStyle.None
    Line2.BackColor = System.Drawing.Color.Blue
    Line2.Text = ""
    Controls.Add(Line2)
End Sub 

کد php: 
' Visual Basic 2005
Private Sub FormPaint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a diagonal line from the top left to the lower right.
    e.Graphics.DrawLine(Pens.Black, 0, 0, Me.ClientSize.Width, _
    Me.ClientSize.Height)
End Sub 

و دو روش برای رسم شکل:
اولی فقط مربع و مستطیل

کد php: 
' Visual Basic 2005
' Using a Label control
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
    Dim Shape1 As New System.Windows.Forms.Label
    ' Show a solid red rectangle 14 pixels from the top left.
    Shape1.Location = New System.Drawing.Point(14, 14)
    Shape1.Size = New System.Drawing.Size(200, 100)
    Shape1.BorderStyle = BorderStyle.None
    Shape1.BackColor = System.Drawing.Color.Red
    Shape1.Text = ""
    Controls.Add(Shape1)
End Sub 

کد php: 
' Visual Basic 2005
Private Sub Form3_Paint(ByVal sender As Object, ByVal e As _
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a 70 pixel diameter red circle.
    e.Graphics.DrawEllipse(Pens.Red, 0, 0, 70, 70)
End Sub 

ولی خداییش بعضی وقتا این MSDN چه روشایی پیشنهاد میده.

سلام.
ممد لینکتو هر کاری کردم باز نشد. میشه فایل رو آپ کنی.

http://www.microsoft.com/downloads/detai...laylang=en

Payman62

Mamad2003

ajlajlajl

Payman62

Mamad2003