以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教:Excel报表的Style中的返回BorderColorTop提示错误?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50174)

--  作者:y2287958
--  发布时间:2014/4/30 16:04:00
--  请教:Excel报表的Style中的返回BorderColorTop提示错误?
问题如题:
代码如下:
Output.Show("表格标题第" & i & "列上边框颜色:" & Sheet(3,i).Style.BorderColorTop)
提示如下:
---------------------------
错误
---------------------------
编译错误:没有为类型“String”和“System.Drawing.Color”定义运算符“&”。



错误代码:Output.Show("表格标题第" & i & "列上边框颜色:" & Sheet(3,i).Style.BorderColorTop)
---------------------------
确定   
---------------------------

如何返回值?谢谢!


--  作者:y2287958
--  发布时间:2014/4/30 16:05:00
--  
---------------------------
错误
---------------------------
编译错误:类型“System.Drawing.Color”的值无法转换为“String”。



错误代码:Output.Show(Sheet(3,i).Style.BorderColorTop)
---------------------------
确定   
---------------------------


--  作者:Bin
--  发布时间:2014/4/30 16:08:00
--  
Output.Show("表格标题第" & i & "列上边框颜色:" & Sheet(3,i).Style.BorderColorTop.Tostring())
--  作者:lsy
--  发布时间:2014/4/30 16:33:00
--  

Tostring   太好了。

 


--  作者:y2287958
--  发布时间:2014/4/30 20:07:00
--  
谢谢

但返回值是:Color [WindowFrame]
而不是:Color.Black

如何返回Color.Black或一个枚举数字?


--  作者:don
--  发布时间:2014/4/30 22:36:00
--  

例如:

Dim clr As Color = Color.FromARGB(255,255,192,203)

FromARGB还可以根据一个整数来生成颜色

Dim clr As Color = Color.FromARGB(-16181)

通过共享方法ToARGB,可以将颜色转换为一个整数,例如:

Dim Val AS Integer Color.Black.ToARGB
Output.Show(Val)


--  作者:有点甜
--  发布时间:2014/4/30 22:37:00
--  
以下是引用y2287958在2014-4-30 20:07:00的发言:
谢谢

但返回值是:Color [WindowFrame]
而不是:Color.Black

如何返回Color.Black或一个枚举数字?

 

你试想引用这个颜色?直接引用就好。

 

Dim c As Color = Sheet(3,i).Style.BorderColorTop


--  作者:逛逛
--  发布时间:2014/5/1 15:18:00
--  

Sheet(3,i).Style.BorderColorTop.ToKnownColor    \'返回的是枚举数字

 

Sheet(3,i).Style.BorderColorTop.ToKnownColor.ToString   \'返回的是名称  如:Black       Color.要自己加上

 

 

如果是自定义颜色,都返回0

 


--  作者:lsy
--  发布时间:2014/5/1 15:55:00
--  
以下是引用逛逛在2014-5-1 15:18:00的发言:

Sheet(3,i).Style.BorderColorTop.ToKnownColor    \'返回的是枚举数字

 

Sheet(3,i).Style.BorderColorTop.ToKnownColor.ToString   \'返回的是名称  如:Black       Color.要自己加上

 

 

如果是自定义颜色,都返回0

 

那就更好用了。


--  作者:y2287958
--  发布时间:2014/5/2 12:04:00
--  
谢谢大家的帮助。