溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

VB語言中怎么用代碼直接創(chuàng)建控件

發(fā)布時間：2022-01-14 20:29:44 來源：億速云 閱讀：208 作者：柒染 欄目：大數(shù)據(jù)

這期內(nèi)容當(dāng)中小編將會給大家?guī)碛嘘P(guān)VB語言中怎么用代碼直接創(chuàng)建控件，文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述，閱讀完這篇文章希望大家可以有所收獲。

如何用代碼直接創(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)鍵詞，指定當(dāng)前的變量或者類等，只能在當(dāng)前窗體或模塊或類中使用，不能超過這個適用范圍

本期界面：

VB語言中怎么用代碼直接創(chuàng)建控件VB語言中怎么用代碼直接創(chuàng)建控件VB語言中怎么用代碼直接創(chuàng)建控件VB語言中怎么用代碼直接創(chuàng)建控件

本期源代碼：

Private WithEvents label1 As Label '聲明一個帶事件的控件Private WithEvents timer1 As TimerDim d As Integer '0表示向右，1表示向左

Private Sub Form_Load()AutoRedraw = True'對label控件進(jìn)行實例化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 = True

End Sub
Private Sub label1_Click()Shell "explorer http://ljy.kim"End Sub
Private Sub timer1_Timer()If label1.Left + label1.Width > ScaleWidth And d = 0 Then    d = 1 '向左ElseIf label1.Left < 0 And d = 1 Then    d = 0 '向右End If

If d = 0 Then '向右    label1.Left = label1.Left + 10Else    label1.Left = label1.Left - 10End If
End Sub

上述就是小編為大家分享的VB語言中怎么用代碼直接創(chuàng)建控件了，如果剛好有類似的疑惑，不妨參照上述分析進(jìn)行理解。如果想知道更多相關(guān)知識，歡迎關(guān)注億速云行業(yè)資訊頻道。

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手