vb.net chart控件條形圖如何實(shí)現(xiàn)將X軸的數(shù)字1.2.3……變文字，如圖所示

Dim DtRRU As DataTable = New DataTable()

成都創(chuàng)新互聯(lián)公司業(yè)務(wù)包括：成品網(wǎng)站、企業(yè)產(chǎn)品展示型網(wǎng)站建設(shè)、品牌網(wǎng)站制作、電子商務(wù)型網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)(多語(yǔ)言)、商城系統(tǒng)網(wǎng)站開(kāi)發(fā)、按需定制網(wǎng)站、全網(wǎng)整合營(yíng)銷(xiāo)推廣等。效率優(yōu)先，品質(zhì)保證，用心服務(wù)是我們的核心價(jià)值觀，我們將繼續(xù)以良好的信譽(yù)為基礎(chǔ)，秉承穩(wěn)固與發(fā)展、求實(shí)與創(chuàng)新的精神，為客戶(hù)提供更全面、更優(yōu)質(zhì)的互聯(lián)網(wǎng)服務(wù)！

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自己添加響應(yīng)的名稱(chēng)就可以了，省略了一切代碼，如果不懂可以告訴我……………………

With (ChartENC.Series(0))

.YValueMembers = "Bins"

.XValueMember = "Time_Int"

.XValueType = DataVisualization.Charting.ChartValueType.DateTime

.ChartType = DataVisualization.Charting.SeriesChartType.Column

End With

______________________________________________________________________

vb.net 怎樣創(chuàng)建控件數(shù)組？

Dim Str(20) As String '20數(shù)據(jù)元素

Dim Text(20) As TextBox

Dim n As Integer = 0

For Each i In Text

i = New TextBox '實(shí)例化

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

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

Dim Index As Integer = i.TabIndex '沒(méi)index屬性

Str(n) = Index

i.Text = Str(n) 'str數(shù)組值賦值給文本框

n += 1

Next

vb.net有沒(méi)有類(lèi)似vb6.0控件數(shù)組的功能

可以實(shí)現(xiàn)

首先創(chuàng)建一個(gè)Button類(lèi)型控件數(shù)組：

1、創(chuàng)建“Windows應(yīng)用程序”類(lèi)型的工程，添加名為ButtonArray的類(lèi)，并使該類(lèi)繼承 System.Collection.CollectionBase 類(lèi)。System.Collections.CollectionBase類(lèi)是.NET框架類(lèi)庫(kù)中為集合操作提供抽象的基類(lèi)，通過(guò)對(duì)它的繼承可以為我們的ButtonArray類(lèi)具備集合增加、刪除、索引的功能。

2、為ButtonArray類(lèi)添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；

3、為控件數(shù)組類(lèi)增加AddItem方法，該方法在控件數(shù)組類(lèi)中添加成員；

4、為控件數(shù)組類(lèi)增加RemoveItem方法，該方法在控件數(shù)組中刪除一個(gè)成員。

示例代碼：

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)

'在這里編寫(xiě)控件數(shù)組對(duì)點(diǎn)擊事件的響應(yīng)

'例如：

MsgBox("點(diǎn)擊：" sender.GetType().ToString CType(CType(sender, Button).Tag, String))

End Sub

End Class

使用創(chuàng)建的控件數(shù)組

在Form1中放置兩個(gè)按鈕Button1、Button2，分別測(cè)試控件數(shù)組的增添、刪除。

雙擊Form添加代碼：

Public Class Form1

Inherits System.Windows.Forms.Form

……Windows窗體設(shè)計(jì)器生成的代碼……

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

其他的控件數(shù)組也可以用類(lèi)似的方式來(lái)實(shí)現(xiàn)

例如 Label控件數(shù)組

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)

'在這里編寫(xiě)控件數(shù)組對(duì)點(diǎn)擊事件的響應(yīng)

'例如：

MsgBox("點(diǎn)擊：" sender.GetType().ToString CType(CType(sender, Label).Tag, String))

End Sub

End Class

使用創(chuàng)建的Label控件

在Form1中放置兩個(gè)按鈕Label1、Label2

雙擊Form添加代碼：

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "

Public Sub New()

MyBase.New()

'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。

InitializeComponent()

'在 InitializeComponent() 調(diào)用之后添加任何初始化

'用來(lái)綁定label

BindArray()

End Sub

……Windows窗體設(shè)計(jì)器生成的其他代碼……

#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

然后可以測(cè)試點(diǎn)擊兩個(gè)label可以顯示相應(yīng)的Tag的信息。

vb.net如何使用控件數(shù)組，希望可以用label為例

vb.net和vb6.0不同，無(wú)法直接使用控件數(shù)組。不過(guò)可以通過(guò)其他方式變通一下。

比如現(xiàn)在有10個(gè)label，要將這10個(gè)label的text屬性統(tǒng)一設(shè)置為“這是第X個(gè)標(biāo)簽”（X為1-10）。

1.建立10個(gè)label，名稱(chēng)分別為label1、label2、label3。。label10

2.代碼：

For i = 1 To 10

Me.FindControl("label" i).Text = "這是第" i “個(gè)標(biāo)簽”

Next i

關(guān)鍵點(diǎn)是Me.FindControl()的方法，在代碼中Me.FindControl("label1").text與label1.text是一樣的。

網(wǎng)頁(yè)名稱(chēng)：vb.net數(shù)軸控件 vb建立控件數(shù)組
本文路徑：http://vcdvsql.cn/article0/ddoejoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷(xiāo)推廣、響應(yīng)式網(wǎng)站、網(wǎng)站設(shè)計(jì)公司、自適應(yīng)網(wǎng)站、軟件開(kāi)發(fā)、域名注冊(cè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)