"vijay" <vijaya.mohan@gmail.com> wrote in message
news:1185849983.286042.53080@g4g2000hsf.googlegroups.com...
> Hi
>
> I am trying to create a class which acts a Bordered label control.
> i have derived TextLabel class from forms.Control and i implemented
> OnPaint function. i am enclosing the code.
>
> I declared two variables in my form .
>
> Dim txtLabel As New TextLabel
> Dim txtLabel1 As New TextLabel
>
> and form_load
>
> txtLabel.Location = New System.Drawing.Point(10, 10)
> txtLabel.Bounds = New Rectangle(10, 10, 100, 70)
> txtLabel.Text = "Welcome to new text Label control" & vbCrLf &
> "abc"
> txtLabel.SetBorder = True
> Controls.Add(txtLabel)
>
> txtLabel1.Location = New System.Drawing.Point(10, 120)
> txtLabel1.Bounds = New Rectangle(10, 120, 100, 70)
> txtLabel1.Text = "rectangle test"
> txtLabel1.SetBorder = True
> Controls.Add(txtLabel1)
>
>
> My Problem is
> =========
>
> txtLabel control is properly displayed with the text. but in the
> txtLabel1 control the text is not displaying but the border is
> displaying. i tried to add two more controls to the form. the problem
> is repeated with the new controls also. only the first Control is
> displaying text and border and all other controls are displaying only
> Border not text.
>
> where i am going wrong?.
>
> thank you.
>
> source code of TextLabel class.
> =============
> Imports System
> Imports System.Collections
> Imports System.ComponentModel
> Imports System.Drawing
> Imports System.Windows.Forms
>
> Public Class TextLabel
> Inherits System.Windows.Forms.Control
>
> Private bDrawBorder As Boolean = False
>
> Public Sub New()
> InitializeComponent()
> End Sub
>
> '/ <summary>
> '/ Clean up any resources being used.
> '/ </summary>
> Protected Overloads Overrides Sub Dispose(ByVal disposing As
> Boolean)
> MyBase.Dispose(disposing)
> End Sub
>
> '/ <summary>
> '/ Required method for Designer support - do not modify
> '/ the contents of this method with the code\editor.
> '/ </summary>
> Private Sub InitializeComponent()
>
> End Sub
>
>
> Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
> 'myLabelT = Me.Text
> If Me.Text.Length > 0 Then
> Dim size As SizeF = e.Graphics.MeasureString(Me.Text,
> Me.Font)
> Dim layoutRectangle As New RectangleF
> layoutRectangle = Bounds()
> Dim strFmt As New StringFormat
> strFmt.Alignment = StringAlignment.Center
> strFmt.FormatFlags = StringFormatFlags.NoClip
> e.Graphics.DrawString(Me.Text, Me.Font, New
> SolidBrush(Me.ForeColor), layoutRectangle, strFmt)
> End If
> If (bDrawBorder) Then
> e.Graphics.DrawRectangle(New Pen(Color.Black), 0, 0,
> Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)
> End If
>
> MyBase.OnPaint(e)
> End Sub
> Public Property SetBorder() As Boolean
> Get
> Return Me.bDrawBorder
> End Get
> Set(ByVal value As Boolean)
> Me.bDrawBorder = value
> End Set
> End Property
>
> End Class
>