Combo Box Custom Control

GUSEPPE · Apr 28, 2012

Collection editor example for those who have been searching. Imports System Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.HtmlControls Imports System.ComponentModel Namespace ComboBox < _ ParseChildren(True, "Items") _ > Public Class TextCombo Inherits TextBox Dim _borderpadding As Integer Dim _HiLitebackcolor As System.Drawing.Color Dim _HiLiteforecolor As System.Drawing.Color Dim _items As New ArrayList() Dim _ShowDropDownButton As Boolean = True <Category("Appearance")> _ Public Property BorderPadding() As Integer Get Return _borderpadding End Get Set(ByVal Value As Integer) _borderpadding = Value End Set End Property <Category("Appearance")> _ Public Property ShowDropDownButton() As Boolean Get Return _ShowDropDownButton End Get Set(ByVal Value As Boolean) _ShowDropDownButton = Value End Set End Property <Category("Appearance")> _ Public Property HiliteBackColor() As System.Drawing.Color Get Return _HiLitebackcolor End Get Set(ByVal Value As System.Drawing.Color) _HiLitebackcolor = Value End Set End Property <Category("Appearance")> _ Public Property HiliteForeColor() As System.Drawing.Color Get Return _HiLiteforecolor End Get Set(ByVal Value As System.Drawing.Color) _HiLiteforecolor = Value End Set End Property <RefreshProperties(RefreshProperties.Repaint), _ DesignerSerializationVisibility(DesignerSerializat ionVisibility.Content), _ NotifyParentProperty(True), _ Editor(GetType(TextComboCollectionEditor), GetType(System.Drawing.Design.UITypeEditor)), _ PersistenceMode(PersistenceMode.InnerDefaultProper ty) _ > _ Public ReadOnly Property Items() As ArrayList Get Return _items End Get End Property Public Function IsDesigning() As Boolean Try If Page.Site.DesignMode = True Then Return True Else Return False End If Catch Return False End Try End Function Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter) MyBase.Render(writer) If _items.Count > 0 Then CreateDropDown() If Me._borderpadding > 0 Then Dim ctl As New Label() ctl.BackColor = System.Drawing.Color.Transparent ctl.ForeColor = System.Drawing.Color.Transparent ctl.BorderWidth = Unit.Pixel(0) ctl.Width = Unit.Pixel(_borderpadding) ctl.Height = Me.Height ctl.RenderControl(writer) End If Dim _btn As New System.Web.UI.HtmlControls.HtmlButton() If BorderColor.IsEmpty And _ BorderWidth.Equals(Unit.Empty) And _ BorderStyle = BorderStyle.NotSet Then Else _btn.Style.Add("border-bottom", BorderColor.ToKnownColor.ToString & " " & BorderWidth.ToString & " " & BorderStyle.ToString) _btn.Style.Add("border-right", BorderColor.ToKnownColor.ToString & " " & BorderWidth.ToString & " " & BorderStyle.ToString) _btn.Style.Add("border-top", BorderColor.ToKnownColor.ToString & " " & BorderWidth.ToString & " " & BorderStyle.ToString) _btn.Style.Add("border-left", BorderColor.ToKnownColor.ToString & " " & BorderWidth.ToString & " " & BorderStyle.ToString) End If If BackColor.IsEmpty Then Else _btn.Style.Add("background-color", IIf(BackColor.ToKnownColor.ToString = "0", "White", BackColor.ToKnownColor.ToString)) End If If Me.Height.IsEmpty Then _btn.Style.Add("height", "23px") Else _btn.Style.Add("height", Me.Height.ToString) End If _btn.Style.Add("font-size", "xx-small") If Me.Width.Equals(Unit.Percentage(90)) Then _btn.Style.Add("width", "8%") Else _btn.Style.Add("width", "20px") End If _btn.InnerText = "/" Dim li As ListItem Dim str As String For Each li In Items str = str & li.Value & "?" & li.Text & " " Next _btn.Attributes.Add("onClick", "showpop" & Me.ID & "(" & Me.UniqueID.Replace(":", "_") & "," & Chr(34) & str & Chr(34) & ");this.blur();") If Me._ShowDropDownButton Then Controls.Clear() Controls.Add(_btn) Renderchildren(writer) End If End If End Sub Protected Overrides Sub AddAttributesToRender(ByVal writer As HtmlTextWriter) If _items.Count > 0 Then Dim li As ListItem Dim str As String For Each li In Items str = str & li.Value & "?" & li.Text & " " Next writer.AddAttribute(HtmlTextWriterAttribute.Onclic k, "showpop" & Me.ID & "(" & Me.UniqueID.Replace(":", "_") & "," & Chr(34) & str & Chr(34) & ")") End If MyBase.AddAttributesToRender(writer) End Sub Sub CreateDropDown() Dim clht As Integer = 25 Dim str As String str = str & " <script> " & vbCrLf str = str & "" & vbCrLf str = str & "var oPopup" & Me.ID & " = window.createPopup()" & vbCrLf str = str & "function showpop" & Me.ID & "(ctl,txt)" & vbCrLf str = str & "{" & vbCrLf str = str & " var oPopupBody = oPopup" & Me.ID & ".document.body;" & vbCrLf str = str & " var tvArray = txt.split(' ');" & vbCrLf str = str & " var cArr;" & vbCrLf str = str & " var tvArrayLen = tvArray.length;" & vbCrLf str = str & "var str='" str = str & "<Div style=' TABLE-LAYOUT: fixed; OVERFLOW: auto; WIDTH: 100%; HEIGHT: 100%'>" str = str & "<DIV style='TABLE-LAYOUT: fixed; OVERFLOW: auto; WIDTH: 100%; HEIGHT: 100%;" str = str & " BORDER-TOP: " & IIf(BorderColor.IsEmpty, "gray", BorderColor.ToKnownColor.ToString) & " " & IIf(BorderWidth.IsEmpty, "1px", BorderWidth.ToString) & " " & IIf(BorderStyle = BorderStyle.NotSet, "solid", BorderStyle.ToString) & ";" str = str & " BORDER-BOTTOM: " & IIf(BorderColor.IsEmpty, "gray", BorderColor.ToKnownColor.ToString) & " " & IIf(BorderWidth.IsEmpty, "1px", BorderWidth.ToString) & " " & IIf(BorderStyle = BorderStyle.NotSet, "solid", BorderStyle.ToString) & ";" str = str & " BORDER-LEFT: " & IIf(BorderColor.IsEmpty, "gray", BorderColor.ToKnownColor.ToString) & " " & IIf(BorderWidth.IsEmpty, "1px", BorderWidth.ToString) & " " & IIf(BorderStyle = BorderStyle.NotSet, "solid", BorderStyle.ToString) & ";" str = str & " BORDER-RIGHT: " & IIf(BorderColor.IsEmpty, "gray", BorderColor.ToKnownColor.ToString) & " " & IIf(BorderWidth.IsEmpty, "1px", BorderWidth.ToString) & " " & IIf(BorderStyle = BorderStyle.NotSet, "solid", BorderStyle.ToString) & ";" str = str & "'>" str = str & " <TABLE id=ctbl style='" str = str & " COLOR: " & IIf(Me.ForeColor.IsEmpty = True, "black", Me.ForeColor.ToKnownColor.ToString) & ";" str = str & " FONT-WEIGHT: " & IIf(Me.Font.Bold, "bold", "normal") & ";" str = str & " FONT-SIZE: " & IIf(Me.Font.Size.IsEmpty = True, "x-small", Me.Font.Size.ToString) & ";" str = str & " FONT-STYLE: " & IIf(Me.Font.Italic, "italic", "normal") & ";" str = str & " FONT-FAMILY: " & Me.Font.Name.ToString & ";" str = str & " TEXT-DECORATION: " & IIf(Me.Font.Underline, "underline ", " ") & IIf(Me.Font.Overline, "overline ", " ") & IIf(Me.Font.Strikeout, "line-through ", " ") & "" str = str & "'" If BackColor.IsEmpty Then Else str = str & " bgcolor=" & BackColor.ToKnownColor.ToString End If str = str & " cellSpacing=0 " str = str & " cellPadding=1 " str = str & " width=100% " str = str & " height=100%" str = str & ">'" str = str & " " & vbCrLf str = str & " for(var i=0;i<tvArrayLen-1;i++)" & vbCrLf str = str & " { " & vbCrLf str = str & " cArr = tvArray.split('?');" & vbCrLf str = str & "str = str + '<TR><TD style=\" & Chr(34) str = str & " cursor='hand'" str = str & "\" & Chr(34) str = str & " onMouseOver=this.style.backgroundColor='" & IIf(_HiLitebackcolor.ToKnownColor.ToString = "0", "silver", _HiLitebackcolor.ToKnownColor.ToString) & "';this.style.color='" & IIf(_HiLiteforecolor.ToKnownColor.ToString = "0", "black", _HiLiteforecolor.ToKnownColor.ToString) & "'" str = str & " onMouseOut=this.style.backgroundColor='transparent ';this.style.color='" & IIf(ForeColor.ToKnownColor.ToString = "0", "black", ForeColor.ToKnownColor.ToString) & "'" str = str & " onClick=parent.Form1.' + ctl.id + '.innerText='' + cArr[1] + '';parent.oPopup" & Me.ID & ".hide()" str = str & " height=" & clht & "px>' + cArr[1] + '" str = str & "</TD></TD></TR>'" & vbCrLf str = str & " }" & vbCrLf str = str & " str = str + '<tr><tr></table></Div>';" & vbCrLf str = str & " " & vbCrLf str = str & " oPopupBody.innerHTML = str;" & vbCrLf str = str & " oPopup" & Me.ID & ".show(0,ctl.offsetHeight + " & _borderpadding & ",ctl.offsetWidth + " & IIf(_ShowDropDownButton, Me._borderpadding + 20, 0) & "," & IIf(((clht) * _items.Count) > (clht * 10), clht * 10, ((clht + 1) * _items.Count) + 3) & ", ctl);" & vbCrLf str = str & " " & vbCrLf str = str & "" & vbCrLf str = str & " }" & vbCrLf str = str & " </script>" & vbCrLf Page.RegisterStartupScript("ComboPopUp" & Me.ID, str) End Sub End Class Class TextComboCollectionEditor Inherits GenericCollectionEditor Public Sub New() MyBase.New(GetType(ListItem)) End Sub End Class Public Class GenericCollectionEditor Inherits System.ComponentModel.Design.CollectionEditor Dim _types() As Type Public Sub New(ByVal ParamArray ItemType() As System.Type) MyBase.New(GetType(Collection)) Dim i As Integer Dim itemCount As Integer = ItemType.Length ReDim _types(itemCount - 1) For i = 0 To itemCount - 1 _types(i) = ItemType(i) Next End Sub Protected Overrides Function CreateNewItemTypes() As System.Type() Return _types End Function Protected Overrides Function CreateInstance(ByVal itemType As System.Type) As Object Dim obj As Object obj = System.Activator.CreateInstance(itemType) Return obj End Function Protected Overrides Function CreateCollectionItemType() As System.Type Return _types(0) End Function Protected Overrides Function GetItems(ByVal editValue As Object) As Object() CreateNewItemTypes() Return MyBase.GetItems(editValue) End Function End Class End Namespace

Combo Box Custom Control

GUSEPPE

New Member