玉祥平台客服-15087858732

标题: 度量快速开发平台自定义控件与自定义事件的使用方法 [打印本页]

作者: 万望 时间: 2020-3-26 22:35
标题: 度量快速开发平台自定义控件与自定义事件的使用方法

定义控件：

'定义控件,平台支持使用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]图示：

作者: 万望 时间: 2020-3-26 22:35
借花献佛

作者: 陈晓龙 时间: 2020-3-27 09:22
这个主要用在那些方面呢？

作者: 陈晓龙 时间: 2020-3-27 09:24
感觉蛮强大的样！

作者: 张兴康 时间: 2020-3-27 17:42
主要可以用来干嘛？

作者: 张兴康 时间: 2020-3-27 17:42

陈晓龙发表于 2015-10-27 09:24
感觉蛮强大的样！

我也觉得挺强大的

作者: 王爱东 时间: 2020-3-27 19:02
这个用处太多了。各种实现。比如直接打开本地文件等。

作者: 万望 时间: 2020-3-28 03:43

陈晓龙发表于 2015-10-27 09:22
这个主要用在那些方面呢？

自定义控件啊，开发

作者: 刘亚东 时间: 2020-3-28 21:57
！！！！

作者: 刘亚东 时间: 2020-3-28 21:57
两个了

欢迎光临玉祥平台客服-15087858732 (http://bbs.delit.cn/)