vb.net数轴控件 vb建立控件数组

vb.net chart控件条形图如何实现将X轴的数字1.2.3……变文字，如图所示

Dim DtRRU As DataTable = New DataTable()

成都创新互联公司业务包括：成品网站、企业产品展示型网站建设、品牌网站制作、电子商务型网站建设、成都外贸网站建设(多语言)、商城系统网站开发、按需定制网站、全网整合营销推广等。效率优先，品质保证，用心服务是我们的核心价值观，我们将继续以良好的信誉为基础，秉承稳固与发展、求实与创新的精神，为客户提供更全面、更优质的互联网服务！

DtRRU.Columns.Add("Time_Int")

DtRRU.Columns.Add("Bins")

DtRRU.Rows(0)("Time_Int") = "0~6月"

DtRRU.Rows(1)("Time_Int") = "6~12月"

DtRRU.Rows(2)("Time_Int") = "1~2年"

DtRRU.Rows(3)("Time_Int") = "2~3年"

DtRRU.Rows(4)("Time_Int") = "3~4年"

DtRRU.Rows(5)("Time_Int") = "4~6年"

DtRRU.Rows(6)("Time_Int") = "6年以上"

用chart.DataSource绑定DataTable， DataTable自己添加响应的名称就可以了，省略了一切代码，如果不懂可以告诉我……………………

With (ChartENC.Series(0))

.YValueMembers = "Bins"

.XValueMember = "Time_Int"

.XValueType = DataVisualization.Charting.ChartValueType.DateTime

.ChartType = DataVisualization.Charting.SeriesChartType.Column

End With

______________________________________________________________________

vb.net 怎样创建控件数组？

Dim Str(20) As String '20数据元素

Dim Text(20) As TextBox

Dim n As Integer = 0

For Each i In Text

i = New TextBox '实例化

i.Location = New Point(50, n * 20)

Me.Controls.Add(i) '添加窗体

Dim Index As Integer = i.TabIndex '没index属性

Str(n) = Index

i.Text = Str(n) 'str数组值赋值给文本框

n += 1

Next

vb.net有没有类似vb6.0控件数组的功能

可以实现

首先创建一个Button类型控件数组：

1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。

2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；

3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；

4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。

示例代码：

Public Class ButtonArray

Inherits System.Collections.CollectionBase

Private ReadOnly ParentForm As System.Windows.Forms.Form

Public Sub New(ByVal pForm As System.Windows.Forms.Form)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button

Get

Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem()

Dim btnItem As New System.Windows.Forms.Button

Me.List.Add(btnItem)

ParentForm.Controls.Add(btnItem) '向窗体中增加控件

btnItem.Tag = Me.Count 'Count属性从CollectionBase 继承

btnItem.Top = Me.Count * 30

btnItem.Left = 200

btnItem.Text = "Button" Me.Count.ToString

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)

Me.List.Add(btnItem)

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub RemoveItem()

If Me.Count 0 Then

ParentForm.Controls.Remove(Me(Me.Count - 1))

Me.List.RemoveAt(Me.Count - 1)

End If

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

'在这里编写控件数组对点击事件的响应

'例如：

MsgBox("点击：" sender.GetType().ToString CType(CType(sender, Button).Tag, String))

End Sub

End Class

使用创建的控件数组

在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。

双击Form添加代码：

Public Class Form1

Inherits System.Windows.Forms.Form

……Windows窗体设计器生成的代码……

Dim Buttons As New ButtonArray(Me)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Buttons.AddItem()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Buttons.RemoveItem()

End Sub

End Class

其他的控件数组也可以用类似的方式来实现

例如 Label控件数组

LabelArray.vb代码如下：

Public Class LabelArray

Inherits System.Collections.CollectionBase

Private ReadOnly ParentForm As System.Windows.Forms.Form

Public Sub New(ByVal pForm As System.Windows.Forms.Form)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label

Get

Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)

Me.List.Add(btnItem)

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

'在这里编写控件数组对点击事件的响应

'例如：

MsgBox("点击：" sender.GetType().ToString CType(CType(sender, Label).Tag, String))

End Sub

End Class

使用创建的Label控件

在Form1中放置两个按钮Label1、Label2

双击Form添加代码：

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

'用来绑定label

BindArray()

End Sub

……Windows窗体设计器生成的其他代码……

#End Region

Dim Labels As New LabelArray(Me)

Public Sub BindArray()

Me.Label1.Tag = "1111"

Me.Label2.Tag = "222"

Labels.AddItem(Me.Label1)

Labels.AddItem(Me.Label2)

End Sub

End Class

然后可以测试点击两个label可以显示相应的Tag的信息。

vb.net如何使用控件数组，希望可以用label为例

vb.net和vb6.0不同，无法直接使用控件数组。不过可以通过其他方式变通一下。

比如现在有10个label，要将这10个label的text属性统一设置为“这是第X个标签”（X为1-10）。

1.建立10个label，名称分别为label1、label2、label3。。label10

2.代码：

For i = 1 To 10

Me.FindControl("label" i).Text = "这是第" i “个标签”

Next i

关键点是Me.FindControl()的方法，在代码中Me.FindControl("label1").text与label1.text是一样的。

分享题目：vb.net数轴控件 vb建立控件数组
转载注明：http://6mz.cn/article/ddoejoo.html