[求助]自动获取控件的属性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

尝试设计一个自动单据打印的模版,设计模版时将窗口中的控件属性保存到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)

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

'打开工作簿

Book.Save("d:\test.xls")

Dim Proc As New Process

Proc.File = "d:\test.xls"

Proc.Start()

上面蓝色部份代码想改成自动从上面的数组items读取各属性的名称,再读取对应的属性值,不如怎么样实现?

比如类似: conl.GetProperty(items(0))

谢谢!

For Each conl As Winform.Control In e.Form.Controls

For c As Integer = 0 To items.Length -1

Sheet(r,c).Value = items(c)

r+=1

请问是什么意思呢?

我是想获取控件的属性所对应的值,属性的名称前面的代码已经有了.

[此贴子已经被作者于2014-12-6 15:41:23编辑过]

顶下,好像没有办法吗?

用反射获取值，参考

Dim txt As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
msgbox(txt.Gettype.GetProperty("Left").GetValue(txt, Nothing))

谢谢. 可以了. 现在就是关于字体的目前还不行,比如 Font.Name,Font.Size,Font.Bold 正在找资料.

如果直接用Font返回的没有样式(Bold,Regular,Underline等等)

谢谢甜版主,好办法. 因为只有Font.Name,Font.Size,Font.Bold三个是比较特别的,就直接手写了. 代码改成如下:

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Sheet(0,0).Value = "Window Width"

Sheet(0,1).Value = e.Form.BaseForm.Width

Sheet(0,2).Value = "Window Height"

Sheet(0,3).Value = e.Form.BaseForm.Height

Dim r As Integer = 1

Dim items As String() = {"Name","Left","Top","Width","Height","Visible","Printable"}

For c As Integer = 0 To items.Length -1

Sheet(r,c).Value = items(c)

Sheet(r,items.Length).Value = "Font.Name"

Sheet(r,items.Length+1).Value = "Font.Size"

Sheet(r,items.Length+2).Value = "Font.Bold"

r+=1

For Each conl As Winform.Control In e.Form.Controls

For c As Integer = 0 To items.Length -1

Sheet(r,c).Value = conl.Gettype.GetProperty(items(c)).GetValue(conl, Nothing)

Sheet(r,items.Length).Value = conl.Font.Name

Sheet(r,items.Length+1).Value = conl.Font.Size

Sheet(r,items.Length+2).Value = conl.Font.Bold

r+=1

'打开工作簿

Book.Save("d:\test.xls")

Dim Proc As New Process

Proc.File = "d:\test.xls"

Proc.Start()

[此贴子已经被作者于2014-12-7 12:41:12编辑过]

主题：[求助]自动获取控件的属性