以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教,设置网格线,如何使用变量来取代?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8958)

--  作者:baoxyang
--  发布时间:2011/1/4 16:24:00
--  请教,设置网格线,如何使用变量来取代?

dim i as double = 0.26

dim s as string = "DashStyle.Dot"

以下会出现错误,请教应如何写?先谢了!!

rt.Style.GridLines.Horz = New prt.Linedef("& i &", Color.Black,"& s &")

[此贴子已经被作者于2011-1-4 16:24:04编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/1/4 16:33:00
--  

有个笨办法,用Select Case语句解决。


--  作者:baoxyang
--  发布时间:2011/1/4 16:37:00
--  
哦,明白了。枚举类型搞混了
--  作者:czy
--  发布时间:2011/1/4 16:59:00
--  
如果用变量的话,直接用数值型变量,值0到4应该可以的。
--  作者:lxl
--  发布时间:2011/1/4 21:14:00
--  

直接定义枚举变量

Dim ds as DashStyle= DashStyle.Dot


--  作者:lxl
--  发布时间:2011/1/4 22:00:00
--  

如果用组合框来选择,就会用到字符 和 枚举类型的转换。

看看下面这个例子:

窗口的AfterLoad事件代码:

Dim names As String() = System.Enum.GetNames(Gettype(VisualStyleEnum))
e.Form.Controls("ComboBox1").Items.AddRange(names)

 

组合框的ValueChanged 事件代码

VisualStyle = System.Enum.Parse(Gettype(VisualStyleEnum),e.Form.Controls("ComboBox1").Text)

 

 

System.Enum是枚举类型基类,foxtable的所有枚举都是从它继承的。

GetNames 和 Parse是枚举的公共方法。也就是不需要new 就能直接使用的方法

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2011-1-4 22:11:21编辑过]

--  作者:baoxyang
--  发布时间:2011/1/5 8:53:00
--  
谢谢各位帮助,特别感谢LXL版主的详细说明及讲解。