Foxtable(狐表)用户栏目专家坐堂 → 求大大帮忙改改,有几个地方要改滴。


  共有2778人关注过本帖树形打印复制链接

主题:求大大帮忙改改,有几个地方要改滴。

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/29 10:32:00 [显示全部帖子]

看5楼,没有这种效果啊,用flat样式,控制背景颜色。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/29 10:38:00 [显示全部帖子]

已经跟你说了啊,只要焦点不在窗口上,就不会变色啊

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/29 12:06:00 [显示全部帖子]

窗口,全局事件,Click

 

If Typeof e.Sender Is winform.Button Then
    For Each c As object In e.Form.Controls
        If Typeof c Is winform.Button Then
            If e.Sender.Name = c.Name Then            
                c.FlatStyle = FlatStyle.SYSTEM
                c.BackColor = Color.YELLOW
            Else
                c.VisualStyle = 3
            End If
        End If
    Next
End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/29 14:21:00 [显示全部帖子]

用并列窗口,每个功能一个窗口

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71515&skin=0

 


 回到顶部