20-08-13, 09:25 PM
20-08-13, 10:46 PM
قبل نسخ الكلام حول الغه الى العربي ونسخ
20-08-13, 11:35 PM
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