项目第一次打开以后 托盘以后 会显示狐表的界面 再次呼出窗口后托盘功能就正常了

请老师帮我看一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cqyy_201508201432.zip

转移到内部数据源了已经

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cqyy_201508201432.zip

能请教下这是什么原理么？还有代码里并没有制定窗口大小 但是为什么最大化会把windos的任务栏也遮盖掉呢？

必须有一个模式窗口一直打开，才不会打开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

老师  还有一个问题 

在点击切换窗口的按钮以后 会把模式窗口关掉

怎么才能保留那个模式窗口呢

For Each frm As WinForm.Form In Forms
      If frm.Name <> "主页" Then
          frm.Close
      End If
Next
Dim PB As WinForm.Panel = e.Form.Controls("Panel9")
Dim Name As String = "主窗口"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
Forms("主窗口").Open

加入判断

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

好了  谢谢老师