如何在vb點(diǎn)虐 里面動(dòng)態(tài)添加控件

Private WithEvents NewTextBox As TextBox

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供汨羅網(wǎng)站建設(shè)、汨羅做網(wǎng)站、汨羅網(wǎng)站設(shè)計(jì)、汨羅網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、汨羅企業(yè)網(wǎng)站模板建站服務(wù)，十余年汨羅做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

'通過使用WithEvents關(guān)鍵字聲明一個(gè)對象變量為新的命令按鈕

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

vb點(diǎn)虐 怎么添加Windows Media Player控件? 注意是VB.NET不是VB

“工具箱”中單擊右鍵，選擇“選擇項(xiàng)”菜單，打開“選擇工具箱項(xiàng)”窗口，選擇“

COM組件

”標(biāo)簽，在列表中找到并勾選“Windows

Media

Player”組件，單擊“確定”按鈕。將該組件添加到指定的工具箱

選項(xiàng)卡

中，然后在工具箱里面找

Windows

Media

Player

控件，拉到form里面，拉出來的控件就是AxWindowsMediaPlayer

VB點(diǎn)虐 如何添加winsock控件和Ado控件

步驟如下：

1. 先到C:\WINDOWS\system32目錄下看看你的系統(tǒng)里是否已經(jīng)有了MSADODC.ocx和MSDATGRD.ocx這兩個(gè)文件（多半是沒有的），要是有了就直接看第2步吧。

然后放到C:\WINDOWS\system32目錄下。

2. 在VS 2005中注冊MSADODC.ocx和MSDATGRD.ocx這兩個(gè)控件。在VS 2005中點(diǎn)擊"Tools" -- "Visual Studio 2005 Command Prompt"，輸入如下命令即可：

regsvr32 msadodc.ocx

regsvr32 msdatgrd.ocx