12-03-16, 07:44 PM
السلام عليكم و رحمة الله
اقدم لكم هذا الكود وهو لجعل عنوان الفورم فى منتصفه
اولاً: نكتب هذا الكود
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()
ولكن لى سؤال بسيط هنا اريد ان اضع هذا الكود فى موديول مثلا لاستخدمه فى جميع نماذج المشروع ما هى الطريقة؟
مع خالص شكرى
اقدم لكم هذا الكود وهو لجعل عنوان الفورم فى منتصفه
اولاً: نكتب هذا الكود
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()
ولكن لى سؤال بسيط هنا اريد ان اضع هذا الكود فى موديول مثلا لاستخدمه فى جميع نماذج المشروع ما هى الطريقة؟
مع خالص شكرى