| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]通用文本控件文字复制 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193192) |
| -- 作者：185723664 -- 发布时间：2024/8/25 23:07:00 -- [求助]通用文本控件文字复制 控件里MouseDown一下想实现复制控件里的字符 下面代码，每粘贴到窗口1个控件里都需要修改控件成想对应的控件名称很麻烦，求助改成通用的一段不用改控件名称的代码 Dim s As String = e.Form.Controls("TextBox1").Value If s <> "" Then ClipBoard.SetText(s) MessageBox.Show("已 复制!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information) End If |
| -- 作者：有点蓝 -- 发布时间：2024/8/26 8:49:00 -- Dim s As String = e.sender.text If s > "" Then …… |