重慶分公司
VB語言中怎么用代碼直接創(chuàng)建控件
這期內(nèi)容當中小編將會給大家?guī)碛嘘P(guān)VB語言中怎么用代碼直接創(chuàng)建控件，文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述，閱讀完這篇文章希望大家可以有所收獲。
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于成都網(wǎng)站設計、做網(wǎng)站、泗水網(wǎng)絡推廣、小程序定制開發(fā)、泗水網(wǎng)絡營銷、泗水企業(yè)策劃、泗水品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供泗水建站搭建服務，24小時服務熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com
如何用代碼直接創(chuàng)建控件
Withevents關(guān)鍵詞
作用：可以直接聲明一個控件，并且可以使用這個控件的事件
Controls.add方法
解釋：
Controls控件
Add方法，有兩個參數(shù)（參數(shù)1，參數(shù)2）
參數(shù)1：系統(tǒng)中已經(jīng)存在的控件vb.timer vb.label 等控件類型來表示
參數(shù)2：控件的名稱
變量控件的賦值
1、如果是普通的變量（integer,string,boolean等），聲明使用dim ,可以直接賦值
2、如果是對象類型的變量，在賦值時，必須使用set關(guān)鍵字
Private關(guān)鍵詞
這個關(guān)鍵詞，指定當前的變量或者類等，只能在當前窗體或模塊或類中使用，不能超過這個適用范圍
本期界面：
本期源代碼：
Private WithEvents label1 As Label '聲明一個帶事件的控件Private WithEvents timer1 As TimerDim d As Integer '0表示向右，1表示向左Private Sub Form_Load()AutoRedraw = True'對label控件進行實例化Set label1 = Controls.Add("vb.label", "label1")'開始配置控件label1.Caption = "劉金玉編程"label1.FontSize = 50label1.BackColor = vbRedlabel1.AutoSize = Truelabel1.ForeColor = vbWhitelabel1.Left = ScaleWidth / 2 - label1.Width / 2label1.Top = ScaleHeight / 2 - label1.Height / 2label1.Visible = True '顯示控件Set timer1 = Controls.Add("vb.timer", "timer1")timer1.Interval = 10timer1.Enabled = TrueEnd SubPrivate Sub label1_Click()Shell "explorer http://ljy.kim"End SubPrivate Sub timer1_Timer()If label1.Left + label1.Width > ScaleWidth And d = 0 Thend = 1 '向左ElseIf label1.Left < 0 And d = 1 Thend = 0 '向右End IfIf d = 0 Then '向右label1.Left = label1.Left + 10Elselabel1.Left = label1.Left - 10End IfEnd Sub
上述就是小編為大家分享的VB語言中怎么用代碼直接創(chuàng)建控件了，如果剛好有類似的疑惑，不妨參照上述分析進行理解。如果想知道更多相關(guān)知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。
網(wǎng)頁題目：VB語言中怎么用代碼直接創(chuàng)建控件
鏈接地址：http://www.xueling.net.cn/article/ghjeoo.html