jqgrid 单元格绑定点击事件_自定义事件带参数的触发过程
(接上讲)
这一讲我们先继续上一讲类模块代码的讲解:
6 Private Sub mySht_Change(ByVal Target As Range)
RaiseEvent mySelectRanA(myHS, myLS)
End Sub
这段代码是一个Change过程,这个也就是说当响应类对象的mySht发生改变时将要执行这个过程,这个过程的执行中会有一个参数传递进来,这个参数就是Target ,是一个按照值来传递的单元格。
在执行这个过程中会触发mySelectRanA事件。关键字是RaiseEvent,就是触发事件。触发这个事件的时候,同时会传递两个参数myHS, myLS。关于这个事件的详细讲解会在之后进行,我现在先把每个过程给大家讲一下。
7 Private Sub mySht_SelectionChange(ByVal Target As Range)
myHS = Target.Row
myLS = Target.Column
If Mid(Target.Address, 2, 1) = "A" Then
RaiseEvent mySelectRan
End If
End Sub
这个过程和上一个过程相类似,是一个工作表发生改变时候将要执行的过程,这个过程中会有两个动作:
第一 给宿主参数赋值myHS = Target.Row myLS = Target.Column。myHS和myLS是类属性的两个宿主,在这里当工作表发生改变时,给这两个宿主赋值,赋值的意义就是取得当前点击单元格的行数和列数。
第二 触发mySelectRan事件。触发这个mySelectRan事件是有条件的,就是Mid(Target.Address, 2, 1) = "A",这个条件如何理解呢?就是点击的是A列的单元格,由于Target.Address返回的单元格地址是一个绝对的引用,所以我们用的是Mid(Target.Address, 2, 1),当然,这里的逻辑不是十分的严谨,当单击“AB”单元格时也会同样认为是A列的单元格,大家可以想一想有没有更好的方法,精确地返回A列,对的,只要再加上一个判断条件,判断一下第三个字符应该是“$”即可。触发这个事件是没有参数传递的。
8 Public Property Get HS() As Integer '属性: 读
HS = myHS
End Property
Public Property Get LS() As Integer '属性: 读
LS = myLS
End Property
上面的过程是一个属性值的读取过程,也就是将宿主的值传递给属性值。这个过程是比较容易理解的,不再多说了。
到这里,整个类模块的内容就讲解完成了,下面我们要让类模块发挥作用了。类的作用是什么呢?我们在之前的讲解中讲过,类是一个魂,是没有肉身的,只有具有了肉身即实例化之后,才能占用内存。那么类的魂是如何赋给肉身呢?
看我们的工作表代码,首先看工作表“51”的代码:
Private WithEvents MyS As mysheet
Private Sub MyS_mySelectRan()
MsgBox "你单击了A列单元格"
End Sub
Private Sub Worksheet_Activate()
Set MyS = New mysheet
Set MyS.mySht = Sheets("51")
End Sub
Private Sub Worksheet_Deactivate()
Set MyS = Nothing
End Sub
代码的截图:
代码讲解,大家要留意我上面代码过程中圈的重点:
1 代码是写在了工作表的代码中,是这个工作表的私有代码,所以每个过程都有标识Private Sub。
2 代码的头部即声明部分我给出了一个非常重要的声明:
Private WithEvents MyS As mysheet
这个声明是什么意义呢?我来给大家详细地分析。这里的关键字是WithEvents,这个关键字是说将要声明一个对象用来响应我们的mysheet类的事件,什么对象呢?就是MyS ,将这个对象声明为什么呢?要声明为mysheet类。大家要留意这种写法。
(待续,下一讲我们继续讲解)
今日内容回向:
1 触发事件的关键字是什么?
2 声明对象相应类事件的关键字是什么?
备注:本讲代码参考程序文件:VBA-CLASS(下51-56).xlsm
在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。
学习VBA是个过程,这个过程是自己忍受孤独的过程。
“水善利万物而不争”,你看她绵绵密密,微处则无声,巨则汹涌。学习亦如此,把握现在,为达千里,需要默默耕耘,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时去自欺欺人。要在当下,用一颗充满生机的心灵,努力提高自己,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。一杯茶,满也好,少也好,不要去计较;浓也好,淡也好,其中都有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。一切众生的心都在变化,像时间一样,永远不会停留,把握现在就是福报。
VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程,回向给需要学习的朋友:
第一套:VBA代码解决方案 是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;
第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习。
第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。
第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,可以对促进自己理论的提高。
学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。在平静中积累自己的财富。我的上述教程是我多的经验的传递,大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。
最后将一阙词送给致力于VBA学习的朋友:
浮云掠过,暗语无声,
唯有清风,惊了梦中啼莺。
望星,疏移北斗,
奈将往事雁同行。
阡陌人,昏灯明暗,忍顾长亭。
多少VBA人,
暗夜中,悄声寻梦,盼却天明。
怎无凭!
分享成果,随喜正能量
jqgrid 单元格绑定点击事件_自定义事件带参数的触发过程相关推荐
- jqgrid 单元格自动换行且垂直居中
jqgrid 单元格自动换行且垂直居中 在jqgrid.css文件中加入css代码: .ui-jqgrid tr.jqgrow td { white-space: normal !import ...
- vue中 点击事件的写法_vue中的事件:原生事件与自定义事件__Vue.js
模板编译 processAttrs 对于ast attributes处理(v-on/@) 利用onRE与dirRE来捕获事件 这里最重要的就是dynamic的判断,vue中可以用动态参数来命名事件名称 ...
- Excel:技巧:如何:图片随着单元格变化+双击图片会出现系统自带的绘画工具显示图片
目录 一.目的 1.想知道:如何:图片随着单元格变化+双击图片会出现系统自带的绘画工具显示图片 1.一开始想表格插入图片,找到方法查看图片大图 二.参考 三.注意 1.最终发现:操作:1:随着图片越来 ...
- EasyExcel合并单元格,通过注解方式实现自定义合并策略
EasyExcel合并单元格,通过注解方式实现自定义合并策略 简介 今天博主探讨如何实现EasyExcel自定义实现单元格合并策略,考虑需要抽象代码.适用于更多的业务场景,提供了两个工具类,参考过很多 ...
- 04jquery事件_合成事件hover()使用
04jquery事件_合成事件hover(事件切换hover(鼠标移上来, 鼠标移下去)) 方法解析 代码 hover(over, out) $("td").hover( func ...
- JS基础-事件模型(事件事件流自定义事件事件冒泡/代理)
文章目录 一.事件与事件流 二.事件模型 1.DOM0级模型 2.IE事件模型 3.DOM2级模型 4.DOM3级事件处理方式 三.事件对象 四.事件绑定与解除 1.事件绑定 1.1对象.on事件名字 ...
- html加上 extjs右键,extjs 处理HTML事件和自定义事件
1. 处理HTML元素的标准事件 HTML元素的标准事件是指mouseover.mousedown.click. blur.focus.change等.在ExtJS中,这些事件的处理如下: 注册一个事 ...
- 63.ExtJs事件(自定义事件、on、eventManager)示例
转自:https://blog.csdn.net/leadergg/article/details/5927614?utm_source=blogxgwz5 ExtJs事件(自定义事件.on.even ...
- 前端click事件及自定义事件
响应式页面开发 常见的前端响应式开发有3套相应的解决方案: bootstrap 的 columns 布局 : 2. 使用全局的rem (页面所有元素的宽高和字体都用rem等比缩放) 使用阿里的flex ...
最新文章
- ES权威指南[官方文档学习笔记]-14 phrase search
- Special Judge Ⅲ(这道题考的就是出栈序列判定_关键代码不差什么)
- 2012自动登录服务器,配置Windows自动登录 - Windows Server | Microsoft Docs
- linux sftp创建多用户,linux下SFTP多用户创建
- 使用Axure制作App原型的尺寸设置
- 关于以追加模式写入文件时,为什么第一行是空行?
- HDU 1176 免费馅饼
- jzoj6826-[2020.10.17提高组模拟]隔膜【博弈论】
- 如何写一个不带BOM的UTF8文件
- 基础学习 Linux命令
- 安卓端和IOS端小程序蓝牙通讯问题
- python commands执行不连续_python中的commands模块,执行出错:'{' 不是内部或外部命令,也不是可运行的程序 或批处理文件。...
- 身份证识别(一)——身份证正反面与头像检测
- illumina平台的一些扩增子测序项目介绍
- 【GDKOI2013】琪露诺的完美算法课
- 智能隐形眼镜的研究进展与挑战
- 成都1008 hdu4038
- uniapp设置整个页面背景颜色渐变,设置单个页面背景颜色
- AIWIN 心电图智能诊断Baseline【线上0.719】
- weblogic卸载 for linux
热门文章
- TCP/IP常见英文缩写释义
- SAP 画皮门 从白狐到超人的华丽转身
- flutter 调用原生安卓插件_Flutter 如何调用Android和iOS原生代码
- 站长之家html视频播放,HTML5视频发展状况
- qtdesigner怎么实现菜单栏跳转_人人都可写代码-Android零基础编程-app 入口菜单栏实操08...
- concurrenthashmap_ConcurrentHashMap实现原理及源码分析
- jquery 对 Json 的各种遍历
- mysql sqlstate 28000_mysql ERROR 1045 (28000): 错误解决办法
- MATLAB使用方法和程序设计,实验1 MATLAB使用方法和程序设计
- python count函数时间复杂度_Python(算法)-时间复杂度和空间复杂度