度量快速開發平臺自定義控件與自定義事件的使用方法

定義控件：

'定義控件,平臺支持使用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