Foxtable(狐表)用户栏目专家坐堂 → [求助]第一次打开项目,托盘功能有问题


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

主题:[求助]第一次打开项目,托盘功能有问题

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


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

 只能是多加一个模式窗口处理

 

 

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


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


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

必须有一个模式窗口一直打开,才不会打开foxtable主窗口。

 

最大化按钮事件

 

static ws As Integer = 0
static width As Integer = e.Form.baseform.width
static height As Integer = e.Form.baseform.height
static left As Integer = e.Form.baseform.left
static top As Integer = e.Form.baseform.Top

If ws = 0 Then
 width  = e.Form.baseform.width
 height  = e.Form.baseform.height
 left  = e.Form.baseform.left
 top  = e.Form.baseform.Top
    e.Form.baseform.width = SysInfo.WorkingAreaWidth
    e.Form.baseform.height = SysInfo.WorkingAreaHeight
    e.Form.baseform.left = 0
    e.Form.baseform.top = 0
    ws = 2
ElseIf ws = 2
    e.Form.baseform.width = width
    e.Form.baseform.height = height
    e.Form.baseform.left = left
    e.Form.baseform.top = top
    ws = 0
End If


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


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

加入判断

 

For Each frm As WinForm.Form In Forms
      If frm.Name <> "主页" AndAlso frm.Name <> "窗口1" Then
          frm.Close
      End If
Next


 回到顶部