在VB.net里定義的控件數(shù)組怎么定義事件

Imports?System.Text

創(chuàng)新互聯(lián)建站始終堅(jiān)持【策劃先行，效果至上】的經(jīng)營理念，通過多達(dá)十余年累計(jì)超上千家客戶的網(wǎng)站建設(shè)總結(jié)了一套系統(tǒng)有效的全網(wǎng)營銷解決方案，現(xiàn)已廣泛運(yùn)用于各行各業(yè)的客戶，其中包括：自上料攪拌車等企業(yè)，備受客戶表揚(yáng)。

Imports?System.Windows

Imports?System.Windows.Forms

Public?Class?Netin?'類?名

'Inherits?Forms.Form

Public?Shared?Netin?As?New?Form

Public?components?As?ComponentModel.IContainer

Protected?Overrides?Sub?Finalize()

MyBase.Finalize()

End?Sub???

DebuggerStepThrough()

Public?Sub?InitializeComponent()

Me.components?=?New?ComponentModel.Container()

Dim?resources?As?ComponentModel.ComponentResourceManager?=?New?System.ComponentModel.ComponentResourceManager(GetType(bjt))

Me.TextBox1?=?New?TextBox(Me.components)

Me.Button1?=?New?Button(Me.components)

'For?…?Next??

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.m?=?New?ContextMenuStrip(Me.components)

Me.m1.Text?=?"菜單項(xiàng)1"?????

'設(shè)置并添加相關(guān)控件，(窗體)Netin?初始化。

End?Sub

Private?Sub?Form_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load

'加載后顯示窗體Netin。

End?Sub

Public?Sub?ObjClick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click,Button2.Click,Button3.Click,TextBox1.Click?

MessageBox.Show("你按了鼠標(biāo)")

End?Sub

Public?WithEvents?TextBox1?As?TextBox

Public?WithEvents?Button1?As?Button

Public?WithEvents?Button2?As?Button

Public?WithEvents?Button3?As?Button

Friend?WithEvents?m?As?ContextMenuStrip

Friend?WithEvents?m1?As?ToolStripMenuItem

End?Class

Class?MainWindow

Netin.Show()

Netin.Button2.Text?=?"Main"

……

vb.net2013中創(chuàng)建控件數(shù)組

我是VB.Net 2010，你看看能行不。

Public Class Form1

Private MyTextBoxArray As New ArrayList

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

Dim i As Integer

For i = 0 To 8 '利用循環(huán)語句動(dòng)態(tài)加入控件數(shù)組。

Dim FirstTextBox As New TextBox

'定義文本框?qū)ο?/p>

Me.Controls.Add(FirstTextBox)

'將一個(gè)文本框控件加入到Form上

MyTextBoxArray.Add(FirstTextBox)

'將文本框控件加入到例表集合中

MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置

MyTextBoxArray.Item(i).left = 100

FirstTextBox.TabIndex = i

'修改新加入控件的TabIndex值

MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默認(rèn)文本。

Next

End Sub

End Class

VB中控件數(shù)組在VB.NET中用法，請給一個(gè)例子

VB.net中沒有控件數(shù)組的說法。

替代方法：

·創(chuàng)建一個(gè)控件的類型數(shù)組： Button[]，將所有的button控件創(chuàng)建好后存進(jìn)去，可以遍歷它；

·或?qū)⑺幸闅v的控件放在一個(gè)容器如Panel中，以后遍歷這個(gè)容器的子控件即可。

----------

你的情況，推薦放在容器中。比如下面就是一個(gè)遍歷容器的控件，然后找出所有的文本框并修改內(nèi)容的程序：

//pn 是個(gè) Panel 控件

foreach (Control item in pn.Controls)

{

if (typeof(TextBox) == item.GetType())

{

((TextBox)item).Text = "我是動(dòng)態(tài)修改的！";

}

}

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

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

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

1.建立10個(gè)label，名稱分別為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是一樣的。

VB.net 控件數(shù)組

你這是控件數(shù)組？你這明明就是9個(gè)不同的 TextBox 控件啊，只不過名字長得像而已。

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

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

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

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

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

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

4、為控件數(shù)組類增加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)

'在這里編寫控件數(shù)組對點(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，分別測試控件數(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ù)組也可以用類似的方式來實(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)

'在這里編寫控件數(shù)組對點(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)用之后添加任何初始化

'用來綁定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

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

本文題目：VB點(diǎn)net控件數(shù)組,vb如何生成控件數(shù)組
路徑分享：http://jinyejixie.com/article12/dssicgc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、用戶體驗(yàn)、品牌網(wǎng)站建設(shè)、虛擬主機(jī)、外貿(mào)網(wǎng)站建設(shè)、小程序開發(fā)

廣告

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