منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ ماداخل البل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : نسخ ماداخل البل (/showthread.php?tid=9804)



نسخ ماداخل البل - sadiq - 26-07-13

اريد ان اجعل الزر ينسخ ماداخل البل 1
ممكن الكود


نسخ ماداخل البل - عبدالله الصافي - 26-07-13

هذا الكود منقول من المنتدي ولكني نسيت من أية قسم أو موضوع.

============================================
'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
============================================


نسخ ماداخل البل - عبدالله الصافي - 26-07-13

ممكن لليبلل تعمل نقل للكابشن تبعه في تيكست ثم تطبق الكود السابق علي التيكست


نسخ ماداخل البل - samee119485r - 26-07-13

تفضل اخي الكريم

هاذا مثال لنسخ محتوى اليبل
تحياتي


نسخ ماداخل البل - samee119485r - 26-07-13

واذا كان قصدك نقل من اليبل الى اتكست ستخدم هاذا

Text1.Text = Label1.Caption