منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن مساعده
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم  Heart
ممكن كود  الي يخلي اسم الفورم في المنتصف بلغه vb.net Heart
وشكرا جدا ليكم
هلا وعليكم السلام

بدون اكواد ضعي مسافات قبل الإسم ليصبح بالمنتصف او بالنهايه
وعليكم السلام ،،
في الفورم لود يوضع هذا الكود :

كود :
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
(22-08-17, 06:23 AM)حريف برمجة كتب : [ -> ]وعليكم السلام ،،
في الفورم لود يوضع هذا الكود :

كود :
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