vba窗口中显示右键
摘要：
Dim flagPrivate Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)On Error Resume NextIf Button = 2 And Not flag ThenOn Error Resume NextApplication.CommandBars("dddd").DeleteApplication.CommandBars.Add "dddd", msoBarPopu 阅读全文
posted @ 2014-03-23 14:27 鱼东鱼 阅读(585) 评论(0) 推荐(0) 编辑
