فقط اتجاه عمودي او أفقي، لم أدعم بالزاوية لأنها تحتاج تفرغ
انسخ هذا الكود في PrintLabel
PHP كود :
Imports System.Drawing.Design <ToolboxBitmap(GetType(Label))> _ Public Class PrintLabel Inherits Label Implements IPrintableControl Friend Const pn As String = "[pn]" Friend Const pc As String = "[pc]" Public Sub New() MyBase.AutoSize = False MyBase.SetStyle(ControlStyles.UserPaint Or ControlStyles.OptimizedDoubleBuffer, True) End Sub #Region "Properties"
#Region "Appearance" <Category("Printing Appearance: Common"), Description("مساواة العرض أثناء الطباعة بالعرض أثناء التصميم")> _ Public Property FitMaxWidth As Boolean = True <Category("Printing Appearance: Common"), Description("مساواة الطول أثناء الطباعة بالطول أثناء التصميم")> _ Public Property FitMaxHeight As Boolean = True <Category("Printing Appearance"), Description("شكل الإطار الخارجي")> _ Public Property Border() As DashStyle = DashStyle.Solid <Category("Printing Appearance"), Description("سُمك الإطار الخارجي")> _ Public Property BorderSize() As Integer = 0 <Category("Printing Appearance"), Description("لون الإطار الخارجي")> _ Public Property BorderColor() As Color = Color.Black <Category("Appearance"), Description("زاوية ميلان النص")> _ Public Property Direction() As TextDirection
#End Region
#Region "Printing Data" Private _SourceControl As Label <Browsable(False)> _ Public Property SourceControl As System.Windows.Forms.Control Implements IPrintableControl.SourceControl Get If _SourceControl Is Nothing Then _SourceControl = Me End If Return _SourceControl End Get Set(ByVal value As System.Windows.Forms.Control) _SourceControl = value End Set End Property <Category("Appearance"), Description("تحديد ما إذا كان الحقل لعرض رقم الصفحة، استخدم خاصية النص للتنسيق ,[pn]=Page Number, [pc]=Page Count")> _ Public Property IsPageNumber As Boolean = False #End Region
#Region "Printing Components" Dim _Printer As LabelPrinter <Browsable(False)> _ Public ReadOnly Property Printer As Printer Implements IPrintableControl.Printer Get If _Printer Is Nothing Then _Printer = New LabelPrinter(Me) End If Return _Printer End Get End Property
<Browsable(False)> _ Public ReadOnly Property Section As Section Implements IPrintableControl.Section Get Return CType(Me.Parent, Section) End Get End Property #End Region
#Region "Printing Behavior" <Category("Printing Behavior"), Description("تفعيل مقياس الرسم الأفقي")> _ Public Property ScaleHorizontal As Boolean = True Implements IPrintableControl.ScaleHorizontal <Category("Printing Behavior"), Description("تفعيل مقياس الرسم الرأسي")> _ Public Property ScaleVertical As Boolean = True Implements IPrintableControl.ScaleVertical <Category("Printing Behavior"), Description("رتبة مرحلة الطباعة")> _ Public Property StageIndex As Integer Implements IPrintableControl.StageIndex <Category("Printing Behavior"), Description("رتبة الأداة أثناء مرحلة الطباعة")> _ Public Property PrintIndex As Integer Implements IPrintableControl.PrintIndex <Category("Printing Behavior"), Description("تحديد ما إذا كانت الأداة تستكمل طباعتها في صفحات تالية أو لا")> _ Public Property OnePageOnly As Boolean = False Implements IPrintableControl.OnePageOnly #End Region #End Region
#Region "Methods" Protected Overrides Sub OnParentChanged(ByVal e As System.EventArgs) If Me.Parent IsNot Nothing Then If Not TypeOf Parent Is Section Then Me.Parent.Controls.Remove(Me) End If End If End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 'e.Graphics.DrawRectangle(New Pen(Me.BorderColor, Me.BorderSize) With {.Alignment = PenAlignment.Center}, e.ClipRectangle)
DrawText(e.Graphics, e.ClipRectangle, Me.Text) End Sub Public Sub DrawText(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal txt As String) Dim rec = bounds Dim fl As StringFormatFlags If Me.RightToLeft = Forms.RightToLeft.Yes Then fl = StringFormatFlags.DirectionRightToLeft End If If Me.Direction = TextDirection.Vertical Then fl = fl Or StringFormatFlags.DirectionVertical End If DrawString(g, Me.Text, Me.Font, Me.ForeColor, rec, Me.TextAlign, fl) End Sub Public Sub DrawString(ByVal g As Graphics, ByVal Text As String, ByVal Font As Font, ByVal TextColor As Color, ByVal Rect As Rectangle, ByVal Align As ContentAlignment, ByVal FormatFlags As StringFormatFlags) Try
Dim sf As New StringFormat sf.Alignment = GetXAlign(Align) sf.LineAlignment = GetYAlign(Align) sf.FormatFlags = FormatFlags
g.DrawString(Text, Font, New SolidBrush(TextColor), Rect, sf)
Catch ex As Exception
End Try End Sub #End Region
End Class Public Enum TextDirection Horizontal Vertical End Enum
وهذا الكود في LabelPrinter
PHP كود :
Public Class LabelPrinter Inherits Printer Dim Text As String Dim ptxt As String Public Sub New(ByVal printControl As IPrintableControl) MyBase.New(printControl) End Sub Private ReadOnly Property txt As PrintLabel Get Return MyBase.Control End Get End Property ReadOnly Property man As PrintManager Get Return txt.Section.Page.PManager End Get End Property Protected Friend Overrides Function Print(ByVal g As System.Drawing.Graphics, ByVal Bounds As System.Drawing.Rectangle) As Boolean Dim sc = txt.SourceControl 'g.DrawRectangle(Pens.Red, Bounds) Dim Completed As Boolean 'If First Printing If Me.Text Is Nothing AndAlso sc.Text IsNot Nothing Then Me.Text = sc.Text End If If Me.txt.IsPageNumber Then Text = Me.txt.Text.Replace(PrintLabel.pn, man.CurPage).Replace(PrintLabel.pc, man.PageCount) End If If sc.Text IsNot Nothing Then 'Decleration Dim Rec As Rectangle = Bounds Dim StringFormat = New StringFormat Dim hAlign As ContentAlignment = ContentAlignment.MiddleLeft 'For Measure the text Dim CurText As String Dim numChars As Integer Dim numLines As Integer 'Alignment........ With StringFormat .LineAlignment = GetYAlign(txt.TextAlign) .Alignment = GetXAlign(txt.TextAlign) .Trimming = StringTrimming.Word Dim rtl = txt.RightToLeft If rtl = Windows.Forms.RightToLeft.Yes Then .FormatFlags = StringFormatFlags.DirectionRightToLeft End If End With
'Measure Text 'Dim s = Bounds.Size 's.Height -= txt.Font.GetHeight(g) Rec.Size = g.MeasureString(Text, txt.Font, Rec.Size, StringFormat, numChars, numLines).ToSize() 's.Height += txt.Font.GetHeight(g)
'Get Max of te=t CurText = Text.Substring(0, numChars) 'Adjust location by align Rec = GetRect(Rec.Size, Bounds, txt.TextAlign, 0, 0) 'Auto Size not 'Vertical
If txt.FitMaxHeight Then Rec.Height = Bounds.Height Rec.Y = Bounds.Top End If 'Horizontal If txt.FitMaxWidth Then Rec.Width = Bounds.Width Rec.X = Bounds.X End If 'Drawing: '1- Fill Final Bounds g.FillRectangle(New SolidBrush(txt.BackColor), Rec) '2- Draw Border If txt.BorderSize > 0 Then Dim pn = New Pen(txt.BorderColor, txt.BorderSize) pn.DashStyle = txt.Border g.DrawRectangle(pn, Rec) End If '3- Draw Text 'g.DrawString(CurText, txt.Font, New SolidBrush(txt.ForeColor), Rec, StringFormat) txt.DrawText(g, Rec, CurText) 'g.DrawRectangle(Pens.Red, Rec) 'Finishing is completed ? If numChars < Me.Text.Length AndAlso Not Me.txt.OnePageOnly Then ptxt = Me.Text Me.Text = Text.Substring(numChars) If ptxt Is Me.Text Then Return True End If Completed = False Else Me.Text = txt.Text Completed = True End If If txt.IsPageNumber Then Return True End If Return Completed End If End Function
مشكور سيدي شكرا جزيلا مجهود رائع جدا لكن ينقص شيء واحد وهو طريقة عرض النص يعني النص يدور 90 درجة فقط ولكن اريد ه او يريده الكثير هو 270 درجة اي ان يكون النص من الاعلى الى الاسفل وخاصة في اللغة العربية
الظاهر أنه لا مفر من استخدام RotateTransform وينبغي تشغيل حساب المثلثات إن لم يخب ظني، لأن محور الدوران هو النقطة صفر،صفر في حين أننا نريدها أن تكون المنتصف
بعد يحثي في النترنت وجدت لك اداة جميلة جدا تدعم هاته الخاصية وبها خصائص اخري جميلة مثل النص الدائري والدي على شكل قوس واتجاه النص عكس عقارب الساعة ومع عقارب الساعة و...
المهم حتي وان لم تكن تهمنا هاته الخصائص تركتها لك كما هي .
ملاحظة : هاته الاداة ممبرمجة ب #c وتحويلها الى vb مع تغييرات طفيفة ارجو ان تساعدك شكرا على تجاوبك
