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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10162)

نسخ نص - asto - 20-08-13

السلام عليكم

عندما نكتب في التكست بوكس نصا عربيا مثلا ثم ننسخه في المفكرة يظهر برموز غريبة

فكيف يمكن نسخ او قص النص العربي كما هو

نسخ نص - samee119485r - 20-08-13

قبل نسخ الكلام حول الغه الى العربي ونسخ

نسخ نص - mamas1 - 20-08-13

PHP كود :
'ضع الكود التالي في الموديل
Global Const KLF_ACTIVATE = &H1
Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long


Private Sub Command1_Click()
'للتحويل إلى العربية
A = LoadKeyboardLayout("00000401", KLF_ACTIVATE)

'للنسخ
Cipboard.settext text1.text
End Sub