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

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

https://imgur.com/CndegRJ

https://imgur.com/saLsXLf

ومظبط كل اعدادت اللغة

https://imgur.com/2KvnSLT

https://imgur.com/Ro6UhPv

قبل أن تنسخ حول لوحة المفاتيح للغة العربي ثم قم بالنسخ

الف مليوووووووووووووون شكر
ولكن مفيش كود يحولها قبل النسخ ؟

(26-08-18, 05:21 PM)ahmad.roz كتب : [ -> ]الف مليوووووووووووووون شكر
ولكن مفيش كود يحولها قبل النسخ ؟

أضف موديول وضع فيه هذا الكود

PHP كود :

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Public Sub CopyUTF8ToClipboard(txt As String)
    Dim currKL As String: currKL = String(9, 0)
    GetKeyboardLayoutName currKL
    LoadKeyboardLayout "00000401", 1
    Clipboard.Clear
    Clipboard.SetText txt, vbCFText
    LoadKeyboardLayout currKL, 1
End Sub 

ثم في زر النسخ استخدم هذه الطريقة

PHP كود :

Private Sub Command1_Click()
    Call CopyUTF8ToClipboard(Text1.Text)
End Sub 

الف شكر ع المجهود

السلام عليكم ورحمة الله وبركاته

المشكلة عندي في لصق نص عربي في خانة نص برنامج فيجوال بيزك 6
فتظهر رموز غيرمفهومة مثل ؟؟؟؟

اي المشكلة عكس ما طرح الاخ الكريم
فهل من حل؟

شكرا لكم جزيلا

لم تنجح اخي تعطي ايضا علامات استفهام بد من الحروف العربي
اما مع الارقام والانجليزي شغال تمام

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmad.roz

عابر سبيل 2

ahmad.roz

عابر سبيل 2

ahmad.roz

عبدالله الصافي

عبدالله الصافي