度量快速开发平台自定义控件与自定义事件的使用方法
2015-10-27 16:58
519 查看
定义控件:
'定义控件,平台支持使用net环境中自带的各种控件,使用各种属性,方法和事件
dim textBox=createObject("System.Windows.Forms.TextBox")
''设置属性及显示到容器中
textBox.Text=".net自带的控件"
textBox.Dock = DockStyle.Fill
容器控件1.Controls.Add(textBox)
'--------------------自定义控件完成---------------------------
'--------------------挂载自定义事件---------------------------
'控件自定义事件(包括平台本身的控件事件和完全自定义控件的事)
'me.AttachEventHandler(控件名称,"事件名称","调用的功能名称")
'事件名称,请参考.net开发环境中的各事件。
me.AttachEventHandler(文本输入框1,"KeyDown","文本框按下")
'--------------------挂载自定义事件完成---------------------------
'--------------文本框按下(在功能中建立一个 "文本框按下")----------
'textBox1_KeyPress(objectsender, KeyPressEventArgs e)
'事件的sender 对应 this.Input1
'事件的 e 对应 this.Input2
if this.Input2.KeyValue.ToString()="13"then
msgbox("在文本上已经按了回车键!")
end if
'-------------------------文本框按下代码完-------------------------
'------------给记录部件上的一个字段挂载事件---------------------------
'给记录部件上的一个字段上挂载事件的方法
'例如把一个字段名称设置为密码显示,并在按下回车后触发事件
Dim MyField=记录部件1.GetFieldControlByFieldName("字段名称")
MyField.Properties.PasswordChar= System.Convert.ToChar(42)
me.AttachEventHandler(MyField,"KeyDown","文本框按下")
'------------给记录部件上的一个字段挂载事件完成---------------------------
[size=13.3333px]图示:
原文地址;http://plat.delit.cn/thread-192-1-1.html
转载请注明出处:
撰写人:度量科技http://www.delit.cn
'定义控件,平台支持使用net环境中自带的各种控件,使用各种属性,方法和事件
dim textBox=createObject("System.Windows.Forms.TextBox")
''设置属性及显示到容器中
textBox.Text=".net自带的控件"
textBox.Dock = DockStyle.Fill
容器控件1.Controls.Add(textBox)
'--------------------自定义控件完成---------------------------
'--------------------挂载自定义事件---------------------------
'控件自定义事件(包括平台本身的控件事件和完全自定义控件的事)
'me.AttachEventHandler(控件名称,"事件名称","调用的功能名称")
'事件名称,请参考.net开发环境中的各事件。
me.AttachEventHandler(文本输入框1,"KeyDown","文本框按下")
'--------------------挂载自定义事件完成---------------------------
'--------------文本框按下(在功能中建立一个 "文本框按下")----------
'textBox1_KeyPress(objectsender, KeyPressEventArgs e)
'事件的sender 对应 this.Input1
'事件的 e 对应 this.Input2
if this.Input2.KeyValue.ToString()="13"then
msgbox("在文本上已经按了回车键!")
end if
'-------------------------文本框按下代码完-------------------------
'------------给记录部件上的一个字段挂载事件---------------------------
'给记录部件上的一个字段上挂载事件的方法
'例如把一个字段名称设置为密码显示,并在按下回车后触发事件
Dim MyField=记录部件1.GetFieldControlByFieldName("字段名称")
MyField.Properties.PasswordChar= System.Convert.ToChar(42)
me.AttachEventHandler(MyField,"KeyDown","文本框按下")
'------------给记录部件上的一个字段挂载事件完成---------------------------
[size=13.3333px]图示:
原文地址;http://plat.delit.cn/thread-192-1-1.html
转载请注明出处:
撰写人:度量科技http://www.delit.cn
相关文章推荐
- iOS 9 新特性之实现 3D Touch 就是 So easy -- OC版
- fill和fill_n函数的应用
- 006.self 作为方法的返回值
- 【iOS】使用 Reachability 第三方库 检测网络
- Android studio 创建百度地图应用
- Linux初学笔记之<用户和用户组操作>
- (一)MySQL InnoDB事务模型
- 3.12伪代码
- 运用java在数组键盘输入的位置加入元素
- 使用TCP传输从客户端上传文件到服务器端
- 1044 - Palindrome Partitioning(区间DP)
- javascript已知函数名调用函数
- 007.id 类型
- 图像直方图实现
- 调用layoutSubviews各种情况分析
- android netd 笔记
- Ubuntu 12.04下配置JDK7
- 如何更新android应用的包名
- 设置RGBColor
- java关键字this使用