RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
vb.net控件成员,vbnet常用控件介绍

VB.NET 变量和字符串组成控件名

直接For就行了

成都地区优秀IDC服务器托管提供商(创新互联公司).为客户提供专业的成都服务器托管,四川各地服务器托管,成都服务器托管、多线服务器托管.托管咨询专线:028-86922220

Dim ctl As Control

Dim lbl as Label

For Each ctl In Me.Controls

If ctl.GetType.ToString = "System.Windows.Forms.Label" Then

lbl = CType(ctl,Label)

'得到一个Label,可以对它进行赋值操作了

Msgbox lbl.Name

End If

Next

你好,我想请教一下vb.net中怎么调用用户控件,谢谢!

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

首先添加引用。

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

接着就可以使用了:

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

2、要使用用户控件的共享(Shared)成员,通过用户控件类名.共享成员名访问。

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

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

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

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

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

'例如:

If DirectCast(sender, RadioButton).Checked Then

SelectedIndex = ...

End If

End Sub


新闻名称:vb.net控件成员,vbnet常用控件介绍
文章源于:http://lswzjz.com/article/hcdscc.html