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

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

創(chuàng)新互聯公司專業(yè)為企業(yè)提供寧安網站建設、寧安做網站、寧安網站設計、寧安網站制作等企業(yè)網站建設、網頁設計與制作、寧安企業(yè)網站模板建站服務，10年寧安做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

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 數組的定義方法

1、vb.net的

數組定義與變量定義差不多。可以用

dim

來定義

比如:

dim

a（100）

as

integer。

也可以不定義下標

在程序中

用

redim

來定義。

如：

dim

a()

as

integer

'

'

redim

a(100)

2、vb.net中定義數組可以直接賦值。

如：

dim

a()

as

integer

={1,

2,

3,4}

vb.net中定義控件數組，控件數組中加入多個按鈕。怎么能在控件數組事件響應對應按鈕的事件，代碼部分：

Dim bt As New ArrayList

bt.Add(Me.Button5)

bt.Add(Me.Button6)

bt.Add(Me.Button7)

上面這段代碼本人表示不懂，故沒有使用。下面的代碼在VS2015中運行通過：

Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click

Select Case CType(sender, Button).Name

Case "Button5"

MessageBox.Show("你點擊了 Button5 按鈕")

Case "Button6"

MessageBox.Show("你點擊了 Button6 按鈕")

Case "Button7"

MessageBox.Show("你點擊了 Button7 按鈕")

End Select

End Sub

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.net控件指定數組 數組控件vb編程代碼
瀏覽地址：http://chinadenli.net/article38/dojocsp.html

成都網站建設公司_創(chuàng)新互聯，為您提供靜態(tài)網站、品牌網站設計、ChatGPT、網站改版、網站制作、面包屑導航

廣告

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