★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板应用
Clipboard.Clear'剪粘板清除
Clipboard.SetText Text2.SelText'将text2中的选取文字复制到剪粘板上
Text2.SetText=""'如果想剪粘则加此行
Text1.Text = Clipboard.GetText'粘贴所选字符放在Text1
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板应用
Clipboard.Clear'剪粘板清除
Clipboard.SetText Text2.SelText'将text2中的选取文字复制到剪粘板上
Text2.SetText=""'如果想剪粘则加此行
Text1.Text = Clipboard.GetText'粘贴所选字符放在Text1
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板应用