[عابر سبيل 2]

(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