منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود اظهار عنوان الفورم فى المنتصف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود اظهار عنوان الفورم فى المنتصف (/showthread.php?tid=15085)

كود اظهار عنوان الفورم فى المنتصف - salah mansour - 12-03-16

السلام عليكم و رحمة الله
اقدم لكم هذا الكود وهو لجعل عنوان الفورم فى منتصفه
اولاً: نكتب هذا الكود  
Public Class Form1

    Private Sub CenterMe()
        Dim g As Graphics = Me.CreateGraphics()
        Dim startingPoint As Double = (Me.Width / 2) - (g.MeasureString(Me.Text.Trim, Me.Font).Width / 2)
        Dim widthOfASpace As Double = g.MeasureString(" ", Me.Font).Width
        Dim tmp As String = " "
        Dim tmpWidth As Double = 0
        Do
            tmp += " "
            tmpWidth += widthOfASpace
        Loop While (tmpWidth + widthOfASpace) < startingPoint

        Me.Text = tmp & Me.Text.Trim & tmp

        Me.Refresh()
    End Sub
ثم فى حدث formload نكتب هذا الكود
 CenterMe()
كذلك فى حدث formresize نكتبه مرة اخرى
 CenterMe()

ولكن لى سؤال بسيط هنا اريد ان اضع هذا الكود فى موديول مثلا لاستخدمه فى جميع نماذج المشروع ما هى الطريقة؟
مع خالص شكرى

RE: كود اظهار عنوان الفورم فى المنتصف - silverlight - 12-03-16

تستطيع استخدامه من اي كلاس بشرط أنه يكتب في صورة  Shared روتين
و أيضا بشرط أن تمرر الفورم او الكونترول من خلال الروتين CenterMe

عليك أن تلاحظ أن الكود به خطأ في شكل ظهور التكست لأن اسم الفورم يظهر بجانبه مجموعة منComma

PHP كود :
Public Shared CenterMe(anyform as Form)
End Sub 


RE: كود اظهار عنوان الفورم فى المنتصف - salah mansour - 12-03-16

(12-03-16, 09:09 PM)silverlight كتب : تستطيع استخدامه من اي كلاس بشرط أنه يكتب في صورة  Shared روتين
و أيضا بشرط أن تمرر الفورم او الكونترول من خلال الروتين CenterMe

عليك أن تلاحظ أن الكود به خطأ في شكل ظهور التكست لأن اسم الفورم يظهر بجانبه مجموعة منComma

PHP كود :
Public Shared CenterMe(anyform as Form)
End Sub 

اسف اخى ممكن توضيح اكثر

RE: كود اظهار عنوان الفورم فى المنتصف - silverlight - 12-03-16

مثل هذا

PHP كود :
Friend NotInheritable Class FormUtility

    Public Shared Sub CeneterFormText(anyform As Form)

        Dim g As Graphics = anyform.CreateGraphics()
        Dim startingPoint As Double = (anyform.Width / 2) - (g.MeasureString(anyform.Text.Trim, anyform.Font).Width / 2)
        Dim widthOfASpace As Double = g.MeasureString(" ", anyform.Font).Width
        Dim tmp As String = " "
        Dim tmpWidth As Double = 0
        Do
            tmp += " "
            tmpWidth += widthOfASpace
        Loop While (tmpWidth + widthOfASpace) < startingPoint

        anyform.Text = tmp & anyform.Text.Trim & tmp

        anyform.Refresh()
    End Sub

End Class 


و الاستخدام مثل هذا

PHP كود :
  FormUtility.CeneterFormText(Me) 

بس ياريت تخللي بالك ان الكود الأصلي به اخطاء
أيضا يجب عمل dispose للجرافكس

RE: كود اظهار عنوان الفورم فى المنتصف - salah mansour - 13-03-16

شكرا جزيلا لاستاذنا الفاضل الكود تمام جزاك الله خيرا