在VB.net里定義的控件數組怎么定義事件

Imports?System.Text

為耀州等地區(qū)用戶提供了全套網頁設計制作服務，及耀州網站建設行業(yè)解決方案。主營業(yè)務為成都做網站、網站建設、耀州網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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?=?"菜單項1"?????

'設置并添加相關控件，(窗體)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("你按了鼠標")

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.net 怎樣創(chuàng)建控件數組？

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.net2013中創(chuàng)建控件數組

我是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)語句動態(tài)加入控件數組。

Dim FirstTextBox As New TextBox

'定義文本框對象

Me.Controls.Add(FirstTextBox)

'將一個文本框控件加入到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 '修改默認文本。

Next

End Sub

End Class

VB中控件數組在VB.NET中用法，請給一個例子

VB.net中沒有控件數組的說法。

替代方法：

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

·或將所有要遍歷的控件放在一個容器如Panel中，以后遍歷這個容器的子控件即可。

----------

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

//pn 是個 Panel 控件

foreach (Control item in pn.Controls)

{

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

{

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

}

}

VB.net 控件數組

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

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

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

比如現在有10個label，要將這10個label的text屬性統(tǒng)一設置為“這是第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,控件數組怎么設置
URL鏈接：http://vcdvsql.cn/article28/heghcp.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供自適應網站、網站制作、營銷型網站建設、手機網站建設、ChatGPT、網站維護

廣告

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