作者borland (borland)
看板Visual_Basic
标题[.NET] 请问回圈中Label的宣告法
时间Thu Apr 19 02:15:43 2007
各位好，我想写一个回圈
每个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
1F：推 fumizuki:Set lbl(i) = New Label 04/19 07:15
2F：→ fumizuki:^^^^不用set 04/19 07:16