主题：请教，设置网格线，如何使用变量来取代？

dim i as double = 0.26

dim s as string = "DashStyle.Dot"

以下会出现错误，请教应如何写？先谢了！！

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

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

直接定义枚举变量

Dim ds as DashStyle= DashStyle.Dot

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

看看下面这个例子：

窗口的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