锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net添加用户控件 vb程序设计中怎样添加控件

IT技术用户

vb.net自定义控件问题首先，你已经完成的步骤是：
1.新建一个用户控件[注意 ， 用户控件（UserControl）不是自定义控件（CustomControl）]
2.给用户控件起个名字（我在此处起名叫 RadioList）
3.在用户控件上画一个 GroupBox，命名为 RadioGroup ， 
并将其 Dock 属性设置为 Fill
然后 ， 你需要做的是动态增减控件 。
如果你以前用过 VB 6，你可能会想到控件数组，
但在此处，你可以直接增删控件 。
具体实现如下：
4.在 GroupBox 里画一个 FlowLayoutPanel ， 命名为 RadioPanel，
将其 AutoScroll 属性设置为 True，即自动显示滚动条，
并设置其 FlowDirection 属性（例如设置为 TopDown）
这样就省去了手动调整 RadioButton 位置的麻烦
5.实现选项的动态增减（以下只是我的思路，你可以发挥一下）
（十分简洁，注释除外）：
''' summary
''' 创建一个新的 RadioButton 。
''' /summary
Private Function CreateRadio() As RadioButton
Dim NewRadio As New RadioButton
components.Add(NewRadio)
'components 字段由控件设计器自动创建，
'此代码目的是使控件在销毁（Dispose）时能自动销毁 RadioButton
'详情参见 RadioList.Designer.vb
NewRadio.Parent = RadioPanel
'设置容器
AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged
'设置事件处理程序
Return NewRadio
End Function
''' summary
''' 移除已存在的 RadioButton 。
''' /summary
Private Sub RemoveRadio(ByVal dest As RadioButton)
components.Remove(dest)
dest.Dispose()
End Sub
'无中生有的 RadioButton 的事件处理程序
Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在此处设置选中项的属性，通过 sender 来确定不同的 OptionButton
'你可以通过将 OptionButton 放在一个列表 ， 
'如 List(Of OptionButton) 中来像数组一样维护选项的次序
'注意，此处需要判断 sender 的 Checked 属性是否为 True
【vb.net添加用户控件 vb程序设计中怎样添加控件】'因为 Changed 是“改变”，而不是“选中”
'例如：
If DirectCast(sender, RadioButton).Checked Then
SelectedIndex = ...
End If
End Sub
vb.net如何创建无界面的用户控件控件不一定有界面，类也不一定有界面 。
以Visual Studio 2012为例
把你的控件封装到类里面，生成exe或dll，在要调用的项目中，进入工具箱，右键任意项 ， 选择项，在.Net Framework组件中浏览到生成的exe或dll，在上面列表中相应的内容 ， 勾选，确定
vb.net用户控件问题 2属性修改后没有任何设置，当然不会改变 ， 改改
Set(ByVal value As String)
Text_1 = value
Me.Label1.Text = Text_1
End Set
Set(ByVal value As String)
Text_2 = value
Me.Label2.Text = Text_2
End Set
如何在vb.net里面动态添加控件Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新vb.net添加用户控件的命令按钮
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.net 自定义用户控件如何放到工具箱上建一个自定义vb.net添加用户控件的Web控件MyContro的步骤:

推荐阅读


上一篇：缺少.net文件是什么意思的简单介绍

下一篇：管理者如何做好酒店营销，如何做好酒店的营销工作