主题：双击菜单按钮报错

1、可以禁用

 

e.sender.Enabled = false

 

'执行代码

 

e.sneder.Enabled = True

 

2、可以延时

 

static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 5000  Then '间隔5秒点击才有效
    Return
End If

 

'本来的代码