如何在vb.net里面动态添加控件

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

Dim Bt as New Button

Bt.Size=New Size(100,100)

Bt.Location=New Point(100,100)

Bt.Text="New Button"

Me.Controls.Add(Bt)

   Visual Studio NET提供的MonthCalendar控件允许你选择日期和一组日期 这个控件允许用户方便地选择日期 它类似于让你选择一个特定日期的DataTimePicker控件 不过MonthCalendar控件还可以帮助你选择一个时间

使用MonthCalendar 控件

下面的例子说明如何使用MonthCalendar控件

在常用控件（Common Controls）下的工具箱（Toolbox）中找到MonthCalendar控件并将它添加到窗口表单（Window Form）中 设置以下属性

·Name mcDateSelection

·TodayDate 空

·MaxSelectionCount

·Selection Range Start 空

·Selection Range End 空

在Form Load事件中添加以下代码

mcDateSelection TodayDate = Now

然后建立列表A中的事件 在这个例子中 我设置MaxSelectionCount属性为 这意味着你只能在MonthCalendar控件中选择一个 而不是一组日期 在MonthView控件中选择一个日期 屏幕即类似于图A

图A

列表A Private Sub mcDateSelection_DateSelected(ByVal sender As Object ByVal e As System Windows Forms DateRangeEventArgs) Handles mcDateSelection DateSelected        MessageBox Show( Calendar Today s Date: &mcDateSelection TodayDate &vbCrLf &_                Calendar Selected Start Date: &mcDateSelection SelectionStart() &vbCrLf &_                Calendar Selected End Date: &mcDateSelection SelectionEnd())    End Sub     既然你只能选择一个月中的某个特定的日期 而不是一组日期 那么 Selected Start Date和Selected End Date的值相同

现在 将MaxSelectionCount属性设为 然后重新运行代码 这次 你就可以选择一组日期（在这个例子中最多为 天） 而且 一旦你选择一组日期后 你将看到如图B所示的结果

图B

控件的其它用法

你可以利用MonthCalendar控件的许多其它属性和方法 使其满足你的需要 MSDN提供使用MonthCalendar控件的更多细节

lishixinzhi/Article/program/net/201311/11787

---