ÔõÑùʵÏÖµã»÷Ò»¸ö°´Å¥£¬¾Í½«µ±Ç°´°ÌåÖ¸¶¨ÊäÈë¿òÀïµÄÊý¾Ý¸´ÖƵ½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
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......