[samira2013]

السلام عليكم
لدي مشروع نزلته من النت و احتاجه في برامجي و لكنه بلغة سي شارب
و انا لا اعرف هذه اللغة
حاولت تحويله و اجهتني عقبات
او ممكن مشروع مشابه بلغة فيجوال بيسك
وظيفة المشروع الرسم و التعديل عليه
و جزاكم الله خيرا

[sami2015]

PHP كود :

Imports ShapeEditorLibrary.Shapes

Public Class Form1

    Private Sub AddShape(ByVal s As Shape)
        Canvas1.Shapes.Add(s)
        Canvas1.Invalidate()
    End Sub

    Private Sub addRectangleButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addRectangleButton.Click
        Me.AddShape(New RectangleShape(Point.Empty))
    End Sub

    Private Sub addEllipseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addEllipseButton.Click
        Me.AddShape(New EllipseShape(Point.Empty))
    End Sub

    Private Sub addTriangleButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addTriangleButton.Click
        Me.AddShape(New TriangleShape(Point.Empty))
    End Sub

    Private Sub Canvas1_ShapesCollectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Canvas1.ShapesCollectionChanged
        ShapesComboBox1.Items.Clear()
        ShapesComboBox1.Items.AddRange(Canvas1.Shapes.ToArray())
    End Sub

    Private Sub Canvas1_SelectedShapeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Canvas1.SelectedShapeChanged
        Dim s As Shape = Canvas1.SelectedShape
        ShapesComboBox1.SelectedItem = s
        PropertyGrid1.SelectedObject = s
    End Sub

    Private Sub ShapesComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShapesComboBox1.SelectedIndexChanged
        Dim s As Shape = ShapesComboBox1.SelectedItem
        If s IsNot Nothing Then
            Canvas1.SetSelection(s)
        Else
            Canvas1.SetSelection(Nothing)
        End If
    End Sub

End Class 


[samira2013]

جزاكم الله خيرا
اريد المشروع كامل بالفيجوال و ليس الكود

[م.أحمد الدسوقى]

تفضلى عزيزتى
http://www.developerfusion.com/tools/con...arp-to-vb/

http://converter.telerik.com/

[الماجيك مسعد]

اتفضلى تم تحويل المشروع بالكامل كما طلبتى

http://elmagek.net/up/do.php?id=59

[samira2013]

جزاكم الله خيرا

---

البرنامج لايعمل ...

[zinom]

بسم الله الرحمن الرحيم 

         السلام عليكم ورحمة الله وبركاته

       اللهم صلي علي اشرف الخلق نبي الرحمه

       وبارك عل اله  وصحابته الكرام والتابعين   

 والحقنا بهم في جنات النعيم

_ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ــ  ــ ـ ـ ـ 

ما كامل إلا محمد (صلي)

الاخوه الكرام 

تقبلو فائق احترامي 

الاخت الكريمه 

شرح من جهازي للمشروع المرفق

 

المشروع بالاسفل بالفيجوال بيزك 

 

[samira2013]

جزاكم الله خيرا سيد ZINOM البرنامج يعمل تمام
ممكن لو سمحت اضافة رسم POLONG للبرنامج

[zinom]

(07-01-16, 03:48 PM)samira2013 كتب :

جزاكم الله خيرا سيد ZINOM  البرنامج يعمل تمام

ممكن لو سمحت اضافة رسم POLONG للبرنامج

بسم الله الرحمن الرحيم 

         السلام عليكم ورحمة الله وبركاته

       اللهم صلي علي اشرف الخلق نبي الرحمه

       وبارك عل اله  وصحابته الكرام والتابعين   

 والحقنا بهم في جنات النعيم

_ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ــ  ــ ـ ـ ـ 

 وجزاكم المثل اختي الكريم 

حضرتك تقصدي polygon  

______________________________________

 

في بعض الاحيان نكون ناقلين فكلنا طلاب علم ولا عيب

موقع النقل  

هذا المثال بعد التحويل الي الفيجوال بيزك 

وهذا شرح من جهازي  

بمشيئة الله يفي بالغرض  ويمكنك تعلم الكثير منه 

[samira2013]

جزاكم الله خيرا
اقصد شكل مكون مجموعة خطوط مثل بولي لاين في الاتوكاد معرف باحداثيات
لو فيه مجال يرسم على panal