Foxtable(狐表)用户栏目专家坐堂 → 发布后的程序系统菜单及功能还在怎么去掉?


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

主题:发布后的程序系统菜单及功能还在怎么去掉?

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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
发布后的程序系统菜单及功能还在怎么去掉?  发帖心情 Post By:2017/9/18 16:05:00 [只看该作者]

按范例设置登录窗口(模式窗口)登录后该窗口关闭,打开程序主窗口(独立模式窗口)。功能都已正常实现,发布程序后主窗口能正常显示,但主窗口后面还显示着软件的工作界面,不知道如何去掉?

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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 16:17:00 [只看该作者]

见下图,发布的时候,没有选择“生成系统菜单”,结果就显示下面这样了。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170918161519.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 16:39:00 [只看该作者]

麻烦老师们给看一下呗。

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


加好友 发短信
等级:幼狐 帖子:104 积分:1139 威望:0 精华:0 注册:2017/9/13 8:43:00
  发帖心情 Post By:2017/9/18 17:06:00 [只看该作者]

将菜单设计中程序菜单、快速访问栏等的可见属性设为FALSE

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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 17:13:00 [只看该作者]

我根本就没有设计过菜单。我只想让他显示一个独立窗口,不需要其他任何界面显示出来。

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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 17:16:00 [只看该作者]

以下是登录窗口的代码,标红处的代码直接单独放到按钮里执行是正常的,只显示这个窗口内容,但放到登录验证后密码通过后再打开该窗口就会显示多余的菜单。


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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 17:17:00 [只看该作者]


If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    e.Form.Close
    Forms("窗口1").open()
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 17:37:00 [只看该作者]

1、窗口1 改成模式窗口;

 

2、代码改成

 

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    e.Form.BaseForm.Opacity = 0
    e.Form.Close
    Forms("窗口1").open()
    basemainform.close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:婴狐 帖子:8 积分:117 威望:0 精华:0 注册:2017/9/18 16:03:00
  发帖心情 Post By:2017/9/18 23:24:00 [只看该作者]

我看了您 的代码,但我觉得关闭当前窗口,打开另一个窗口应该 是很简单的为什么 要
basemainform.close 和 e.Form.BaseForm.Opacity = 0 这个呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/19 8:57:00 [只看该作者]

1、模式窗口打开模式窗口,会有问题,需要设置 e.Form.BaseForm.Opacity = 0

 

2、basemainform是foxtable的主窗口,你关闭模式窗口后,要把foxtable的窗口也一起关闭,才行。


 回到顶部
总数 11 1 2 下一页