Foxtable(狐表)用户栏目专家坐堂 → 动态添加控件


  共有2137人关注过本帖树形打印复制链接

主题:动态添加控件

帅哥哟,离线,有人找我吗?
菲舍尔
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:509 积分:3547 威望:0 精华:3 注册:2012/11/13 15:49:00
  发帖心情 Post By:2016/10/30 22:57:00 [显示全部帖子]

动态增加按钮可以看帮助

加click事件处理代码用 addhandler

为第三方控件定义事件过程

本节内容针对专业程序员,一般用户可以忽略。

下面用一个简单的例子,说明如何添加第三方控件,并为其定义事件过程。
以.Net Framework 2.0中的Button控件为例。

1、在全局代码中加入用于处理Button控件的Click事件的过程:

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  
MessageBox.Show("这是自定义事件!")
End
Sub

提示:过程必须是Public的,否则无法调用。

2、新建一个窗口,在窗口的AfterLoad事件加入代码:

Dim ct As New Windows.Forms.Button
ct
.Text = "我的按钮"
e
.Form.Panel.Controls.Add(ct)
AddHandler
ct.Click, AddressOf Button1_Click

3、现在打开窗口,单击按钮,可以发现执行了我们在全局代码中为此按钮定义的Click事件代码。

提示

为第三方控件指定事件过程的语句是AddHandler,此语句的语法为:

AddHandler 控件.事件, AddressOf 过程名 

 回到顶部