vb复制剪贴板html,VB把选中的内容复制到剪切板
两个最有⽤的 Clipboard ⽅法是 SetText 和 GetText。 ⽤ SetText 和 GetText ⽅法向剪贴板和从剪贴板传送数据
SetText 将⽂本复制到 Clipboard 上，替换先前存储在那⾥的⽂本。可将 SetText 作为⼀条语句使⽤。其语法如下：
Clipboard.SetText data[, format]
GetText 返回存储在 Clipboard 上的⽂本。也可将它作为函数使⽤：
destination = Clipboard.GetText()
将 SetText 和 GetText ⽅法，和“使⽤选定⽂本”中介绍的选择属性结合起来使⽤，可容易地编写⽂本框的“复制”，“剪切”和“粘贴”命令。下列⼀些事件过程，为以 mnuCopy，mnuCut 和 mnuPaste 命名的控件，实现了这些命令：
Private Sub mnuCopy_Click ()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub
Private Sub mnuCut_Click ()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
Private Sub mnuPaste_Click ()
Text1.SelText = Clipboard.GetText()
End Sub
注意 如果它们都是菜单控件时，⽰例会⼯作得最好，这是因为 Text1 有焦点时可使⽤菜单。
要注意的是 Copy 和 Cut 这两个过程，都要先⽤ Clear ⽅法将 Clipboard 清空。(因为可能要以⼏种不同的格式在 Clipboard 上放置数据，所以 Clipboard 不应⾃动清空。这在本章后⾯的“在 Clipboard 上使⽤多种格式”中有详细描述。然后，Copy 和 Cut 这两个过程，都⽤下⾯的语句将 Text1 中所选择的⽂本复制到 Clipboard 上：
Clipboard.SetText Text1.SelText
在“粘贴”命令中，GetText ⽅法将返回 Clipboard 上当前的⽂本字符串。然后⽤⼀条赋值语句将该字符串复制到⽂本框的指定位置(Text1.SelText)。如果当前没有被选定的⽂本，则 Visual Basic 将该⽂本放置在⽂本框中插⼊点处：
Text1.SelText = Clipboard.GetText()
该代码假定全部⽂本被传送到或传送出⽂本框 Text1，⽽⽤户可在 Text1 和其它窗体上的控件之间进⾏复制、剪切和粘贴。
由于 Clipboard 是被整个环境所共享的，所以在 Text1 和任何正在使⽤剪贴板的应⽤程序之间，也能传送⽂本。
使⽤ ActiveControl 属性
如果希望“复制”、“剪切”和“粘贴”命令能和任何有焦点的⽂本框⼀起⼯作，可使⽤ Screen 对象的 ActiveControl 属性。下列代码给任何有焦点的控件提供了⼀个引⽤：html内容文本框
Screen.ActiveControl
可将此代码段当作对控件的任何其它引⽤⼀样使⽤。如果知道该控件是⼀个⽂本框，就可引⽤⽀持⽂本框的任何属性，包括 Text、SelText 和 SelLength。下列代码假定活动的控件是⼀个⽂本框，且使⽤了 SelText 属性：
Private Sub mnuCopy_Click ()
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText End Sub
Private Sub mnuCut_Click ()
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText Screen.ActiveControl.SelText = ""
End Sub
Private Sub mnuPaste_Click ()
Screen.ActiveControl.SelText = Clipboard.GetText() End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。