以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按钮样式讨教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56717)

--  作者:hbhb
--  发布时间:2014/9/11 12:08:00
--  按钮样式讨教
大师:好!
请问如何返回按钮的样式?

--  作者:有点甜
--  发布时间:2014/9/11 12:11:00
--  
msgbox(Forms("窗口1").Controls("Button1").FlatStyle)
msgbox(Forms("窗口1").Controls("Button1").VisualStyle)

--  作者:hbhb
--  发布时间:2014/9/11 12:28:00
--  
怎么都是0,?
问题是:我要统一设置项目中的按钮样式,如果是flat样式给一个统一设置,如果不是,来一个设置。遍列按钮控件后如何判断是不是flat样式?

劳驾写段代码?

--  作者:有点甜
--  发布时间:2014/9/11 14:09:00
--  

 回复楼上,Forms("窗口1").Controls("Button1").FlatStyle

 

 0 表示 Flat

 

 1 表示 Popup

 

 2 表示 Standard

 

 3 表示 System

 

 遍历的代码,自己写。