- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求大大帮忙改改，有几个地方要改滴。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72361)
-- 发布时间：2015/7/29 9:52:00
-- 求大大帮忙改改，有几个地方要改滴。
大大们打开项目后，先说第一个问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:小erp主界面设计项目--修改版(论坛).table |
-- 发布时间：2015/7/29 9:54:00
--
导航栏这3个按钮设置了点击代码，按钮点下去之后颜色没有变成黄色，下面几个没设置代码的按钮却显示正常
此主题相关图片如下：xexii$gc0_bhh28qnhtpu.png
-- 发布时间：2015/7/29 10:02:00
--
第二个问题，我打开项目之后，显示的是第一个主表，我用的方法是项目属性隐藏其他主表，这样的话，打开项目的时候隐藏主表的界面都能看到延迟，有什么更好的方法？
此主题相关图片如下：b_%dd}8~c@1lhuy{m28m9hw.png
此主题相关图片如下：gkc8vtye30ygsat577{w.png
-- 发布时间：2015/7/29 10:11:00
--
初学者代码还没学会，只是涉及个大概界面出来，遇到小问题就问问，具体其他未问的也都有问题，但是暂时使用不影响留着以后学会了代码解决。求大婶指导。
-- 发布时间：2015/7/29 10:20:00
--
1、按钮样式是 Flat 的才能设置背景颜色，其余都不能，只要焦点不在窗口，就恢复原样。
2、
basemainform.Visible = False
Forms("广告窗口").open()
Forms("导航栏").open()
Forms("底部窗口").open()
Forms("主界面窗口").open()
Tables("基础信息").Visible = False \'\'\'\'隐藏表B
Tables("采购管理").Visible = False \'\'\'隐藏表C
Tables("销售管理").Visible = False \'\'\'隐藏基本信息表...........
Tables("仓库管理").Visible = False
Tables("生产管理").Visible = False
Tables("资产管理").Visible = False
Tables("财务管理").Visible = False
Tables("办公系统").Visible = False
Tables("系统设置").Visible = False
Tables("我的工作台").Visible = False
basemainform.Visible = true
-- 发布时间：2015/7/29 10:30:00
-- 第一个问题，好像是别人的电脑上没有问题
就是那个按钮用的2010black,别人的电脑跟窗口预览功能一样，是点击之后变成黄色，但是我的点击之后没有变成黄色。如图应该是这样把？
此主题相关图片如下：v6_bf_`i$5~q7)0wc)z$o`k.png
-- 发布时间：2015/7/29 10:32:00
--
看5楼，没有这种效果啊，用flat样式，控制背景颜色。
-- 发布时间：2015/7/29 10:36:00
--
你可能误解我问的问题，刚才在群里讨论，讲代码调换了以下现在没问题了，以前按钮代码是
MainTable = Tables("采购管理")
Forms("采购管理").show
这个时候点按钮，按钮颜色不变色
现在反过来
Forms("采购管理").show
MainTable = Tables("采购管理")
就可以变色了，
不知道这原因是怎么回事。
-- 发布时间：2015/7/29 10:38:00
--
已经跟你说了啊，只要焦点不在窗口上，就不会变色啊
-- 发布时间：2015/7/29 11:40:00
-- 求大大个代码
现在代码是，
此按钮的点击事件代码
With e.Form.Controls("Button3")
.FlatStyle = FlatStyle.SYSTEM
.BackColor = Color.YELLOW
End With
点击变黄，想要写下去当点击这个窗口中的其他按钮时此按钮恢复原来的系统色，求个代码。
此主题相关图片如下：13izjzr@6v5j%he(%nwpkq7.png