[自定义服务器控件] 第二步:下拉列表框。-阿里云开发者社区

开发者社区> 云计算> 正文
登录阅读全文

[自定义服务器控件] 第二步:下拉列表框。

简介: 前面发了一个文本框的,这回发一个下拉列表框。 一般在写自定义控件之前都要考虑一下原来的控件(系统代的)有什么优缺点,有哪些功能是我想要的,但是自带的控件没有提供,或者提供的不是太理想。 那么对于 下拉列表框 我个人感觉有几个地方用着不是太方便。
前面发了一个文本框的,这回发一个下拉列表框。

一般在写自定义控件之前都要考虑一下原来的控件(系统代的)有什么优缺点,有哪些功能是我想要的,但是自带的控件没有提供,或者提供的不是太理想。

那么对于 下拉列表框 我个人感觉有几个地方用着不是太方便。

1、绑定数据库。
当下拉列表框里的数据需要从数据库里提取的时候,就需要设置DataValueFieldDataTextField 的属性,每次用的时候都要设置一下,这个比较烦。
(不好意思,我比较懒)
我的方法是在自定义控件的OnInit 时间里面加上

Me.CssClass = "lst"
Me.DataValueField = "ID"
Me.DataTextField = "txt"
Me.Font.Size = FontUnit.Point(9)

这就方便多了,只是在写SQL语句的时候需要使用别名的方式,修改字段的名称,以便适应 ID和txt。

如果您不喜欢这种方式的话,可以略过。:)

2、设置选定的选项。

在修改数据的时候,往往需要根据已经保存的数据来设置下拉列表框的第几个选项是被选中的,以便于修改。(不知道我有没有说清楚,表达能力还有待提高。)

当然系统的下拉列表框提供了这个功能,

Me.Items.FindByText("125").Selected = True
Me.SelectedValue = "125";
其他方法略。

可以用这种几方法来设置,但是这里有一个共同小问题,就是当下拉列表框的item里面没有“125” 的时候会抛出异常。

对于框架来说这么做没有什么问题,但是对于客户就不好了。

当然这个是可以避免的,一是检查是否出现异常,要不就是确保数据是完整的,绝对不会出现这种在item里面找不到值的情况。

但是我比较懒,不像写太多的代码来预防这些事情。

我写了一个 SetSelectedByValue (ByVal listValue As String) 的方法来设置,这样就方便多了。


3、添加月份、日期等信息。

如果需要写一个下拉列表框,这个框里面要放置12个月份,还要写个循环或者在.aspx里面设置。我设了一个偷懒的方法。

4、其他的常用的填充方法。

您可以把您常用的填充的数据放在自定义控件里面,调用的时候就会方便很多。

5、验证。

这个和 文本框是一样的,也是使用正则的方式来验证。这里主要验证是否选择了一个选项。
比如:第一个item是“请选择”,而这个下拉列表框又必须有一个选项(当然不能选第一个了),这个时候就需要验证一下。

6、实现接口

和文本框一样实现了下面的几个接口
属性(接口):
ControlKind  返回控件的类型。

函数(接口):
GetValue() 获取文本框的值,默认返回   TextTrim
GetValue(ByVal kind As String) 根据 kind 获取对应的文本框的值。

SetValue(ByVal value As String) 给文本框赋值
SetValue(ByVal value As String, ByVal kind As String)给文本框赋值


好像有点乱,感兴趣的话看看下面的代码吧。

<DefaultProperty("Text"), ToolboxData("<{0}:HBSDropDownList runat=server></{0}:HBSDropDownList>")> _
 
Public Class HBSDropDownListClass HBSDropDownList
    
Inherits System.Web.UI.WebControls.DropDownList
    
Implements IGetControlValue

    
Dim _dataType As String = "101"  '数据类型

实现接口#Region "实现接口"
    
<Bindable(True), Category("默认值"), DefaultValue("205"), Description("获取控件类别")> _
      
ReadOnly Property ControlKind()Property ControlKind() As String Implements IGetControlValue.ControlKind
        
Get
            
Return "205"
        
End Get
    
End Property


    
Public Function GetValue()Function GetValue() As String Implements IGetControlValue.GetControlValue
        
Return Me.SelectedValue

    
End Function


    
Public Function GetValue()Function GetValue(ByVal kind As StringAs String Implements IGetControlValue.GetControlValue
        
Return ""

    
End Function


    
Public Sub SetValue()Sub SetValue(ByVal value As StringImplements IGetControlValue.SetControlValue
        
Me.SetSelectedByValue(value)

    
End Sub


    
Public Sub SetValue()Sub SetValue(ByVal value As StringByVal kind As StringImplements IGetControlValue.SetControlValue

    
End Sub


#End Region



初始化 OnInit。设置CssClass、DataValueField、DataTextField、#Region "初始化 OnInit。设置CssClass、DataValueField、DataTextField、"
    
Protected Overrides Sub OnInit()Sub OnInit(ByVal e As EventArgs)
        
Me.CssClass = "lst"
        
Me.DataValueField = "ID"
        
Me.DataTextField = "txt"
        
Me.Font.Size = FontUnit.Point(9)

        
'Me.Style.Add("ime-mode", "disabled;")

        
Me.Items.FindByValue("125").Selected = True

    
End Sub

#End Region



验证类型#Region "验证类型"
    
<Category("数据验证"), Description("验证输入的内容,需要js脚本配合。"), DefaultValue("101")> _
    
Property CheckDataType()Property CheckDataType() As String
        
Set(ByVal Value As String)
            _dataType 
= Value
            
'101        b不验证
            '102        z自然数
            '103        z整数
            '104        x小数
            '105        r日期
            '106        b必填
            Select Case Value
                
Case "101" '不验证
                    'this.Attributes.Add("DataType","");
                Case "106" '必填项 == 必须选择
                    Me.Attributes.Add("check""[1-9]{1}[0-9]*")
            
End Select


        
End Set
        
Get
            
If _dataType Is Nothing Then
                
Return ""
            
End If
            
Return _dataType
        
End Get
    
End Property


    
<Category("数据验证"), Description("验证输入的内容,传入正则表达式。"), DefaultValue("0")> _
   
Property CheckDataReg()Property CheckDataReg() As String
        
Set(ByVal Value As String)
            
Me.Attributes.Add("check", Value)
        
End Set
        
Get
            
If Me.Attributes.Item("check"Is Nothing Then
                
Return ""
            
End If
            
Return Me.Attributes.Item("check").ToString()
        
End Get
    
End Property



#End Region


验证错误的提示信息#Region "验证错误的提示信息"
    
<Description("验证错误提示信息")> _
      
Property CheckErrorMessage()Property CheckErrorMessage() As String

        
'添加提示信息
        Set(ByVal Value As String)
            ViewState(
"msg"= Value
            
Me.Attributes.Add("warning", Value)
        
End Set
        
Get
            
If (ViewState("msg"Is NothingThen
                
Return ""
            
Else
                
Return ViewState("msg").ToString()
            
End If
        
End Get

    
End Property

#End Region



    
'根据传入的ID设置下拉列表框的默认选项,如果没有找到,选第一项,不抛出异常。
    '<param name="listValue">ID值</param>
函数实现  setSelectedByValue#Region "函数实现  setSelectedByValue"
    
Public Sub SetSelectedByValue()Sub SetSelectedByValue(ByVal listValue As String)

        
Me.SelectedIndex = -1
        
If (listValue = "True"Then
            listValue 
= "1"
        
End If
        
If (listValue = "False"Then
            listValue 
= "0"
        
End If
        
Dim item As ListItem
        
Dim i As Int32 = 0
        
For Each item In Me.Items
            
If (item.Value.Equals(listValue)) Then
                
' item.Selected = True
                Me.SelectedIndex = i
                
Return
            
End If
            i 
= i + 1
        
Next
        
'Me.SelectedIndex = 0
    End Sub

#End Region


    
' 根据传入的文本内容设置下拉列表框的默认选项,如果没有找到,选第一项,不抛出异常。
    ' <param name="listValue">文本内容</param>
函数实现  SetSelectedByText#Region "函数实现  SetSelectedByText"
    
Public Sub SetSelectedByText()Sub SetSelectedByText(ByVal listText As String)
        
Me.SelectedIndex = -1
        
Dim item As ListItem
        
For Each item In Me.Items
            
If item.Text.Equals(listText) Then
                item.Selected 
= True
                
Return
            
End If
        
Next
        
'Me.SelectedIndex = 0
    End Sub

#End Region


    
' 传入查询语句,绑定下拉列表框。正确执行返回空字符串,不正确返回错误信息
    ' <param name="sqlString">查询语句</param>
    ' <returns>正确执行返回空字符串,不正确返回错误信息</returns>
函数实现  bindList#Region "函数实现  bindList"
    
Public Function BindListBySQL()Function BindListBySQL(ByVal sqlString As StringByVal isAddItem As BooleanAs String

        
Dim dal = New DataAccessLayer
        
'Me.DataSource = PublicClass.GetDataTableBySQL(sqlString)
        Me.DataSource = dal.RunSqlDataTable(sqlString)
        
Me.DataBind()
        
If isAddItem Then
            
'Me.Items.Insert(0, New ListItem("请选择", "-2"))
        End If
        
Return ""

    
End Function

#End Region



    
' 传入查询语句,绑定下拉列表框。正确执行返回空字符串,不正确返回错误信息
    ' <param name="sqlString">查询语句</param>
    ' <returns>正确执行返回空字符串,不正确返回错误信息</returns>
函数实现  bindList#Region "函数实现  bindList"
    
Public Function BindListByStore()Function BindListByStore(ByVal store As StringAs String

        
Dim dal As New DataAccessLayer
        
Me.DataSource = dal.RunStoreDataTable(store)
        
Me.DataBind()
        
Dim Err As String = dal.ErrorMsg
        dal.Dispose()
        
If (Err.Length < 2Then
            
Return ""
        
Else
            
Return Err
        
End If
    
End Function

#End Region



    
' 添加日期。给下拉列表框填充从 1 到 lastDay 的数据。value 和 text 值一致。
    ' <param name="lastDay">最后一天</param>
    ' <param name="isAddDefaultItem">是否添加 “请选择”</param>
函数实现  ItemAddDate#Region "函数实现  ItemAddDate"
    
Public Sub ItemAddDate()Sub ItemAddDate(ByVal lastDay As Int32)
        
Dim i As Int32
        
For i = 1 To lastDay
            
Me.Items.Add(New ListItem(i.ToString(), i.ToString()))
        
Next
    
End Sub

#End Region


    
' 添加月份。给下拉列表框填充从 1 到 12 的数据。value 和 text 值一致。
    ' <returns></returns>
函数实现  ItemAddMonth#Region "函数实现  ItemAddMonth"
    
Public Sub ItemAddMonth()Sub ItemAddMonth()
        
Dim i As Int32
        
For i = 1 To 12
            
Me.Items.Add(New ListItem(i.ToString(), i.ToString()))
        
Next
    
End Sub


#End Region


    
' 用两个字符串来添加选项。
    ' <param name="texts">显示的内容,用的字符串,用“~”分开。</param>
    ' <param name="values">value值,用的字符串,用“~”分开。</param>
函数实现  AddItemByString#Region "函数实现  AddItemByString"
    
Public Sub AddItemByString()Sub AddItemByString(ByVal values As StringByVal texts As String)

        
Dim strText As String() = texts.Split("~")
        
Dim strValue As String() = values.Split("~")
        
Dim i As Int32
        
For i = 1 To strText.Length
            
Me.Items.Add(New ListItem(strText(i), strValue(i)))
        
Next
    
End Sub


#End Region


    
' 用一个字符串来添加选项。value在前,Text在后
    ' <param name="texts">显示的内容,用的字符串,用“~”分开。</param>
函数实现  AddItemByString#Region "函数实现  AddItemByString"
    
Public Sub AddItemByString()Sub AddItemByString(ByVal TextsAndValues As String)

        
Dim str As String() = TextsAndValues.Split("~")
        
Dim Len As Int32 = str.Length \ 2
        
Dim i As Int32
        
For i = 0 To Len - 1
            
Me.Items.Add(New ListItem(str(Len + i), str(i)))
        
Next
    
End Sub


#End Region


    
' 用两个数组来添加选项。
    ' <param name="texts">显示的内容。</param>
    ' <param name="values">value值。</param>
函数实现  AddItemByArray#Region "函数实现  AddItemByArray"
    
Public Sub AddItemByArray()Sub AddItemByArray(ByVal values As String(), ByVal texts As String())
        
Dim i As Int32

        
For i = 0 To texts.Length
            
Me.Items.Add(New ListItem(texts(i), values(i)))
        
Next
    
End Sub


#End Region


    
' 用一个数组来添加选项。values在前,Text在后
    ' <param name="texts">显示的内容,用的字符串,用“~”分开。</param>
    ' <returns></returns>
函数实现  AddItemByArray#Region "函数实现  AddItemByArray"
    
Public Sub AddItemByArray()Sub AddItemByArray(ByVal ValuesAndTexts As String())

        
Dim len As Int32 = ValuesAndTexts.Length / 2
        
Dim i As Int32
        
For i = 0 To len
            
Me.Items.Add(New ListItem(ValuesAndTexts(len + i), ValuesAndTexts(i)))
        
Next
    
End Sub


#End Region


    
' 用一个二维数组来添加选项。values在前,Text在后
    ' <param name="texts">显示的内容,用的字符串,用“~”分开。</param>
函数实现  AddItemByArrayTwo#Region "函数实现  AddItemByArrayTwo"
    
Public Sub AddItemByArrayTwo()Sub AddItemByArrayTwo(ByVal ValuesAndTexts As String(,))

        
Dim len As Int32 = ValuesAndTexts.Length / 2 - 1
        
Dim i As Int32
        
For i = 0 To len
            
Me.Items.Add(New ListItem(ValuesAndTexts(i, 1), ValuesAndTexts(i, 0)))
        
Next
    
End Sub


#End Region


设置设计时的显示页面#Region " 设置设计时的显示页面"

    
' 将此控件呈现给指定的输出参数。
    ' <param name="output"> 要写出到的 HTML 编写器 </param>
    Protected Overrides Sub Render()Sub Render(ByVal output As HtmlTextWriter)
        
If ((Not MyBase.Site Is NothingAndAlso MyBase.Site.DesignMode) Then
            
MyBase.Render(output)
        
Else
            output.Write(
"<span class=""lst"">")
            
MyBase.Render(output)
            output.Write(
"</span>")
        
End If
    
End Sub

#End Region


End Class


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章