以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置双击日月框控件退出窗口?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28950)

--  作者:y2287958
--  发布时间:2013/2/23 15:15:00
--  如何设置双击日月框控件退出窗口?

如图

如附件

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table


--  作者:lin_hailun
--  发布时间:2013/2/23 15:45:00
--  
 把这段代码拷贝到 MouseDown事件中便可。

static prevtime As Date = Date.Today

Dim span As TimeSpan = Date.Now - prevtime
prevtime = Date.now
If span.TotalMilliseconds < 500 Then
    e.Form.Close
End If