User control Bind to Property

[Claudio111]

Hi all

I have create a user control with a TextBox and a Button as a DateTimePicker that allows me to handle backcolor, readonly and other graphics




When the button is clicked a MonthCalendar is shown in the UserControl Parent Form and the date selected is copied to the Textbox.text

It works well.

Now I want to bind the UserControl Text Property to a DataColumn but the Text Property is not shown in the UserControl Property list.

What I miss ?

Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Public Class MyDate
Private datascelta As String
Private ButtonState As String = "NO"
Private ParentControl As Object
Private WithEvents MC1 As MonthCalendar

Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
mFormat = 1
MC1 = New MonthCalendar
Button1.FlatStyle = FlatStyle.Flat
Button1.FlatAppearance.BorderColor = Color.DimGray
Button1.FlatAppearance.MouseDownBackColor = Color.Transparent
Button1.FlatAppearance.MouseOverBackColor = Color.Transparent
Button1.FlatAppearance.BorderSize = 0
End Sub
Public overrides Property Text As String
Get
Return TextBox1.Text
End Get
Set(value As String)
TextBox1.Text = value
End Set
End Property
Public Enum FormatType
ShortFormat = 1
LongFormat = 2
End Enum


Private mFormat As FormatType
Public Property Format As FormatType
Get
Return mFormat
End Get
Set(value As FormatType)
mFormat = value
If mFormat = 2 Then
Me.Size = New Size(160, Me.Height)
TextBox1.Size = New Size(130, TextBox1.Size.Height)
Else
Me.Size = New Size(100, Me.Height)
TextBox1.Size = New Size(70, TextBox1.Size.Height)
End If
Button1.Location = New Point(TextBox1.Location.X + TextBox1.Size.Width + 5, TextBox1.Location.Y)
End Set
End Property

Private Sub Me_MouseClick(sender As Object, e As MouseEventArgs) Handles MyBase.MouseClick
TextBox1.Focus()
End Sub

' add monthcalendar to Form
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ButtonState = "NO" Then
MC1.MaxSelectionCount = 1

SetMCLocation()

ParentControl = Me.Parent
ParentControl.Controls.Add(MC1)
MC1.BringToFront()
MC1.Visible = True
ButtonState = "SI"
Return
End If
If ButtonState = "SI" Then
ParentControl.controls.Remove(MC1)
ButtonState = "NO"
End If
End Sub


' draw a rectangle around the button
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
Dim bloc = Button1.Location
Dim bsize = Button1.Size
Dim rect As New Rectangle(bloc.X - 1, bloc.Y - 1, bsize.Width + 2, bsize.Height + 2)
Dim mpen = New Pen(Color.DimGray, 1)
e.Graphics.DrawRectangle(mpen, rect)
End Sub

Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
ButtonState = "NO"
ParentControl = Me.Parent
ParentControl.controls.Remove(MC1)
End Sub

Private Sub MyDate_Leave(sender As Object, e As EventArgs) Handles Me.Leave
ButtonState = "NO"
ParentControl = Me.Parent
ParentControl.controls.Remove(MC1)
End Sub
' update the date selected to Textbox1.text
Private Sub MC1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MC1.DateChanged
If Format = 2 Then
datascelta = MC1.SelectionRange.Start.ToLongDateString
Else
datascelta = MC1.SelectionRange.Start.ToShortDateString
End If
TextBox1.Text = datascelta
TextBox1.Focus()
TextBox1.SelectionStart = TextBox1.Text.Length
ParentControl.controls.Remove(MC1)
ButtonState = "NO"
End Sub
' set location for MonthCalendar checking if it goes out of the Form
Private Sub SetMCLocation()
' si deve usare il Width di MC1 e non la size che e' inferiore se non entra nel form
Dim MCrigthmargin = Me.Location.X + 268
Dim Parentrigthmargin = Me.Parent.Size.Width
Dim MarginDiff = MCrigthmargin - Parentrigthmargin
Dim loc = Me.Location.X - MarginDiff

If MarginDiff > 0 Then
MC1.Location = New Point(loc, Me.Location.Y + 25)
Else
MC1.Location = New Point(Me.Location.X, Me.Location.Y + 25)
End If


End Sub
End Class

Continue reading...