vb点虐 自定义控件问题

首先，你已经完成的步骤是：

10多年的沅陵网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同，自动调整沅陵建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“沅陵网站设计”,“沅陵网站推广”以来，每个客户项目都认真落实执行。

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

'因为 Changed 是“改变”，而不是“选中”

'谈轮腔例如：

If DirectCast(sender, RadioButton).Checked Then

SelectedIndex = ...

End If

End Sub

如何在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点虐 中怎么调用用户控件，谢谢！

与使用System.Windows.Forms命名空间中的控件的用法没有区别。卖帆枯

首先添加引用。

其次导入(Imports)命名空间。

接着就可以使用了：

1、要使用用户控件的实例成员，就轿绝先创建一个用户控件的实例，再通过实例名.实例成员名访问；

2、要使用用户控件的共中洞享（Shared）成员，通过用户控件类名.共享成员名访问。

如果你问的是怎样创建自己的用户控件类：

1、继承类System.Windows.Forms.UserControl；

2、继承任何一个已经存在的控件类（只要这个控件类不是NotInheritable的就行）。

当前文章：vb点虐 添加用户控件 vb2010添加控件
本文地址：http://csdahua.cn/article/ddpcdcp.html