Foxtable(狐表)用户栏目专家坐堂 → 运行错误


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

主题:运行错误

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2017/11/11 10:31:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/11 10:46:00 [只看该作者]

图片点击可在新窗口打开查看到任务管理器强制关闭

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2017/11/11 10:59:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/11/11 20:31:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.rar


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


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

代码,这样写,而且不要写到最后。

 

If Tables("系统设置").Current("是否提醒") = True Then
    Forms("主窗体").Open()
    Forms("停靠窗体").Open()
    '提醒窗口延迟显示
    BaseMainForm.Visible = True
    Dim sdt As Date = Date.Now
    While Date.Now < sdt.AddSeconds(8) '8秒后
        Application.DoEvents
    End While
    Forms("提醒窗体").Open()
    Forms("提醒窗体").TopMost = True
Else
    Forms("停靠窗体").Open()
    Forms("主窗体").Open()
End If


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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/11/12 22:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:456.jpg
图片点击可在新窗口打开查看
甜老师能将功能组设置成传统菜单吗?

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


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

建议隐藏系统菜单,然后显示一个向上停靠的共有窗口,在窗口里设置菜单。

 

隐藏系统菜单代码 BaseMainForm.controls("C1Ribbon1").visible = false

 


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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/11/12 23:31:00 [只看该作者]

在窗口里设置菜单,怎么设置当鼠标移到某一菜单项时自动打开菜单项,当鼠标移开后自动关闭菜单项呢?

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


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

以下是引用裴保民在2017/11/12 23:31:00的发言:
在窗口里设置菜单,怎么设置当鼠标移到某一菜单项时自动打开菜单项,当鼠标移开后自动关闭菜单项呢?

 

执行完菜单代码,就会自动关闭菜单选项的。

 

你是想在点击之后立马关闭?你可以使用timertick事件或者计划任务,延时执行菜单代码。

 

 


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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/11/13 9:04:00 [只看该作者]

我是想当鼠标进入菜单项后(相当于单击菜单项)就自动打开下拉菜单当鼠标离开菜单项后就自动关闭菜单项
[此贴子已经被作者于2017/11/13 9:04:59编辑过]

 回到顶部
总数 44 上一页 1 2 3 4 5 下一页