asp.net中可输入的下拉框的问题 - .NET技术 / ASP.NET

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls

Namespace CBDAspNet.WebControls.HTML
  ''' <summary>
  ''' 可输入的下拉框控件
  ''' </summary>
  <ToolboxData("<{0}:TextBox runat=""server"" />")> _
  Public Class TextBox
  Inherits System.Web.UI.WebControls.TextBox
  Private _values As Hashtable
  Public _DropDownList As DropDownList
  Public Sub New()
  _DropDownList = New DropDownList
  _values = New Hashtable
  End Sub
  Public Property Values() As Hashtable
  Get
  Return _values
  End Get
  Set(ByVal Value As Hashtable)
  _values = Value
  End Set
  End Property
  Protected Overrides Sub Render(ByVal Output As System.Web.UI.HtmlTextWriter)
  Dim iWidth As Integer = MyBase.Width.Value
  If iWidth = 0 Then
  iWidth = 102
  'MyBase.Width = Unit.Parse("102px")
  End If
  Dim sWidth As Integer = iWidth + 16