當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

DataGrid/DataList封装操作函数库！

發布時間：2025/3/19 编程问答 38 豆豆

生活随笔收集整理的這篇文章主要介紹了 DataGrid/DataList封装操作函数库！小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

ASP.NET似乎少不了DataGrid，應用過程中多少會用到單擊/雙擊等等事件處理，我在工作中封裝了一些函數，希望對大家有用。做了多次重載，應付多種情況。

??? Public Enum enumControlType
??????? ctLinkButton
??????? ctImageButton
??????? ctRequiredFieldValidator
??????? ctRadioButton
??????? ctRangeValidator
??? End Enum

#Region "DataGrid控制"
??? Public Shared Sub ConfirmDBGridItemClick(ByVal e As DataGridItemEventArgs, _
???????????????????????????????????????????? ByVal strName As String, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal udeControlType As enumControlType = enumControlType.ctLinkButton, _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/27 14:38
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：
??????? ConfirmDBGridItemClick(e.Item, strName, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, udeControlType, strToolTip)
??? End Sub

??? Public Shared Sub ConfirmDBListItemClick(ByVal e As DataListItemEventArgs, _
???????????????????????????????????????????? ByVal strName As String, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal udeControlType As enumControlType = enumControlType.ctLinkButton, _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBListItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/27 14:38
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：
??????? ConfirmDBListItemClick(e.Item, strName, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, udeControlType, strToolTip)
??? End Sub

??? Public Shared Sub ConfirmDBListItemClick(ByRef dliItem As DataListItem, _
???????????????????????????????????????????? ByVal strName As String, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal udeControlType As enumControlType = enumControlType.ctLinkButton, _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBListItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? With dliItem
??????????? If .ItemIndex >= 0 Then
??????????????? Select Case udeControlType
??????????????????? Case enumControlType.ctLinkButton
??????????????????????? Dim o_lkbItem As LinkButton
??????????????????????? o_lkbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_lkbItem, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, strToolTip)
??????????????????? Case enumControlType.ctImageButton
??????????????????????? Dim o_imbItem As ImageButton
??????????????????????? o_imbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_imbItem, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, strToolTip)
??????????????????? Case enumControlType.ctRequiredFieldValidator
??????????????????????? Dim o_rfvItem As RequiredFieldValidator
??????????????????????? o_rfvItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_rfvItem, strMessage)
??????????????????? Case enumControlType.ctRadioButton
??????????????????????? Dim o_rdbItem As RadioButton
??????????????????????? o_rdbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_rdbItem, strText)
??????????????????? Case enumControlType.ctRangeValidator
??????????????????????? Dim o_rdbItem As RangeValidator
??????????????????????? o_rdbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_rdbItem, strText)
??????????????? End Select
??????????? End If
??????? End With
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef dgiItem As DataGridItem, _
???????????????????????????????????????????? ByVal strName As String, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal udeControlType As enumControlType = enumControlType.ctLinkButton, _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? With dgiItem
??????????? If .ItemIndex >= 0 Then
??????????????? Select Case udeControlType
??????????????????? Case enumControlType.ctLinkButton
??????????????????????? Dim o_lkbItem As LinkButton
??????????????????????? o_lkbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_lkbItem, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, strToolTip)
??????????????????? Case enumControlType.ctImageButton
??????????????????????? Dim o_imbItem As ImageButton
??????????????????????? o_imbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_imbItem, strMessage, strText, blnConfirm, blnCustomScript, strCommandName, strToolTip)
??????????????????? Case enumControlType.ctRequiredFieldValidator
??????????????????????? Dim o_rfvItem As RequiredFieldValidator
??????????????????????? o_rfvItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_rfvItem, strMessage)
??????????????????? Case enumControlType.ctRadioButton
??????????????????????? Dim o_rdbItem As RadioButton
??????????????????????? o_rdbItem = .FindControl(strName)
??????????????????????? ConfirmDBGridItemClick(o_rdbItem, strText)
??????????????? End Select
??????????? End If
??????? End With
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef rdbItem As RadioButton, _
???????????????????????????????????????????? ByVal strText As String)
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? If Not rdbItem Is Nothing Then
??????????? With rdbItem
??????????????? .Text=strText
??????????? End With
??????? End If
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef rfvItem As RangeValidator, _
???????????????????????????????????????????? ByVal strMessage As String)
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? If Not rfvItem Is Nothing Then
??????????? With rfvItem
??????????????? .ErrorMessage=strMessage
??????????? End With
??????? End If
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef rfvItem As RequiredFieldValidator, _
???????????????????????????????????????????? ByVal strMessage As String)
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? If Not rfvItem Is Nothing Then
??????????? With rfvItem
??????????????? .ErrorMessage=strMessage
??????????? End With
??????? End If
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef imbButton As ImageButton, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? If Not imbButton Is Nothing Then
??????????? With imbButton
??????????????? If blnConfirm Then
??????????????????? Dim o_strScript As String
??????????????????? If blnCustomScript Then
??????????????????????? o_strScript = strText
??????????????????? Else
??????????????????????? o_strScript = "return confirm('" & strMessage & "')"
??????????????????? End If
??????????????????? .Attributes.Add("onclick", o_strScript)
??????????????? End If
??????????????? .CommandName, strCommandName)
??????????????? .ToolTip=strToolTip
??????????? End With
??????? End If
??? End Sub

??? Public Shared Sub ConfirmDBGridItemClick(ByRef lkbButton As LinkButton, _
???????????????????????????????????????????? ByVal strMessage As String, _
???????????????????????????????????????????? Optional ByVal strText As String = "", _
???????????????????????????????????????????? Optional ByVal blnConfirm As Boolean = True, _
???????????????????????????????????????????? Optional ByVal blnCustomScript As Boolean = False, _
???????????????????????????????????????????? Optional ByVal strCommandName As String = "", _
???????????????????????????????????????????? Optional ByVal strToolTip As String = "")
??????? '名稱：ConfirmDBGridItemClick
??????? '功能：確認表格行按鈕（同時處理多語言）
??????? '作者：chs
??????? '創建：2004/4/12
??????? '修改：2004/4/29 09:33
??????? '參數：：
??????? '????? ：
??????? '返回：成功，True，反之，False
??????? '說明：

??????? If Not lkbButton Is Nothing Then
??????????? With lkbButton
??????????????? If blnConfirm Then
??????????????????? Dim o_strScript As String
??????????????????? If blnCustomScript Then
??????????????????????? o_strScript = strMessage 'strText
??????????????????? Else
??????????????????????? o_strScript = "return confirm('" & strMessage & "')"
??????????????????? End If
??????????????????? .Attributes.Add("onclick", o_strScript)
??????????????? End If
??????????????? .Text=strText
??????????????? .CommandName=strCommandName
??????????????? .ToolTip=strToolTip
??????????? End With
??????? End If
??? End Sub
#End Region

轉載于:https://www.cnblogs.com/unruledboy/archive/2004/06/03/13076.html

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的DataGrid/DataList封装操作函数库！的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

上一篇：看了msn的站点有感
下一篇： DataObjects.NET -- A