vb点虐 添加部件 vbnet createobject

如何在vb点虐 里面动态添加控件

Private WithEvents NewTextBox As TextBox

创新互联公司专业为企业提供汨罗网站建设、汨罗做网站、汨罗网站设计、汨罗网站制作等企业网站建设、网页设计与制作、汨罗企业网站模板建站服务，十余年汨罗做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

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点虐 怎么添加Windows Media Player控件? 注意是VB.NET不是VB

“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“

COM组件

”标签，在列表中找到并勾选“Windows

Media

Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱

选项卡

中，然后在工具箱里面找

Windows

Media

Player

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

VB点虐 如何添加winsock控件和Ado控件

步骤如下：

1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件（多半是没有的），要是有了就直接看第2步吧。

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

2. 在VS 2005中注册MSADODC.ocx和MSDATGRD.ocx这两个控件。在VS 2005中点击"Tools" -- "Visual Studio 2005 Command Prompt"，输入如下命令即可：

regsvr32 msadodc.ocx

regsvr32 msdatgrd.ocx