以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享]窗口双击复制命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111044)

--  作者:洮沙
--  发布时间:2017/12/14 11:36:00
--  [分享]窗口双击复制命令

以下是窗口“DoubleClick”事件代码:

 

If e.Sender.Text = "" Then

      MessageBox.Show("空值,无法复制!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

      ClipBoard.SetText(e.Sender.Text)

      MessageBox.Show("已复制!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

[此贴子已经被作者于2017/12/14 12:01:35编辑过]