高压轴流风机:VB 向剪贴板和从剪贴板传送数据(转)
来源:百度文库 编辑:九乡新闻网 时间:2024/05/19 23:42:21
两个最有用的 Clipboard 方法是 SetText 和 GetText。如图 12.2 所示,用这两个方法向剪贴板和从 Clipboard 传送字符串数据。
图 12.2 用 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 属性。下列代码给任何有焦点的控件提供了一个引用:
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
作者:soarfly2005 回复日期:2005-12-12 12:44:53 两个最有用的 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 属性。下列代码给任何有焦点的控件提供了一个引用:
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
图 12.2 用 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 属性。下列代码给任何有焦点的控件提供了一个引用:
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
作者:soarfly2005 回复日期:2005-12-12 12:44:53
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 属性。下列代码给任何有焦点的控件提供了一个引用:
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
VB 向剪贴板和从剪贴板传送数据(转)
剪贴板
Microsoft Office Excel 剪贴板
mfc 剪贴板操作
Windows剪贴板编程
如何打开剪贴板查看器
IE弹出“是否允许该页从您的剪贴板粘贴信息”对话框问题的解决方案
我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点?
去掉“允许此网页访问剪贴板”提示
Word 2010文档巧妙使用Office剪贴板
去掉“允许此网页访问剪贴板”提示
去掉“允许此网页访问剪贴板?”提示
确实允许此网页访问剪贴板吗? 对话框取消方法
如何清空剪贴板(电脑知识图解教程)
去除“确实允许此网页访问剪贴板吗?”对话框
从txt向access录入数据
IE7弹出“确实允许此网页访问"剪贴板"吗? ”的解决办法 - wwjpl的日志 - 网易...
解决:“确实允许此网页访问剪贴板吗” - 玫瑰丽人的日志 - 网易博客
Windows 7 解除允许此网页访问“剪贴板提示 >>系统入门 >>黑白安全网
如何打开剪贴板查看器 - 电脑数码 - 〖娱乐灌水〗 - 牛股论坛 - Powered b...
IE弹出“确实允许此网页访问"剪贴板"吗? ”的解决办法--相关文章
[转载]使用ZeroClipboard解决跨浏览器复制到剪贴板的问题
如何解决IE7频繁弹出“确实允许此网页访问剪贴板吗”的问题
怎样去掉IE7“确实允许此网页访问"剪贴板"吗”的提示