度量快速開(kāi)發(fā)平臺(tái)自定義控件與自定義事件的使用方法

定義控件：

'定義控件,平臺(tái)支持使用net環(huán)境中自帶的各種控件，使用各種屬性，方法和事件

dim textBox=createObject("System.Windows.Forms.TextBox")

''設(shè)置屬性及顯示到容器中

textBox.Text=".net自帶的控件"

textBox.Dock = DockStyle.Fill

容器控件1.Controls.Add(textBox)

'--------------------自定義控件完成---------------------------

'--------------------掛載自定義事件---------------------------

'控件自定義事件（包括平臺(tái)本身的控件事件和完全自定義控件的事）

'me.AttachEventHandler(控件名稱(chēng),"事件名稱(chēng)","調(diào)用的功能名稱(chēng)")

'事件名稱(chēng)，請(qǐng)參考.net開(kāi)發(fā)環(huán)境中的各事件。

me.AttachEventHandler(文本輸入框1,"KeyDown","文本框按下")

'--------------------掛載自定義事件完成---------------------------

'--------------文本框按下（在功能中建立一個(gè) "文本框按下"）----------

'textBox1_KeyPress(objectsender, KeyPressEventArgs e)

'事件的sender 對(duì)應(yīng) this.Input1  

'事件的 e 對(duì)應(yīng)     this.Input2

if this.Input2.KeyValue.ToString()="13"then

msgbox("在文本上已經(jīng)按了回車(chē)鍵！")

end if

'-------------------------文本框按下代碼完-------------------------

'------------給記錄部件上的一個(gè)字段掛載事件---------------------------

'給記錄部件上的一個(gè)字段上掛載事件的方法

'例如把一個(gè)字段名稱(chēng)設(shè)置為密碼顯示，并在按下回車(chē)后觸發(fā)事件

Dim  MyField=記錄部件1.GetFieldControlByFieldName("字段名稱(chēng)")

MyField.Properties.PasswordChar= System.Convert.ToChar(42)

me.AttachEventHandler(MyField,"KeyDown","文本框按下")

'------------給記錄部件上的一個(gè)字段掛載事件完成---------------------------

[size=13.3333px]圖示：

原文地址;http://plat.delit.cn/thread-192-1-1.html

轉(zhuǎn)載請(qǐng)注明出處:

撰寫(xiě)人:度量科技http://www.delit.cn