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
DataGrid/DataList封装操作函数库！相关推荐
- js的常用封装函数库之Number操作
js的常用封装函数库之Number操作: /* * 函数功能:Number */class NumberFn {/*随机数范围*/random (min, max) {if (arguments.le ...
- 封装绑定以BaseDataList , ListControl 为基类的函数库
可以绑定Datagrid,DataList,DropDownList,RadioList,,,等控件.很想把DataGrid的很多操作都封装了,免得每次copy代码那么累 using System; ...
- 运行库：Windows下MSVC CRT运行库封装fread()函数解析
在介绍运行库的过程中,强调过运行库是具体语言实现的程序和操作系统之间的抽象层.经验表明,任何系统级的软件工程,IO功能的封装历来是最具有挑战性的.以下以Windows下MSVC CRT运行库中封装的文 ...
- C++封装Redis操作函数
C++封装Redis操作函数 1.在Linux上安装Redis 1.1.编译源码安装 1.2.配置redis.service 1.3.安装Redis的c库hiredis 2.Redis常用API 2. ...
- php中操作mysql的函数库
发现php中的mysql库是一个函数库 而不是一个类库 使用面向过程的形式组织. mysql_affected_rows -- 取得前一次 MySQL 操作所影响的记录行数 mysql_change ...
- php怎么上传函数,PHP单文件上传原理及上传函数的封装操作示例
搜索热词 @H_404_0@本文实例讲述了PHP单文件上传原理及上传函数的封装操作.分享给大家供大家参考,具体如下: @H_404_0@表单: @H_404_0@0.PHP: 无标题文档 请选择您要上 ...
- 封装一个信号量集操作函数的工具
信号量的概念参见这里. 与消息队列和共享内存一样,信号量集也有自己的数据结构: struct semid_ds { struct ipc_perm sem_perm; /* Ownership an ...
- python 标准库 excel_Python 操作 Excel 的函数库
1. Python 操作 Excel 的函数库 我主要尝试了 3 种读写 Excel 的方法: 1> xlrd, xlwt, xlutils: 这三个库的好处是不需要其它支持,在任何操作系统上都 ...
- pb函数库之字符串操作函数
pb函数库之字符串操作函数 Fill()功能建立一个由指定字符串填充的指定长度的字符串. 语法Fill ( chars, n ) 参数chars:string类型,指定用于重复填充的字符串n: ...
最新文章
- tomcat中间件的默认端口号_等保2.0涉及的Apache Tomcat中间件（下）
- [网络安全自学篇] 八十.WHUCTF之WEB类解题思路WP（代码审计、文件包含、过滤绕过、SQL注入）
- mysql回滚与错误提示_对mysql事务提交、回滚的错误理解 – jae – 博客园
- echarts饼状图mysql_echarts饼状图位置设置
- mysql set语句_MySQL Prepared语句简介
- vmware中装的ubuntu上不了网
- 获取 Windows 窗体 DataGridView 控件中选定的单元格、行和列
- 微软一站式示例代码库（中文版）2011-03-10版本， 新添加20个示例
- c语言如果x小于,请达人帮忙做份C语言试卷，谢谢了
- 关于EasyUI在Datagrid里面将某一列设置为超链接并传递当前行的某一参数传递给打开的对话框。
- deepin linux mac主题,deepin，安装GNOME桌面环境，类mac界面美化
- 湖南科技大学计算机实力强吗,湖南省这2所重点大学，吉首大学和湖南科技大学，谁的实力更强...
- 在ABBYY FineReader中制作屏幕截图和识别文本
- MDK5.30下载来了，含镜像下载地址，ARM同时带来Cortex-M55调试展示（2020-05-05）
- 清华大学就光刻机发声，ASML立马加紧向中国出口光刻机
- 数据分析真题日刷 | 招商银行信用卡中心2019秋招IT笔试（数据挖掘方向第二批）
- linux ftp去不了文件损坏,Linux下使用ftp上传压缩文件，windows下载打开损坏问题
- Python词法分析器实现
- 视频播放器（一）：流程
- 2021华为软件精英挑战赛（杭厦第20名）
热门文章
- 手机麦克风声音太大_全民K歌必备利器，得胜PH-125手机K歌麦克风让你轻松拥有好声音...
- java多线程操作同一资源
- Java中怎样使用反射根据属性名获取和设置属性的值
- C#中使用二进制和ProtoBuf分别进行序列化、反序列化、压缩、解压缩对比测试汇总
- Vue实现仿音乐播放器11-实现访问百度音乐API实现播放音乐功能
- www/index.html would like to use your current location
- 一个成功敏捷团队的失败历程
- Use Cases in an Agile Backlog
- 计算机转型展望未来大发展,市计算机：披荆斩棘砥砺前行，勠力同心展望未来...
- html 如何让div刷新页面,页面刷新.html