[.NET] 請問迴圈中Label的宣告法

看板Visual_Basic作者 (borland)時間18年前 (2007/04/19 02:15), 編輯推噓1(101)
留言2則, 1人參與, 最新討論串1/1
各位好,我想寫一個迴圈 每個Label去excel一格一格讀取資料 也就是將以下的程式 Dim xlsApp, xlsSht, xlsWb As Object xlsApp = CreateObject("Excel.Application") xlsWb = xlsApp.Workbooks.Open("C:\Book1.xls") xlsSht = xlsWb.Worksheets(1) lbl1.Text = xlsSht.Cells(1, 1).Value lbl2.Text = xlsSht.Cells(2, 1).Value lbl3.Text = xlsSht.Cells(3, 1).Value lbl4.Text = xlsSht.Cells(4, 1).Value lbl5.Text = xlsSht.Cells(5, 1).Value 改成 Dim xlsApp, xlsSht, xlsWb As Object xlsApp = CreateObject("Excel.Application") xlsWb = xlsApp.Workbooks.Open("C:\Book1.xls") xlsSht = xlsWb.Worksheets(1) Dim i As Integer For i = 1 To 5 lbl(i).Text = xlsApp.Cells(i, 1).Value 不過顯示出來是不認識lbl (這是在設計頁面所拉的label) 如果多定義一個 Dim lbl(5) As Label 最後一行的錯誤就變成 並未將物件參考設定為物件的執行個體 是我少宣告什麼嗎 謝謝各位 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.131.74.54

04/19 07:15, , 1F
Set lbl(i) = New Label
04/19 07:15, 1F

04/19 07:16, , 2F
^^^^不用set
04/19 07:16, 2F
文章代碼(AID): #169c1Gn2 (Visual_Basic)