度量快速开发平台自定义控件与自定义事件的使用方法-创新互联
定义控件:
为通化等地区用户提供了全套网页设计制作服务,及通化网站建设行业解决方案。主营业务为成都网站制作、网站建设、外贸网站建设、通化网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!'定义控件,平台支持使用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
创新互联www.cdcxhl.cn,专业提供香港、美国云服务器,动态BGP最优骨干路由自动选择,持续稳定高效的网络助力业务部署。公司持有工信部办法的idc、isp许可证, 机房独有T级流量清洗系统配攻击溯源,准确进行流量调度,确保服务器高可用性。佳节活动现已开启,新人活动云服务器买多久送多久。
文章标题:度量快速开发平台自定义控件与自定义事件的使用方法-创新互联
文章转载:http://myzitong.com/article/copeec.html