?? 如何在vb程序運(yùn)行時(shí)加入和刪除控件.txt
字號(hào):
這在VB 5.0中是做不到的。如果你想動(dòng)態(tài)地增加控件,必須在設(shè)計(jì)階段將控件放入Form,但可以將Visible屬性設(shè)為False,將控件的Index屬性設(shè)為0(即設(shè)置為控件數(shù)組)。然后在運(yùn)行時(shí)使用Load方法加入控件。如下面這段代碼:
Private Sub btnAdd_Click()
Static n As Integer
If n <>0 Then Load Label1(n)
Label1(n).Move 300, 200 + n *500
Label1(n).Visible = True
n = n + 1
End Sub
這段代碼表示,當(dāng)用戶每按一次按鈕時(shí)添加一個(gè)Label控制。
使用Unload可以動(dòng)態(tài)刪除控件數(shù)組中的控件。
在VB 6.0中,可以實(shí)現(xiàn)你的愿望,因?yàn)镕orm.Controls集合包括了Add方法、Remove方法。例如:
Option Explicit
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "這是動(dòng)態(tài)添加的按鈕。"
End Sub
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub
這里使用WithEvent指定動(dòng)態(tài)添加的控件的事件。
<END>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -