主题：有没有界面美化的一些功能~~（完成，方法见18楼）

LOADING图只能在安装文件夹下覆盖？

 

能否打开时先弹出一个覆盖表和菜单的窗口/图片？

 

主窗口不能覆盖菜单啊~~

 

还有我看别人的设计里，左上角那个类似WIN7 开始的圈是自定义的，如何设计~是在菜单里嘛 想加上一些公司的LOGO之类的

 

 感激不尽

我真是有扫完帮助再来提问的啊= =

现在怎么论坛回车不换行了。。

3楼这种窗口，菜单载入了没？

4楼这个看不太清啊。。是不是左上角那个圆圈？找不到在哪里改啊

此主题相关图片如下：傲游截图20110830152205.png

啊。。原来就在主菜单这一栏~~~一直在里面找。。

这个搞定了

就是我想要打开后先显示一个窗口（图片），点击后才能载入（显示）菜单和TABLE怎么做呢，

这个可以学习好久了。。。但是有点奇怪啊

我直接双击打开的时候，只有登录窗口。如果已经打开了狐表，再在菜单里打开这个项目，就是有背景+登录了~~菜单也没有载入，就想要这个效果啊~~

但是这个背景是如何实现的啊~~~想要实现在没有显示菜单的样子。。

此主题相关图片如下：傲游截图20110830161546.png

 

Forms("窗口1").close

For Each tb As RibbonMenu.Tab in RibbonTabs
    tb.Visible = True
Next

 

in打错了。。然后我按钮上这样写，菜单没有显示完全啊，按钮都没出现~~求教

好像是显示了功能区，功能组没有显示

 

另外请问，表头、附件/图片格式的小窗口，在设置里可以选择隐藏，然后怎么用代码显示？

 

谢谢

 

更新

列窗口搞定

Tables("员工基本信息").Cols("照片").openWindow()

 

表标题搞定

TableCaptionVisible = False

 

菜单我看高手做的里面也是这样写的嘛。。不知道我为何不成功，我再试试

    For Each rb As RibbonMenu.Tab In RibbonTabs
        rb.Visible = True  '显示菜单
    Next

 

RibbonTabs("工作菜单").Groups("工作菜单").Items("利润统计").Visible = False

[此贴子已经被作者于2011-8-31 15:54:14编辑过]

全部搞定拉。。。非常感谢狐爸给的那个样板，学到了很多～

 

可能一些问题比较零碎，多谢狐爸的耐心解释了。

 

下面我总结下界面美化的一些心得，给新手们一些帮助

 

首先LODING界面，480x272的图片，命名为Splash.jpg，放在项目文件夹下（没尝试过其他尺寸，以后实验下）

 

 

其次，菜单方面

 

菜单设计-主菜单（标题），可以设置标题栏的名字，然后把显示文件名选FALSE

菜单设计-主菜单（图标），可以选择一个图标代替左上角的圈圈里的图案

 

隐藏表标题

项目属性-项目属性（界面-显示标题）选择false

 

打开时显示欢迎界面，隐藏菜单的设计，分为以下几步：

 

1，项目属性-项目事件（afteropenproject）

 

For Each rb As RibbonMenu.Tab In RibbonTabs
    rb.Visible = False  '隐藏菜单
Next

Tables("员工基本信息.证书信息").Visible = False '隐藏关联表
Tables("员工基本信息.培训信息").Visible = False

 

2，关闭表中自动打开的附件、图片列

 

3，建立一个启动窗口，设置为主窗口、自动打开设置为true，背景自行设计，然后增加一个按钮（最好也加以美化）

 

TableCaptionVisible = True ’显示表标题

For Each rb As RibbonMenu.Tab In RibbonTabs
    rb.Visible = True  '显示菜单
Next

Tables("员工基本信息.证书信息").Visible = True ’打开关联表
Tables("员工基本信息.培训信息").Visible = True
Tables("员工基本信息").Cols("照片").openWindow() ’打开列窗口

Forms("启动").close

'另外加上其他开启后执行的代码

 

 

以上~~菜鸟心得，感谢狐爸耐心教导~~