عمل عنوان للفورم على سطرين

لا أعتقد أنه ممكن بس إذا مصرة على الموضوع ألغي الشريط في الأعلى وارسمي آخر كما يحلو لك باستخدام أوامر GDI

ممكن توضحي سبب طلبك هذا يمكن نجد حل اخر لات موصوع التعديل في الفورم صعب سحتجين الي عمل الclass form وده مش سهل

ليه يا كريم صعب ! مش صعب ولا حاجه , يمكن عمل كلاس ترث من كلاس فورم ومن ثم استخدام الـ +GDI كما قال الأخ محمد واستخدام هذه الفورم عادي جدا ,,,

ولما لا تضع لنا مثال لاني حول ولم اسطتع

بسم الله الرحمن الرحيم

شكرا لكم جميعا KARIMSOFT وhazzoom وsamerselo

حاولت عمل العنوان على سطرين ولكنى فشلت

فهل ممكن مثال صغير يساعدنى ان امكن

أشكركم على إهتمامك

إنجى

السلام عليكم،،،

توجد طريقة لعمل ذلك وهى بالرسم على title bar للنافذة ،،، ويتم ذلك باعادة قيادة الطريقة winproc لتصيد الرسالة WM_NCPAINT للوصول الى

non-client area

 <Runtime.InteropServices.DllImport("user32.dll")> _
	Public Shared Function GetWindowDC(ByVal hWnd As IntPtr) As IntPtr
	End Function
	<Runtime.InteropServices.DllImport("user32.dll")> _
	   Public Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDC As IntPtr)AS Int32
	End Function

	Protected Overrides Sub WndProc(ByRef m As Message)
		' Me.Text = ""

		MyBase.WndProc(m)
		Const WM_NCPAINT As Integer = &H85
		If m.Msg = WM_NCPAINT Then
			Dim hdc As IntPtr = GetWindowDC(m.HWnd)
			Dim g As Graphics = Graphics.FromHdc(hdc)
			Dim rDraw As Rectangle = Me.ClientRectangle
			Me.Text = ""
			g.DrawString("wellcome", Me.Font, Brushes.DarkRed, Me.Width / 2, 5)
			g.DrawString("program", Me.Font, Brushes.DarkSeaGreen, Me.Width / 2, 15)
			ReleaseDC(Me.Handle, hdc)
		End If

	End Sub