ÔõÑùʵÏÖµã»÷Ò»¸ö°´Å¥£¬¾Í½«µ±Ç°´°ÌåÖ¸¶¨ÊäÈë¿òÀïµÄÊý¾Ý¸´ÖƵ½Windows¼ôÇаåÄØ£¿ÎÒÊÔ¹ýÓÃClipboard£¬µ«²»ÐУ¬ËƺõûÓÐÕâ¸öº¯ÊýÓÐÕâ¸ö¹¦ÄÜ°¡¡£²éÒ»ÏÂmsdn¾Í¿ÉÒÔÁË°¡¡£ 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
VB code:
Private Sub Command1_Click() Clipboard.SetText Me.Text1.Text End Sub