+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : النسخ ، القص ، واللصق للنصوص (/showthread.php?tid=5825)
النسخ ، القص ، واللصق للنصوص - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
بفرض أن لدينا Text1 وهو المكان الذي فيه النص ، فإننا سوف نستخدم Clipboard وتحديداً SetText لنقل النصوص ، وفي حالة القص سنقوم اضافة لذلك بمسح النص المحدد ، وأخيراً في حالة اللصق سوف نستخدم GetText .كود :
============================================
'copy
Private Sub command1_Click()
Clipboard.Clear
Clipboard.SetText text1.SelText
End Sub
============================================
'cut
Private Sub command2_Click()
Clipboard.Clear
Clipboard.SetText text1.SelText
text1.SelText = ""
End Sub
============================================
'paste
Private Sub command3_Click()
text1.SelText = Clipboard.GetText()
End Sub
============================================