- 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)
-- 发布时间：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语句解决。
-- 发布时间：2011/1/4 16:37:00
--
哦，明白了。枚举类型搞混了
-- 发布时间：2011/1/4 16:59:00
--
如果用变量的话，直接用数值型变量，值0到4应该可以的。
-- 发布时间：2011/1/4 21:14:00
--
直接定义枚举变量
Dim ds as DashStyle= DashStyle.Dot
-- 发布时间：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编辑过]
-- 发布时间：2011/1/5 8:53:00
--
谢谢各位帮助，特别感谢LXL版主的详细说明及讲解。