Private Sub Command1_Click() s = "我是剪贴板中的内容" Clipboard.Clear '清空剪贴板 Clipboard.SetText s '将变量s文本赋给剪贴板 Text1 = Clipboard.GetText '将剪贴板中文本赋给text1 Clipboard.Clear Clipboard.SetData Picture1 '将picture1中图像赋给剪贴板 Picture2.Picture = Clipboard.GetData '将剪贴板中图像放到picture2中 SavePicture Clipboard.GetData, "d:\11.bmp " '将剪贴板中的图像保存到"d:\11.bmp"中 Text1.SelStart = 1 Text1.SelLength = 4 Print Text1.SelText Text1.SetFocus End Sub 'SelLength -返回或设置所选择的字符数? 'SelStart-返回或设置所选择的文本的起始点;若是没有文本被选中,则指出插入点的位置。 'SelText-返回或设置包含当前所选择文本的字符串;若是没有字符被选中,则为零长度字符串 ("")。orm 'Clipboard只有方法,没有属性和事件。方法还有GetFormat事件 |