程序设计基础－Visual Basic教程第2章 Visual Basic界面设计（上）.pptVIP

例2-5 模拟剪贴板功能。 对 象 属 性 属 性 值 对 象 属 性 属 性 值 窗体1 Name Form1 命令按钮1 Name CmdCopy Caption 剪贴板示例 Caption 复制 文本框1 Name Text1 命令按钮2 Name CmdCut Text 剪贴板示例 Caption 剪切 文本框2 Name Text2 命令按钮3 Name CmdPaste Text （清空） Caption 粘贴 Enabled False 对象的属性设置 Dim temptext As String Private Sub CmdCopy_Click() temptext = Text1.SelText If temptext Then CmdPaste.Enabled = True Else MsgBox 请先选中文本！ End If End Sub Private Sub CmdCut_Click() temptext = Text1.SelText If temptext Then Text1.SelText = CmdPaste.Enabled = True Else Msg