eng aoff قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 السلام عليكم اساتذتي الكرام احتاج عند النقر على زر keybord يعمل الكيبورد الخاص بنظام التشغيل وجزاكم الله خير الجزاء keyboard.accdb رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 (معدل) السلام عليكم تفضل ويعمل لدي على وندوز 7 Call Shell("osk.exe", 1) keyboard.accdb تم تعديل فبراير 21 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر فبراير 21 الكاتب مشاركة قام بنشر فبراير 21 عاشت ايدك استاذ ولكن اعمل على ويندوز 10 وظهر خطأ رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 وعليكم السلام ورحمة الله وبركاته 🙂 تفضل الكود : يعمل عندي على ويندوز 10 أوفيس 365 Sub ShowVirtualKeyboard() Dim virtualKeyboardPath As String virtualKeyboardPath = "C:\Windows\System32\osk.exe" ' Path to the virtual keyboard executable Dim shellObject As Object Set shellObject = CreateObject("WScript.Shell") shellObject.Run "C:\Windows\System32\osk.exe" End Sub رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر فبراير 21 الكاتب مشاركة قام بنشر فبراير 21 لم يعمل ايضا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 (معدل) تفضل مشاركتي البسيطة ، حيث Open_Key اسم الزر الذي ستستخدمه لتنفيذ الكود . Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub OpenKeyboard() Dim osVersion As String Dim command As String osVersion = GetOSVersion() If osVersion = "10" Then command = "osk.exe" Else command = "osk.exe" End If ShellExecute 0, "runas", command, vbNullString, vbNullString, 1 End Sub Function GetOSVersion() As String Dim osVersion As String osVersion = SysCmd(acSysCmdAccessVer) GetOSVersion = Left(osVersion, InStr(osVersion, ".") - 1) End Function Private Sub Open_Key_Click() OpenKeyboard End Sub وهذا مرفق للتجربة Keyboard.accdb مع العلم أنه تمت تجربة كود الأستاذ @Moosak ويعمل بكفاءة تم تعديل فبراير 21 بواسطه Foksh 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر فبراير 22 أفضل إجابة مشاركة قام بنشر فبراير 22 تفضل استاذ @eng aoff محاولتي لفتح وغلق لوحة المفاتيح . DDOpen&CloseKB.rar 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر فبراير 24 الكاتب مشاركة قام بنشر فبراير 24 جزاكم الله خير الجزاء جميعا وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 14 مشاركة قام بنشر April 14 الاستاتذة الخبراء (kkhalifa1960 , و Foksh ) ابدعتم والله ابدعتم وتحياتي الخالصة لكم 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.