尝试设计一个自动单据打印的模版,设计模版时将窗口中的控件属性保存到Excel表格中. 选择不同模版时,从Excel表格中读取各控件的属性.
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim r As Integer = 0
Dim items As String() = {"Name","Font.Name","Font.Size","Font.Style","Left","Top","Width","Height"}
For c As Integer = 0 To items.Length -1
Sheet(r,c).Value = items(c)
Next
r+=1
For Each conl As Winform.Control In e.Form.Controls
Sheet(r, 0).Value = conl.Name '想改成自动从上面的数组items读取各属性的名称,再读取对应的属性值.
Sheet(r, 1).Value = conl.Font.Name
Sheet(r, 2).Value = conl.Font.Size
Sheet(r, 3).Value = conl.Font.Style
Sheet(r, 4).Value = conl.Left
Sheet(r, 5).Value = conl.Top
Sheet(r, 6).Value = conl.Width
Sheet(r, 7).Value = conl.Height
r+=1
Next
'打开工作簿
Book.Save("d:\test.xls")
Dim Proc As New Process
Proc.File = "d:\test.xls"
Proc.Start()
上面蓝色部份代码想改成自动从上面的数组items读取各属性的名称,再读取对应的属性值,不如怎么样实现?
比如类似: conl.GetProperty(items(0))
谢谢!
加好友 
发短信
Post By：2014/12/6 14:32:00 [只看该作者]
