以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/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
--  
谢谢老师！问题已解决。下次注意标题。