Foxtable(狐表) → 用户栏目 → 专家坐堂 → 剪切、粘贴问题


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

主题：剪切、粘贴问题
帅哥哟，离线，有人找我吗？
lzzhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		剪切、粘贴问题  发帖心情 Post By：2017/10/22 10:18:00 [显示全部帖子]

功能区的“剪贴”、“粘贴”和快捷菜单中的“剪贴”、“粘贴”用的系统命令是一样的，但在实际操作中，快捷菜单中的“剪贴”、“粘贴”一点问题也没有，但功能区的“剪贴”、“粘贴”有时候会出现莫名其妙的问题，如在单元格处于编辑状态时，选择部分内容，点击功能区“剪切”按钮，会将单元格内容全部剪切，但用快捷菜单的“剪切”，就没有这个问题。
以上问题是在新打开一个项目时就存在。

在我的一个系统中，还存在下面的问题：

当选定一个单元格，点击功能区或快捷菜单的“剪切”按钮，会弹出运行错误'未设置对象变量或with块变量‘,提示菜单中不存在名为”常用工具”的项目和菜单中不存在名为“内置聊天”的项目。

功能区和快捷菜单的“剪切”按钮的命令代码都是  Syscmd.Edit.Cut(),为什么执行结果会不同，有什么地方需要注意？会有什么全局事件会影响到这个命令的执行，以致于弹出错误对话框？请老师看看  
[此贴子已经被作者于2017/10/22 10:21:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/10/23 7:56:00 [显示全部帖子]

只有Syscmd.Edit.Cut()一名代码，如何调试

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/10/23 8:49:00 [显示全部帖子]

我就是按上面你说的做了，这2个菜单有，调用的时候也没有问题，其它地方也没有出现再调用的地方，就是不知为什么要出现这个错误，而且是不断的弹出错误，都停不下来

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/10/23 11:22:00 [显示全部帖子]

只是在菜单的系统事件_SystemIdle 中有下面的代码，我没有找出问题所在，请老师看看



'----------------------------------------------------------------------------------------------------
Static OpenQQ As RibbonMenu.Button
Static LastTime As Date
If OpenQQ Is Nothing Then
    OpenQQ = ConfigBar.Items("内置聊天")
End If
Dim txt As String
If QQClient.Ready
    ConfigBar.Items("内置聊天").SmallImage = GetImage("online.ico")
    If QQClient.UnreadCount > 0 Then
        txt = "(" & QQClient.UnreadCount & "条)"
    End If
Else
    ConfigBar.Items("内置聊天").SmallImage = GetImage("offline.ico")
End If
If OpenQQ.Text <> txt Then
    OpenQQ.Text = txt
End If
If Forms("桌面导航").opened = True Then
    Forms("桌面导航").Controls("TopicBar1").Pages("即时通讯").Links("即时通讯").text = "  即时通讯  " & txt
End If
Dim ntp As timeSpan = Date.Now - LastTime
If ntp.TotalSeconds >= 1 Then
    LastTime = Date.Now
    If OpenQQ.Text > "" Then
        If OpenQQ.ForeColor = Color.Red Then
            OpenQQ.ForeColor = Color.Transparent
        Else
            OpenQQ.ForeColor = Color.Red
        End If
        If Forms("桌面导航").opened = True Then
            If QQClient.Ready = True Then
                If Forms("桌面导航").Controls("TopicBar1").Pages("即时通讯").Links("即时通讯").ImageFile = "online.ico"
                    Forms("桌面导航").Controls("TopicBar1").Pages("即时通讯").Links("即时通讯").ImageFile = "offline.ico"
                Else
                    Forms("桌面导航").Controls("TopicBar1").Pages("即时通讯").Links("即时通讯").ImageFile = "online.ico"
                End If
            Else
                Forms("桌面导航").Controls("TopicBar1").Pages("即时通讯").Links("即时通讯").ImageFile = "offline.ico"
            End If
        End If
    End If
    If Forms("桌面导航").opened = True Then
        If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").text.trim(" ") <> Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").Name.trim(" ")  Then
            If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").ImageFile = "生日.ico" Then
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").ImageFile = "生日1.ico"
            Else
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").ImageFile = "生日.ico"
            End If
        Else
            Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("今天生日员工").ImageFile = "生日1.ico"
        End If
        If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").text.trim(" ") <> Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").Name.trim(" ")  Then
            If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").ImageFile = "生日.ico" Then
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").ImageFile = "生日1.ico"
            Else
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").ImageFile = "生日.ico"
            End If
        Else
            Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本周生日员工").ImageFile = "生日1.ico"
        End If
        If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").text.trim(" ") <> Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").Name.trim(" ")  Then
            If Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").ImageFile = "生日.ico" Then
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").ImageFile = "生日1.ico"
            Else
                Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").ImageFile = "生日.ico"
            End If
        Else
            Forms("桌面导航").Controls("TopicBar1").Pages("员工生日提醒").Links("本月生日员工").ImageFile = "生日1.ico"
        End If
    End If
    
    
    Dim cfbar今天生日员工 As RibbonMenu.Button = ConfigBar.Items("常用工具").Items("今天生日员工")
    Dim cfbar本周生日员工 As RibbonMenu.Button = ConfigBar.Items("常用工具").Items("本周生日员工")
    Dim cfbar本月生日员工 As RibbonMenu.Button = ConfigBar.Items("常用工具").Items("本月生日员工")
    If cfbar今天生日员工.text.trim(" ") <> cfbar今天生日员工.Name.trim(" ")  Then
        If cfbar今天生日员工.Enabled = True Then
            cfbar今天生日员工.SmallImage = GetImage("生日1.ico")
            cfbar今天生日员工.Enabled = False
        Else
            cfbar今天生日员工.SmallImage = GetImage("生日.ico")
            cfbar今天生日员工.Enabled = True
        End If
    Else
        cfbar今天生日员工.SmallImage = GetImage("生日1.ico")
        cfbar今天生日员工.Enabled = False
    End If
    
    If cfbar本周生日员工.text.trim(" ") <> cfbar本周生日员工.Name.trim(" ")  Then
        If cfbar本周生日员工.Enabled = True Then
            cfbar本周生日员工.SmallImage = GetImage("生日1.ico")
            cfbar本周生日员工.Enabled = False
        Else
            cfbar本周生日员工.SmallImage = GetImage("生日.ico")
            cfbar本周生日员工.Enabled = True
        End If
    Else
        cfbar本周生日员工.SmallImage = GetImage("生日1.ico")
        cfbar本周生日员工.Enabled = False
    End If
    
    If cfbar本月生日员工.text.trim(" ") <> cfbar本月生日员工.Name.trim(" ")  Then
        If cfbar本月生日员工.Enabled = True Then
            cfbar本月生日员工.SmallImage = GetImage("生日1.ico")
            cfbar本月生日员工.Enabled = False
        Else
            cfbar本月生日员工.SmallImage = GetImage("生日.ico")
            cfbar本月生日员工.Enabled = True
        End If
    Else
        cfbar本月生日员工.SmallImage = GetImage("生日1.ico")
        cfbar本月生日员工.Enabled = False
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/10/23 12:28:00 [显示全部帖子]

我发现只要一点击“剪切”按钮，我的配置栏的所有菜单就都没有了，所以才会出现找不到常用工具和内置聊天按钮的情况，但为什么配置栏没有了呢？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询