- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150061)
-- 发布时间：2020/5/19 18:17:00
-- [求助]
老师您好！
我在窗口设置了一个“粘贴”按钮如下图
此主题相关图片如下：qq截图20200519181119.jpg
按钮代码如下：
If ClipBoard.ContainsText Then
Dim s As String = ClipBoard.GetText()
Dim lb As WinForm.TextBox
lb = e.Form.Controls("TextBox1")
lb.SelectedText
= s
End If
为什么每次粘贴时不在我的光标位置粘贴，总是在文本开始处粘贴？
谢老师指教！谢谢啦！
-- 发布时间：2020/5/19 20:22:00
--
窗口afterload事件
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d = txt.BaseControl
d.HideSelection = False
[此贴子已经被作者于2020/5/19 20:22:12编辑过]
-- 发布时间：2020/5/20 9:10:00
--
谢谢老师！问题已解决。下次注意标题。