Option ExplicitPrivate Sub Command1_Click() Clipboard.SetText Text1.SelText End SubPrivate Sub Command2_Click() Text2.Text = Clipboard.GetText End Sub
Option ExplicitPrivate Sub Command1_Click() '复制 Clipboard.SetText Text1.SelText End SubPrivate Sub Command2_Click() '粘贴 Text2.Text = Clipboard.GetText End Sub
如果你说的内存指的是剪贴板,可以这样操作:
从剪贴板得到文本:Clipboard.GetText
将文本赋给剪贴板:Clipboard.SetText "abc"
Clipboard.SetText Text1.SelText
End SubPrivate Sub Command2_Click()
Text2.Text = Clipboard.GetText
End Sub
Clipboard.SetText Text1.SelText
End SubPrivate Sub Command2_Click() '粘贴
Text2.Text = Clipboard.GetText
End Sub
如果我有一個text1,用Clipboard.SetText(text1)的話~就把text1全部的東西放到剪貼版上~
有甚麼方法可以確定我用鼠標選定的東西~?還有怎麼判斷剪貼版上麵有沒有值?