[silverlight]

اولا دعني اوضح لك أمرا هاما خاص بالجرافكس

تخيل إنك ترسم علي ورقة عادية و طبعا هذه الورقة لها ابعاد ثابتة و بالتالي ولأنك ترسم هنا بنفسك فأنت تتحكم في مكان الرسم
لذلك فانت تضع في اعتبارك ان حدود الرسم هي الورقة التي أمامك و بالتالي تضبط الرسم ليكون داخل حدود الورقة التي ترسم عليها أما في الكمبيوتر فعليك ان تضع في اعتبارك أن سطح الفورم أو سطح ورقة الطباعة يمثل هنا الورقة العادية التي ترسم عليها

لذلك حين تريد أن نرسم شيئا عليك أن تدرس و نفهم أبعاد السطح الذي نرسم عليه و كيف نرسم عليه

في الحياة العادية و عندما ترسم علي ورقة فأنت تحتاج الي أدوات لكي ترسم مثل قلم رصاص و ألوان و اشياء من هذا القبيل

اما في الكمبيوتر فأدواتك في الرسم هي Brushes و Fonts و Rectangle و Point و Color و StringFormat و اشياء اخري
وبدون فهم لهذا الاشياء و كيفية التعامل معها فأنت هنا لن تستطيع ان تجيد عملية الرسم

أهم شئ في الرسم هو وسيلة الرسم وفي الحياة العادية فإن اليد التي ترسم بها علي الورقة تمثل اداة الرسم وما يقابل هذا في البرمجه فهو Graphics كلاس

تستطيع اعتبار Graphics Class هو القلب النابض لكي شئ تراه علي شاشة الكمبيوتر او تراه مطبوع علي الطابعة
و طبعا و بدون القلب لا يصح الجسد

الدالة Mid دالة OverLoaded لذلك ستجد لها اكثر من صورة و الهدف منها هو تحديد بداية التكست او تحديد مكان كلمة في التكست
أمثلة علي ذلك:
-

كود :

       Dim textToDraw As String = "Graphis Demo"

       ' Example 1
       ' Mid (string, location of first char in the string/word)
       Dim startPoint As Integer = 5
       Dim s As String = Mid(textToDraw, startPoint + 1)
       Me.Text = s


       ' Example 2
       ' Mid (string, location of first char in the string/word, number of char in the string/word)

       Dim firstWord As String = Mid(textToDraw, 1, 7)
       Me.Text = firstWord


       ' Example 3
       Dim secondWord As String = Mid(textToDraw, 9, 4)
       Me.Text = secondWord

فيما يختص ببقية أسئلتك سهل جدا إن أنا أجاوبك عليها لكن لو فعلا أنت مهتم عليك أن تدرس الكلاسات الخاصة بالجرافكس و إن شاء الله سأرد علي اي استفسار لك خاص بالجرافكس

بشكل مبدئي افتح مشروع و اكتب الكود التالي في الحدث Paint الخاص بالفورم

كود :

Public Class Form1
   Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
       Dim priningFont As Font = New Font("Lucida Console", 10, FontStyle.Bold)
       Dim textToDraw As String = "Graphis Demo"
       Dim textSize As SizeF = e.Graphics.MeasureString(textToDraw, priningFont)

       Using sf As StringFormat = New StringFormat(StringFormatFlags.DirectionVertical)
           e.Graphics.DrawString(textToDraw, priningFont, Brushes.Black, New Rectangle(0, 0, 0, 0), sf)
       End Using

   End Sub
End Class

أعتذر للإطالة عليك