vb點(diǎn)虐 2013中創(chuàng)建控件數(shù)組

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

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

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點(diǎn)虐 怎樣創(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 '沒index屬性

Str(n) = Index

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

n += 1

Next

在VB點(diǎn)虐 里定義的控件數(shù)組怎么定義事件

Imports?System.Text

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點(diǎn)抗 ponents?=?New?ComponentModel.Container()

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

Me.TextBox1?=?New?TextBox(Me點(diǎn)抗 ponents)

Me.Button1?=?New?Button(Me點(diǎn)抗 ponents)

'For?…?Next??

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.m?=?New?ContextMenuStrip(Me點(diǎn)抗 ponents)

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中控件數(shù)組在VB.NET中用法，請(qǐng)給一個(gè)例子

VB點(diǎn)虐 中沒有控件數(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)修改的！";

}

}

當(dāng)前題目：控件數(shù)組vb點(diǎn)虐 控件數(shù)組cmd共有16個(gè)元素,下標(biāo)從0至15
本文地址：http://www.rwnh.cn/article40/ddgoiho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷型網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、網(wǎng)站制作、做網(wǎng)站

廣告

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