新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以使用剪切板对象可以做到,他有个方法
成都创新互联公司主营唐山网站建设的网络公司,主营网站建设方案,重庆APP开发,唐山h5小程序设计搭建,唐山网站营销推广欢迎唐山等地区企业咨询
clipboard.gettext
他会返回剪切板上的文本数据,可以这样调用:
dim St as string
st=clipboard.gettext
在通过text.settext方法,或其他功能类似的方法就可以把剪切板上的数据复制到光标处了
需要用到文本框的属性:
SelectionStart
这个就是返回你当前光标所在文本框的位置,注意位置从0开始计算(就是光标在最左边,返回0)。
然后,需要用到Len()函数,获得文本框当前的字符数。
基本思路:
获得:光标所在位置,SelectionStart
把原来的字符,按照 SelectionStart 值,分成前后两部分,这样把:
前部分与S 与后部分连接起来,赋值给文本框。
代码如下:
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, TextBox1.SelectionStart) s Microsoft.VisualBasic.Right(TextBox1.Text, Len(TextBox1.Text) - TextBox1.SelectionStart)
第一步,点击VS工具
请点击输入图片描述
第二步,打开后,新建一个Windows窗体应用程序
请点击输入图片描述
第三步,新建完毕后,如图所示
请点击输入图片描述
第四步,拖动文本框与按钮,如图示
请点击输入图片描述
第五步,将剪贴板复制与粘贴代码输入,如图示
请点击输入图片描述
第六步,运行程序
请点击输入图片描述
7
第七步,点击按钮,成功从剪贴板中复制与粘贴操作
请点击输入图片描述
在窗体中拉两个listbox控件和一个Button控件,然后双击Button控件将如下代码复制到光标位置;
Dim a As String
a = ListBox1.SelectedItem
ListBox2.Items.Add(a)
用这个语句在VB中实现文本复制。
Clipboard.Clear
Clipboard.SetText "要复制的字符"
然后在任意能粘贴文本的地方都可以粘贴了。