哪位大侠知道，吱一声........
-
等级
本版专家分：13915勋章
-
-
红花
2016年3月 VB大版内专家分月排行榜第一
2015年1月 VB大版内专家分月排行榜第一
2014年12月 VB大版内专家分月排行榜第一
-
-
黄花
2015年4月 VB大版内专家分月排行榜第二
2015年3月 VB大版内专家分月排行榜第二
2014年11月 VB大版内专家分月排行榜第二
2014年10月 VB大版内专家分月排行榜第二
-
- 蓝花 2014年4月 VB大版内专家分月排行榜第三
结帖率 100% -
-
如题。其实是在练习用interfaceinfo枚举/设置对象的属性时突发奇想，因为既然属性，方法都能列出来，那么事件也应该可以的，不过很遗憾，没有列出事件的名称。
哪位大侠知道，吱一声........
展开阅读全文
-
等级
本版专家分：60457勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
我好像记得那个interfaceinfo只能在IDE中用的，编译成exe后运行就没效果了。
-
等级
本版专家分：60457勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
刚才“研究”了一下，发现还是可以实现的。
先上张效果图：
窗口内两个列表控件，左边的是List1，右边的是List2。
全部代码如下：
Option Explicit
Private objApp As Object
Private objTI As Object
Private Sub EnumVBObjectEvents(ClassName As String)
Dim cci As Object
Dim mi As Object
Dim i As Long
For Each cci In objTI.CoClasses
If (ClassName = cci.Name) Then
For i = 1 To cci.Interfaces(2).Members.Count
Set mi = cci.Interfaces(2).Members(i)
List2.AddItem mi.Name
Set mi = Nothing
Next
End If
Next
End Sub
Private Sub EnumControls()
Dim cci As Object
For Each cci In objTI.CoClasses
If (2 = cci.Interfaces.Count) Then
If (cci.Interfaces(2).Members.Count) Then List1.AddItem cci.Name
End If
Next
Set cci = Nothing
End Sub
Private Sub cmdDispEvents_Click()
List2.Clear
Call EnumVBObjectEvents(List1.Text)
End Sub
Private Sub Form_Load()
List1.Clear
Set objApp = CreateObject("TLI.TLIApplication")
Set objTI = objApp.TypeLibInfoFromRegistry( _
"{FCFB3D2E-A0FA-1068-A738-08002B3371B5}", 6, 0, 9)
Call EnumControls
List1.Selected(0) = True ' 先把第1个选上再说
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objTI = Nothing
Set objApp = Nothing
End Sub
-
等级
本版专家分：60457勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
编译成 .exe居然也能正常运行。
记得以前写的是“列举属性”，编译成 .exe后不能运行。不知道会不会跟操作系统有关。
一如既往哈
等级：
-
-
红花
2016年3月 VB大版内专家分月排行榜第一
2015年1月 VB大版内专家分月排行榜第一
2014年12月 VB大版内专家分月排行榜第一
-
-
黄花
2015年4月 VB大版内专家分月排行榜第二
2015年3月 VB大版内专家分月排行榜第二
2014年11月 VB大版内专家分月排行榜第二
2014年10月 VB大版内专家分月排行榜第二
-
- 蓝花 2014年4月 VB大版内专家分月排行榜第三
- easyui-textbox绑定事件
$('#clientID').textbox({ inputEvents: $.extend({},$.fn.textbox.defaults.inputEvents,{ keyup: function(event){ if(event.keyCode == 13) { alert('OK');...给textbox绑定事件。
- <TextBox TextWrapping="Wrap" ... /> hides text in some layout updates
9. Double click on the title bar several times to change the window's width. <p><strong>Expected behavior</strong></p> <p>The TextBox's actual height should always update automatically so it ...
- WPF中Textbox获取TextChanged事件+键盘事件+右击菜单栏
键盘响应代码： private void textBox_KeyDown(object sender, KeyEventArgs e) { string strMessage = "textBox_KeyDown Event:" + e.RoutedEvent + " " + "Key:" + e.Key; if(listBox!=null) { ...
- c#中textbox属性_C＃.Net中的TextBox.Visible属性与示例
c#中textbox属性Here we are demonstrating use of Visible property of TextBox Control. 在这里，我们演示了TextBox Control的Visible属性的使用。 Visible property contains two values 可见属性包含两个值 ...
- easyui-textbox 绑定事件
$('#Id').textbox({ inputEvents: $.extend({},$.fn.textbox.defaults.inputEvents,{ keyup:function(event){ alert("keyup"); ...
- 新手测试题目的change.aspx与change.cs的内容。
change.aspx的内容： http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http://www.w3.org/1999/xhtml" > 修改记录 text-align: center">
- easy textbox 绑定 单击事件
在点击input框时，需要点击事件...easyui-textbox" id="selector" name="TextName" /> <script type="text/javascript"> $(function(){ $("input&q
- asp.net下绑定TextBox回车事件的解决方法
客户有个需求，要求在输入框中输入任何文本后，可以直接按回车键去触发旁边的搜索按钮。需求不难，但是我不想修改源码，怎么办呢？只好用javascript解决啦。
- asp.net 中textbox为文本值改变时自动触发change事件
一: 添加一个隐藏button <asp:Button ID="Button1" runat="server" Text="Button" onclick="Button1_Click" Width="16px" /> 二: 加入触发时的JS函数,让其按下第一步中添加的按钮...
- easy-ui textbox blur？change？
就为了一个小小的blur事件，尝试了各种方法，百度的也找了很多，花了将近2小时，实在不行想到暂时先用change（值改变）事件替代。 textbox在编辑时只是很简单的一句： 但是经过浏览器解析后，却完全改变了dom...
- textbox的属性_利用类事件改变对象的属性
大家好，我们在之前的讲解中，讲到了类对象属性的赋值及读取办法，也讲了如何赋值给类对象，我们这讲的内容要通过一个实例来讲解如何利用类的事件来改表类对象的属性。在上一讲中我们讲了给类命名事件用Event语句，...
- change事件传新旧值_第七讲：利用类事件改变对象的属性
大家好，我们在之前的讲解中，讲到了类对象属性的赋值及读取办法，也讲了如何赋值给类对象，我们这讲的内容要通过一个实例来讲解如何利用类的事件来改变类对象的属性。在上一讲中我们讲了给类命名事件用Event语句，...
- jQuery-easyUI拓展textbox
easyUI扩展textbox
- C# 解决TextBox中, JS方法(日历)改变Text内容后, 无法触发OnTextChanged事件的问题————详细教程（你就...
1.解决TextBox中, JS方法(日历)改变Text内容后, 无法触发OnTextChanged事件的问题 2.日历控件 文本框改变如何触发事件TextChange事件 问题描述： C# 中textBox为日历格式，怎么触发TextChange事件？ 1.asp:...
- 解决change事件只触发一次的问题
解决change事件只触发一次的问题 今天做一个上传文件绑定事件，代码如下： $("#files").on(“change”,function(){ importData(); }) 但发现第一次上传文件之后，第二次上传就失效了，后来发现我两次上传的都是同一...
- input输入框type=text触发的相关事件
我们书写了mousedown，mouseup，click，input，change，focus，blur，keydowm，keydown事件绑定到了input上面，模拟客户输入相关事件的触发流程： 首先还是先触发了鼠标按下事件，然后触发了焦点，接着鼠标抬起...
- Asp.Net 之 Web.config 配置文件详解
在asp.net中配置文件名一般默认是web.config。每个web.config文件都是基于XML的文本文件，并且可以保存到Web应用程序中的任何目录中。在发布Web应用程序时web.config文件并不编译进dll文件中。如果将来客户端发生了...
- 2016-1-20（document.createEvent事件模拟）
对于这个事件模拟查了而很多资料还是觉得很是模糊，对于一些文档的专业名词很多看不懂，说明自己真的还是不够的，这个真的需要再接再厉了!这万恶的头疼啊，还是来总结一下我查资料的结果吧！ 首先，认识到document....
- 动态添加、删除Textbox
学习的动态添加、删除textbox按钮，这是件很有意思的事，从中我也知道了学习vb语言是件很有用的事， 对我们以后的学习与工作都是很有用的，动态添加、删除textbox的操作过程，如下： Dim with.events ...
- matplotlib部件（widgets）之文本框（TextBox）
文本框概述 文本框是图形化界面（GUI）中常见的控件，matplotlib中的文本框属于部件（widgets），matplotlib中的部件都是...TextBox类的签名为class matplotlib.widgets.TextBox(ax, label, initial='', color='.95'
- vue.js源码
/*! * Vue.js v2.5.21 * (c) 2014-2018 Evan You * Released under the MIT License. */ (function (global, factory) { typeof exports === 'object' && typeof module !... module.exp...
- ASP.NET为textbox 添加 失去焦点事件 和回车失去焦点
则当textbox 失去焦点的时候，触发控件1 的事件。 控件1 的事件可以随意写。 当写为：textbox 的 change 事件时， 就在textbox 失去焦点的时候 执行 textbox 的change事件。//*.aspx无标题页
- 4.为自定义控件添加事件
在这里强调一点 一提到事件 估计你脑子的反映就是控件的那些事件 比如鼠标点击事件 键盘事件什么的 确实 不过在C#中 事件绝对不是只有控件才有的东西 你普通的一个类也可以有事件 对于一些才开始接触C#的人可能有点...
- jq的.off解绑事件
.off( events [, selector ] [, ...一个或多个空格分隔的事件类型和可选的命名空间，或仅仅是命名空间，比如"click", "keydown.myPlugin", 或者 ".myPlugin"。 selector 类型:String 一个选择器，当绑定...
- 代码更加精简. 漂亮 GWT 2.0 UiBinder 研究.如此强大.
以前曾写了一个用 GWT 1.7 的一个 全部的组建的测试. 现在花了 2 天时间将这些代码 改成了 UiBinder 的格式. 代码更加 精简.而且更加的漂亮....<ui:UiBinder xmlns:ui="urn:ui:com.google.gwt
- Change Tab content when button on_click event
<p>I implement the definition in the on_click eventhandler but it seems that the new definition is not communicated outside. <p>Thanks for your help!</p><p>该提问来源于开源项目：jupyter-widgets/...
- CultureNotFoundException in System.Globalization.CultureData.GetCultureData
I can start the app without issues, but as soon as I click on, for example, a TextBox control it crashes with the following message: <code>System.Globalization.CultureNotFoundException: '...
- VBA入门到进阶常用知识代码总结58
第58集 单选复选、框架和多页 ...Private Sub CommandButton1_Click() Dim sr As String If CheckBox1.Value = True Then sr = sr & " " & CheckBox1.Caption If CheckBox2.Value = True Then sr = ...