كيف أملىء مساحة محددة بلون الفرشاة

شوف المثال دة فية تقريبا كل حاجة عن GDI :D

بالتوفيق ,,,,,,

howto_net_drawing_framework.zip

و لو :lol:

إذا كنت تريد ملأ الفراغ بين عدة نقط فعليك بـ Graphics.FillPolygon

السلام عليكم

اهلا وسهلا بعودتك اخى اياس :D

انظر الكود التالى فهو يقوم بملء مثلث

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim gp As GraphicsPath = New GraphicsPath
        Dim ptArray As PointF() = {New PointF(20.0F, 20.0F), New PointF(20.0F, 200.0F), New PointF(200.0F, 200.0F), New PointF(20.0F, 20.0F)}

        gp.AddLines(ptArray)
        e.Graphics.FillPath(Brushes.Aqua, gp)
    End Sub

شوف المثال دة كمان مثال على سريع كدة :D

اولا قم بتعريف المتغيرات الاتية

Dim b As Boolean = False
   Dim ox As Integer
 Dim w As Integer
   Dim oy As Integer

ثم هذا الكود فى الحدث Form_mousemove

 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
       Dim m As MouseButtons = e.Button
       If (m = MouseButtons.Left) Then
           If (b = True) Then
               Dim g As Graphics = Me.CreateGraphics
               Dim p As New Pen(ColorDialog1.Color, w)
               g.DrawLine(p, ox, oy, e.X, e.Y)
               ox = e.X
               oy = e.Y
           Else
               ox = e.X
               oy = e.Y
               b = True
           End If
       Else
           b = False
       End If
   End Sub

بالتوفيق ,,,,,,,,

يا سلام عليكو يا شباب ..و الله اشتقنالكم..كفاح و مؤيد وSolo (على فكرة مبروك الأخير الإشراف)..:lol:

سوف أطبق الأمثلة غدا لأني من شطارتي عملت ReInstall للنظام و نسيت أن ال.net بدو 3 ساعات تنزيل ..ألف شكر..