建站
咨詢
售后
建站咨詢
新聞中心
定義控件：
創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于網(wǎng)站設計、成都網(wǎng)站設計、通許網(wǎng)絡推廣、小程序開發(fā)、通許網(wǎng)絡營銷、通許企業(yè)策劃、通許品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)建站為所有大學生創(chuàng)業(yè)者提供通許建站搭建服務，24小時服務熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com
'定義控件,平臺支持使用net環(huán)境中自帶的各種控件，使用各種屬性，方法和事件
dim textBox=createObject("System.Windows.Forms.TextBox")
''設置屬性及顯示到容器中
textBox.Text=".net自帶的控件"
textBox.Dock = DockStyle.Fill
容器控件1.Controls.Add(textBox)
'--------------------自定義控件完成---------------------------
'--------------------掛載自定義事件---------------------------
'控件自定義事件（包括平臺本身的控件事件和完全自定義控件的事）
'me.AttachEventHandler(控件名稱,"事件名稱","調(diào)用的功能名稱")
'事件名稱，請參考.net開發(fā)環(huán)境中的各事件。
me.AttachEventHandler(文本輸入框1,"KeyDown","文本框按下")
'--------------------掛載自定義事件完成---------------------------
'--------------文本框按下（在功能中建立一個 "文本框按下"）----------
'textBox1_KeyPress(objectsender, KeyPressEventArgs e)
'事件的sender 對應 this.Input1
'事件的 e 對應 this.Input2
if this.Input2.KeyValue.ToString()="13"then
msgbox("在文本上已經(jīng)按了回車鍵！")
end if
'-------------------------文本框按下代碼完-------------------------
'------------給記錄部件上的一個字段掛載事件---------------------------
'給記錄部件上的一個字段上掛載事件的方法
'例如把一個字段名稱設置為密碼顯示，并在按下回車后觸發(fā)事件
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
轉(zhuǎn)載請注明出處:
撰寫人:度量科技http://www.delit.cn
分享標題：度量快速開發(fā)平臺自定義控件與自定義事件的使用方法
URL鏈接：http://www.ef60e0e.cn/article/gigdsh.html
