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

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

十多年的港北網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營銷型網(wǎng)站的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整港北建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)公司從事“港北網(wǎng)站設(shè)計(jì)”,“港北網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

比如現(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ù)組

vb.net已經(jīng)去掉了控件數(shù)組這個(gè)類，不過有個(gè)代替該方式的一個(gè)屬性：Tag，你可以把這些關(guān)聯(lián)的Tag屬性設(shè)置為同一標(biāo)記，如：a。然后遍歷所有的checkbox并且tag為a的則選定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一個(gè)容器里，比如groupbox，那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

vb.net 數(shù)組的定義方法

1、點(diǎn)擊VS工具。

2、打開后，新建一個(gè)Windows窗體應(yīng)用程序。

3、新建完畢后，如圖所示。

4、拖動(dòng)一個(gè)按鈕。

5、定義數(shù)組最常見的方法，如圖示。

6、運(yùn)行后，點(diǎn)擊按鈕，彈出提示正常。

7、定義數(shù)組第二種方法，屬于動(dòng)態(tài)的方法。

8、運(yùn)行后，點(diǎn)擊按鈕，數(shù)組成功輸出。

vb.net 怎么把數(shù)組分成若干份

不需要用數(shù)組：

假設(shè)已經(jīng)存在的圖片文件存放在 C：\圖片 文件夾里，并假設(shè)新創(chuàng)建的文件夾位于C：\圖片 文件夾里。

在窗體上添加一個(gè)按鈕，代碼如下：

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

Dim n As Long = -1

Dim P As Long = -1

Dim Pn As String

Dim MyNum As Integer = 100 '每100個(gè)文件存放在一個(gè)文件夾里

Dim MyPath As String

Dim MyFileName As String

Button1.Enabled = False

MyPath = "C:\圖片\" '指定已有圖片的路徑

MyFileName = UCase(Dir(MyPath, FileAttribute.Normal)) ' 找尋第一項(xiàng)。

Do While MyFileName "" ' 開始循環(huán)。

If InStr(MyFileName, "JPG") 0 Or InStr(MyFileName, "GIF") 0 Or InStr(MyFileName, "PNG") 0 Then

n = n + 1

If n \ MyNum P Then

P = P + 1

Pn = CStr(n \ MyNum + 1)

MkDir(MyPath Pn)

End If

FileCopy(MyPath MyFileName, MyPath Pn "\" MyFileName)

End If

MyFileName = UCase(Dir()) ' 查找下一項(xiàng)

Loop

Button1.Enabled = True

End Sub

代碼通過測試。

VB.NET數(shù)組或數(shù)組列表

Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '創(chuàng)建數(shù)組 并賦值

Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符聯(lián)接函數(shù) 后面的 =號 可選 為空值就把所有的字符串在一起 本例用=號 就是把 所有數(shù)組的值用 =號聯(lián)接起來

MsgBox(TestShoppingList) '顯示結(jié)果值

'這例子 就一個(gè)函數(shù)可以解決 就不發(fā)圖片了

希望能幫到你 你慢慢研究吧 有問題可以找我

看到的 愛好者 多頂我一下 謝謝呵呵