主题：运行错误

1、改成独立窗口，或者 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108051&skin=0

2、提醒窗口不能用模式窗口

1、不可以，只能让 foxtable 隐藏到托盘中

2、你设置成独立窗口后，就是同时打开了

1、参考

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

点击浏览该文件:downloads.zip

2、没办法，是同时打开的，这个控制不了。

AfterOpenProject写代码

BaseMainForm.Visible = True

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) '5秒后
    Application.DoEvents
End While

Forms("提醒窗口").Show

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

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

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

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

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

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

全局代码

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public const MOUSEEVENTF_MOVE As Int32 = &H1 '  mouse move
Public const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 '  left button down
Public const MOUSEEVENTF_LEFTUP As Int32 = &H4 '  left button up
Public const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 '  right button down
Public const MOUSEEVENTF_RIGHTUP As Int32 = &H10 '  right button up
Public const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 '  middle button down
Public const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 '  middle button up
Public const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 '  absolute move
Public const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled

ItemMouseEnter事件

If e.StripItem.ParentItem Is Nothing Then
    mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
    mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End If

默认就是会在上方正常显示。你做个例子发上来测试。