منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] توسيط عنوان الفورم - نسخة قابلة للطباعة

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

توسيط عنوان الفورم - فارس احمد السيد - 20-01-18

كيف اجعل عنوان الفورم كما فى الصورة المرفقة

RE: توسيط عنوان الفورم - HASAN6.0 - 20-01-18

PHP كود :
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        CenterMe()
    End Sub
    Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        CenterMe()
    End Sub
    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
    End Sub 


RE: توسيط عنوان الفورم - فارس احمد السيد - 21-01-18

اشكرك اخى HASAN6.0 و لكن الصورة ماخوذة من ملف ليس به اكواد
و لك الشكر

RE: توسيط عنوان الفورم - محمود صالح - 21-01-18

(21-01-18, 06:31 PM)فارس احمد السيد كتب : اشكرك اخى HASAN6.0  و لكن الصورة ماخوذة من ملف ليس به اكواد
و لك الشكر

اخي  فارس احمد السيد 
ما تفضل به اخي HASAN6.0 هو عام في توسيط اي سطر في اي كنترول وليس form فقط
انا جربتها على ادوات كتير ونجحت 
نصيحة اهتم بالعام واترك الخاص لموضعه

شكرا اخي HASAN6.0

RE: توسيط عنوان الفورم - فارس احمد السيد - 22-01-18

(21-01-18, 11:06 PM)محمود صالح كتب :
(21-01-18, 06:31 PM)فارس احمد السيد كتب : اشكرك اخى HASAN6.0  و لكن الصورة ماخوذة من ملف ليس به اكواد
و لك الشكر

اخي  فارس احمد السيد 
ما تفضل به اخي HASAN6.0 هو عام في توسيط اي سطر في اي كنترول وليس form فقط
انا جربتها على ادوات كتير ونجحت 
نصيحة اهتم بالعام واترك الخاص لموضعه

شكرا اخي HASAN6.0

شكرا اخى محمود صالح و لكن هذا للعلم فقط

RE: توسيط عنوان الفورم - Basil Abdallah - 26-01-18

كود :
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
م بإضافة الكود التالي على Form في الحدث Resize


This Code From : boudyonline

RE: توسيط عنوان الفورم - فارس احمد السيد - 27-01-18

(26-01-18, 09:47 PM)Basil Abdallah كتب :
كود :
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
م بإضافة الكود التالي على Form في الحدث Resize


This Code From : boudyonline

الف شكر و جزاكم الله خيرا

RE: توسيط عنوان الفورم - سعود الشامان - 28-01-18

السلام عليكم


بدون اكواد  



RE: توسيط عنوان الفورم - فارس احمد السيد - 12-02-18

(28-01-18, 08:13 AM)سعود الشامان كتب : السلام عليكم


بدون اكواد  


عند التكبير لا تكون فى المنتصف


انا و صلت انها فى ثيمات الويندوز و لكن كيف اتحكم بها برمجيا عن الوينوز
انا و صلت انها فى ثيمات الويندوز و لكن كيف اتحكم بها برمجيا  بعيدا عن الوينودوز