Foxtable(狐表)用户栏目专家坐堂 → 怎样才能把全部的菜单隐藏而只显示一个窗口?


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

主题:怎样才能把全部的菜单隐藏而只显示一个窗口?

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


加好友 发短信
等级:幼狐 帖子:180 积分:1239 威望:0 精华:0 注册:2009/5/5 10:20:00
  发帖心情 Post By:2009/8/22 18:56:00 [显示全部帖子]

AfterOpenProject

事件中打开模式窗口,我就是这样做的


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


加好友 发短信
等级:幼狐 帖子:180 积分:1239 威望:0 精华:0 注册:2009/5/5 10:20:00
  发帖心情 Post By:2009/8/22 19:41:00 [显示全部帖子]

只是模式窗口最前显示怎么还不实现呀
有时电脑开了很多程序,再打开项目时,找半天才能找到登陆窗口
[此贴子已经被作者于2009-8-22 19:41:34编辑过]

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


加好友 发短信
等级:幼狐 帖子:180 积分:1239 威望:0 精华:0 注册:2009/5/5 10:20:00
  发帖心情 Post By:2009/8/22 20:14:00 [显示全部帖子]

登陆按钮
dim str1 as string =e.Form.Controls("ComboBox1").value
dim str2 as string =e.Form.Controls("TextBox1").value
if str1="施乐辉" and str2="×××" then
e.form.close
elseif str1="管理员" and str2="×××" then
e.form.close
else
msgbox("密码不正确,请您重新输入",64,"提示")
e.Form.Controls("TextBox1").value=Nothing
e.Form.Controls("TextBox1").Select

end if

取消按钮
e.form.close
system.diagnostics.process.GetProcessesByName("foxtable")(0).kill


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


加好友 发短信
等级:幼狐 帖子:180 积分:1239 威望:0 精华:0 注册:2009/5/5 10:20:00
  发帖心情 Post By:2009/8/22 20:40:00 [显示全部帖子]

搞不懂了,你18楼的文件
Forms("窗口1").Close()
    Syscmd.Project.Exit()
这样是可以的

e.form.close
system.diagnostics.process.GetProcessesByName("foxtable")(0).kill

这个是不行的

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


加好友 发短信
等级:幼狐 帖子:180 积分:1239 威望:0 精华:0 注册:2009/5/5 10:20:00
  发帖心情 Post By:2009/8/23 8:00:00 [显示全部帖子]

我这里怎么可以实现呢?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部