以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单失效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196289)
--  作者：zpsun2003
--  发布时间：2025/4/15 15:44:00
--  菜单失效
 偶尔会出现菜单失效的问题，有时候等一会能好，有时候一直失效，可能是什么原因导致的？生成项目后的用户菜单这样，我切换回咱们foxtable的自身算单也是一样
--  作者：有点蓝
--  发布时间：2025/4/15 16:04:00
--  
1、代码里有没有调用了SystemReady = False？

2、有没有什么计划管理等计时器在执行什么操作？
--  作者：zpsun2003
--  发布时间：2025/4/15 16:47:00
--  
计划管理理有，就是Ukey检测。
If UKey.Encrypt1("") <> "" Then
    DataTables.AllowEdit = False
    \'所有表都变为只读
    For Each rb As RibbonMenu.Tab In RibbonTabs
        rb.Enabled = False
    Next
    QAT.Enabled = False
    ConfigBar.Enabled = False
    ApplicationMenu.Enabled = False
    \'所有菜单都禁止使用
End If
[此贴子已经被作者于2025/4/15 16:46:56编辑过]
--  作者：zpsun2003
--  发布时间：2025/4/15 16:49:00
--  
 另外在菜单的Systemldle里，放入了以下代码：
StatusBar.Message3 = "当前用户:" & _UserName & "  " & Date.Now
\'当前时间
Static Undo As RibbonMenu.Button
Static Redo As RibbonMenu.Button
If Undo Is Nothing Then
    Undo = QAT.Items("Undo")
    Redo = QAT.Items("Redo")
End If
If CurrentTable.CanUndo Then
    If Undo.Enabled = False Then Undo.Enabled = True
Else
    If Undo.Enabled  Then Undo.Enabled = False
End If
If CurrentTable.CanRedo Then
    If Redo.Enabled = False Then Redo.Enabled = True
Else
    If Redo.Enabled Then Redo.Enabled = False
End If
\'以上代码用于更新快速访问栏中的"撤销"和"重做"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码

Static OpenQQ As RibbonMenu.Button
Static LastTime As Date
If OpenQQ Is Nothing Then
    OpenQQ = ConfigBar.Items("OpenQQ")
End If
Dim txt As String = "在线沟通"
If QQClient.Ready
    If QQClient.UnreadCount > 0 Then
        txt = txt & "(" & QQClient.UnreadCount & "条)"
    End If
End If
If OpenQQ.Text <> txt Then
    OpenQQ.Text = txt
End If
If OpenQQ.Text <> "在线沟通" Then
    Dim ntp As timeSpan = Date.Now - LastTime
    If ntp.TotalSeconds >= 0.5 Then
        LastTime = Date.Now
        If OpenQQ.ForeColor = Color.Red Then
            OpenQQ.ForeColor = Color.Transparent
        Else
            OpenQQ.ForeColor = Color.Red
        End If
    End If
End If
--  作者：有点蓝
--  发布时间：2025/4/15 17:17:00
--  
可能ukey有问题，或者usb口有问题。
--  作者：zpsun2003
--  发布时间：2025/4/15 17:45:00
--  
我上面的代码没问题吧，Ukey的话我这买过好多了，有的电脑很少出现，有的电脑上经常出现
--  作者：zpsun2003
--  发布时间：2025/4/15 17:45:00
--  
咱们的Ukey插的口有没有要求
--  作者：有点蓝
--  发布时间：2025/4/15 19:41:00
--  
对插口没有什么要求。改改代码，比如把菜单禁掉的代码改为直接弹窗提示然后退出项目，重新发布放到经常出问题的电脑测试一段时间看看

注意把把发布后的程序设置为“使用管理员身份运行”
--  作者：zpsun2003
--  发布时间：2025/4/16 11:14:00
--  
把发布后的程序设置为“使用管理员身份运行”
老师，这个怎么设定
--  作者：有点蓝
--  发布时间：2025/4/16 11:34:00
--  
去设置发布后的exe程序文件，类似：http://www.foxtable.com/mobilehelp/topics/0001.htm