Imports System.ComponentModel
 
Public Class DropdownlistCtrl
    Inherits System.Windows.Forms.UserControl
    Private myName As String = ""
 
    Public Event SelectedValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs)
 
    Private myErrorColor As System.Drawing.Color = Color.LightCoral
    Public Property ErrorColor() As System.Drawing.Color
        Get
            Return myErrorColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            myErrorColor = value
        End Set
    End Property
 
    Sub New()
        InitializeComponent()
        isEditMode = True
        myComboBox.Visible = True
        myLabel.Visible = False
        myLabel.BackColor = myBackColor
        myFont = MyBase.Font
        myLabel.Text = myNoSelection
    End Sub
 
    Private Sub OnHandleGotFocus()
 
    End Sub
 
    Private Sub OnHandleLostFocus()
 
    End Sub
 
    Private isMandatory As Boolean = True
    Public Property Mandatory() As Boolean
        Get
            Return isMandatory
        End Get
        Set(ByVal value As Boolean)
            isMandatory = value
        End Set
    End Property
 
    Private myHasError As Long = 0
    Public Function hasError() As Long
        Return myHasError
    End Function
 
    Private Sub openComboBox()
        If isEditMode = True Then
            myLabel.Visible = False
            myComboBox.Visible = True
        End If
    End Sub
 
    Private Sub closeComboBox()
        myComboBox.Visible = False
        setLableBackColor()
        myLabel.Visible = True
    End Sub
 
    Private Sub myComboBox_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles myComboBox.SelectedValueChanged
        myLabel.Text = myComboBox.Text
        If myLabel.Text.Contains("System.Data") = True Then
            myLabel.Text = ""
        End If
        RaiseEvent SelectedValueChanged(sender, e)
    End Sub
 
    Private isEditMode As Boolean = True
    Public Property EditMode() As Boolean
        Get
            Return isEditMode
        End Get
        Set(ByVal value As Boolean)
            isEditMode = value
            If isEditMode = False Then
                closeComboBox()
            Else
                openComboBox()
            End If
        End Set
    End Property
 
    Private myEditBackColor As System.Drawing.Color = Color.White
    Public Property EditBackColor() As System.Drawing.Color
        Get
            Return myEditBackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            myEditBackColor = value
        End Set
    End Property