تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
System.Drawing2D
#1
كاتب الموضوع : jafaronly


Imports System.Drawing.Drawing2D
قد لا يثير هذا العنوان اهتمامك كثيراً لكنه يعطيك امكانات كبيرة لتحويل مشروعك الى لوحه فنية
حيث يعطيك امكانية رسم ما تريد رسمه على الفورم
حتى لا يكون حدث ال (form paint) من الاحداث الي لا تسترعي اهتمامك جرب مثلا" ان تضع الكود ادناه في الحدث اعلاه

كود :
Dim m As String
m = "jafaronly@yahoo.com" & vbCrLf
m &= " vb4arab"

Dim graphics_path As New Drawing2D.GraphicsPath
graphics_path.AddString(m, _
New FontFamily("Times New Roman"), CInt(FontStyle.Bold), 40, New Point(10, 10), StringFormat.GenericTypographic)
e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
e.Graphics.FillPath(Brushes.Blue, graphics_path)
e.Graphics.DrawPath(New Pen(Color.Yellow, 2), graphics_path)
حسنا قد لا يهمك كثيرا ان ترسم مجرد نص معين على الفورم
لقد قلنا انك سترسم كل ما تريد رسمه
جرب اذا احببت الكود التالي ودائماً في حدث (form paint)

كود :
Dim x As Integer = 10
Dim y As Integer = 10
Dim wid As Integer = 150
Dim hgt As Integer = 150

Dim cx As Integer = x + wid \ 2
Dim cy As Integer = y + hgt \ 2
Dim r1 As Integer = CInt(wid * 0.5)
Dim r2 As Integer = CInt(hgt * 0.25)
Dim star_pts(9) As Point
For i As Integer = 0 To 9 Step 2
star_pts(i).X = cx + CInt(r1 * Cos(i * PI / 5 - PI / 2))
star_pts(i).Y = cy + CInt(r1 * Sin(i * PI / 5 - PI / 2))
star_pts(i + 1).X = cx + CInt(r2 * Cos((i + 1) * PI / 5 - PI / 2))
star_pts(i + 1).Y = cy + CInt(r2 * Sin((i + 1) * PI / 5 - PI / 2))
Next i
Dim star_path As New GraphicsPath
star_path.AddPolygon(star_pts)
Dim star_brush As New PathGradientBrush(star_pts)
star_brush.CenterColor = Color.Yellow
star_brush.SurroundColors = New Color() { _
Color.YellowGreen, Color.White, _
Color.YellowGreen, Color.White, _
Color.YellowGreen, Color.White, _
Color.YellowGreen, Color.White, _
Color.YellowGreen, Color.White }
e.Graphics.FillPolygon(star_brush, star_pts)
ولكن الكود اعلاه وكما تلاحظ مليئ بالزوايا والعلاقات الرياظية لذلك يتوجب عليك استيراد
name space اخرى اضافة الى Imports System.Drawing.Drawing2D
الا وهي Imports System.Math
وهكذا فان هواة الرسم لن تخيب آمالهم في الفيجوال
كان هذا مجرد مثال والا فان بأمكانك ان كما قلنا ان ترسم ماشئت
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 416 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  معلومة ::: System.Management RaggiTech 1 370 06-10-12, 08:52 PM
آخر رد: RaggiTech
  تعرف على الفئة System.Environment ( مجرد بدايه فقط ) RaggiTech 0 278 03-10-12, 09:19 AM
آخر رد: RaggiTech

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


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