تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لجعل الفورم على شكل قلب او دائرة مفرغة
#1
كاتب الموضوع : egyption-coder


كود :
[color=#0000ff]Private[SIZE=2]Sub[/SIZE][/color][SIZE=2] Form1_Load([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2][color=#0000ff]MyBase[/color][/SIZE][SIZE=2].Load
[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] path [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Drawing2D.GraphicsPath [/SIZE][SIZE=2][COLOR=#008000]'هذا هو المتغير
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'القلب كبداية
[/COLOR][/SIZE][SIZE=2]path.AddArc(70, 10, 150, 150, 135, 195) [/SIZE][SIZE=2][COLOR=#008000]'نرسم قطاع كالأتى الأحداثى اكس ثم واى ثم العرض ثم الطول ثم زاوية البداية ثم النهاية
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'القطاع السابق هو القطاع اليمين بالنسبة للفورم

[/COLOR][/SIZE][SIZE=2]path.AddArc(200, 10, 150, 150, 210, 195) [/SIZE][SIZE=2][COLOR=#008000]'و ده القطاع الأيسر بنفس الأسلوب
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'الثلاث خطوط القادمة تساوى المثلث السفلى
[/COLOR][/SIZE][SIZE=2]path.AddLine(92, 139, 210, 270) [/SIZE][SIZE=2][COLOR=#008000]'احداثى البداية ثم احداثى نهاية الخط
[/COLOR][/SIZE][SIZE=2]path.AddLine(327, 139, 210, 270)
path.AddLine(327, 139, 92, 139)
[/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Region = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Region(path) [/SIZE][SIZE=2][COLOR=#008000]'تخصيص المتغير الخاص بالأمتداد الرسومى للمنطقة الظاهرة
[/COLOR][/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE]
الدائرة


كود :
[color=#0000ff]Private[SIZE=2]Sub[/SIZE][/color][SIZE=2] MenuItem2_Click([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2] MenuItem2.Click
[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] path [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Drawing2D.GraphicsPath [/SIZE][SIZE=2][COLOR=#008000]'المتغير
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'لعمل الدائرة المفرغة
[/COLOR][/SIZE][SIZE=2]path.AddEllipse(85, 0, 250, 250) [/SIZE][SIZE=2][COLOR=#008000]'الأحداثى ثم طول و عرض المستطيل المحيط بالدائرة
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]''path.AddEllipse(135, 50, 150, 150)
[/COLOR][/SIZE][SIZE=2]path.AddEllipse(160, 75, 100, 100) [/SIZE][SIZE=2][COLOR=#008000]'هنا تتقاطع الدائرة الأولى مع الثانية فيحدث التفريغ
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Region = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Region(path) [/SIZE][SIZE=2][COLOR=#008000]'تخصيص المتغير الخاص بالأمتداد الرسومى للمنطقة الظاهرة
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].BackColor = Color.Gray
[/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][COLOR=#0000ff]Sub
[/COLOR][/SIZE]
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لجعل أداة النص لا تقبل إلا الأرقام sooriaty03 11 7,667 29-05-16, 12:59 AM
آخر رد: CLARO
  مثال تحريك الفورم من غير اطار RaggiTech 0 2,689 17-10-12, 10:00 PM
آخر رد: RaggiTech
  منع أغلاق الفورم عن طريق(×)وأغلاقه بطريقة جميلة RaggiTech 0 2,781 17-10-12, 09:02 PM
آخر رد: RaggiTech
  مثال للحفاظ على تنسيق الاداوت اثناء تكبير الفورم في الفيجول دوت نت 2008 RaggiTech 0 3,488 17-10-12, 08:40 PM
آخر رد: RaggiTech
  اغلاق الفورم بطريقة جميلة RaggiTech 0 2,593 17-10-12, 08:22 PM
آخر رد: RaggiTech
  الفورم الدائري RaggiTech 0 4,053 17-10-12, 08:01 PM
آخر رد: RaggiTech
  للمبتدئين كيفية صنع فورم على شكل قلب او دائرة او متقاطعات او ما شابه مثال مع شرح مبسط RaggiTech 0 2,530 17-10-12, 07:15 PM
آخر رد: RaggiTech
  كيفية رسم صورة متحركة على الفورم بدون تايمر RaggiTech 0 2,488 17-10-12, 07:11 PM
آخر رد: RaggiTech
  كيف تشكل الفورم طبقا لأى صورة تريدها بدون اى عناء اعتمادا على صورة لديك RaggiTech 0 2,323 17-10-12, 07:09 PM
آخر رد: RaggiTech
  كود لجعل الصورة تتلآئم تلقائيا مع النموزج RaggiTech 0 2,140 17-10-12, 07:08 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم