主题：如何控制按钮重复单击？

我做了一个桌面导航，通过按钮事件打开菜单，用户手快，多点了几次，程序就运行几次，请教老师这个要怎样控制？谢谢

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

 

'本来的代码

谢谢