+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الرجاء تحويل مشروع من #c الى فيجوال (/showthread.php?tid=14296)
الصفحات:
1
2
الرجاء تحويل مشروع من #c الى فيجوال - samira2013 - 02-01-16
السلام عليكم
لدي مشروع نزلته من النت و احتاجه في برامجي و لكنه بلغة سي شارب
و انا لا اعرف هذه اللغة
حاولت تحويله و اجهتني عقبات
او ممكن مشروع مشابه بلغة فيجوال بيسك
وظيفة المشروع الرسم و التعديل عليه
و جزاكم الله خيرا
RE: الرجاء تحويل مشروع من #c الى فيجوال - sami2015 - 02-01-16
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
RE: الرجاء تحويل مشروع من #c الى فيجوال - samira2013 - 02-01-16
جزاكم الله خيرا
اريد المشروع كامل بالفيجوال و ليس الكود
RE: الرجاء تحويل مشروع من #c الى فيجوال - م.أحمد الدسوقى - 02-01-16
تفضلى عزيزتى
http://www.developerfusion.com/tools/convert/csharp-to-vb/
http://converter.telerik.com/
RE: الرجاء تحويل مشروع من #c الى فيجوال - الماجيك مسعد - 02-01-16
اتفضلى تم تحويل المشروع بالكامل كما طلبتى
http://elmagek.net/up/do.php?id=59
RE: الرجاء تحويل مشروع من #c الى فيجوال - samira2013 - 02-01-16
جزاكم الله خيرا
البرنامج لايعمل ...
RE: الرجاء تحويل مشروع من #c الى فيجوال - zinom - 04-01-16
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اللهم صلي علي اشرف الخلق نبي الرحمه
وبارك عل اله وصحابته الكرام والتابعين
والحقنا بهم في جنات النعيم
_ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ــ ــ ـ ـ ـ
ما كامل إلا محمد (صلي)
الاخوه الكرام
تقبلو فائق احترامي
الاخت الكريمه
شرح من جهازي للمشروع المرفق
المشروع بالاسفل بالفيجوال بيزك
RE: الرجاء تحويل مشروع من #c الى فيجوال - samira2013 - 07-01-16
جزاكم الله خيرا سيد ZINOM البرنامج يعمل تمام
ممكن لو سمحت اضافة رسم POLONG للبرنامج
RE: الرجاء تحويل مشروع من #c الى فيجوال - zinom - 10-01-16
(07-01-16, 03:48 PM)samira2013 كتب :جزاكم الله خيرا سيد ZINOM البرنامج يعمل تمامممكن لو سمحت اضافة رسم POLONG للبرنامج
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اللهم صلي علي اشرف الخلق نبي الرحمه
وبارك عل اله وصحابته الكرام والتابعين
والحقنا بهم في جنات النعيم
_ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ــ ــ ـ ـ ـ
وجزاكم المثل اختي الكريم
حضرتك تقصدي polygon
______________________________________
في بعض الاحيان نكون ناقلين فكلنا طلاب علم ولا عيب
هذا المثال بعد التحويل الي الفيجوال بيزك
وهذا شرح من جهازي
بمشيئة الله يفي بالغرض ويمكنك تعلم الكثير منه
RE: الرجاء تحويل مشروع من #c الى فيجوال - samira2013 - 13-01-16
جزاكم الله خيرا
اقصد شكل مكون مجموعة خطوط مثل بولي لاين في الاتوكاد معرف باحداثيات
لو فيه مجال يرسم على panal