اظهار كيبورد الويندوز

[eng aoff]

السلام عليكم اساتذتي الكرام 

احتاج عند النقر على زر keybord يعمل الكيبورد الخاص بنظام التشغيل 

وجزاكم الله خير الجزاء

keyboard.accdb

[Ahmed_J]

السلام عليكم

تفضل ويعمل لدي على وندوز 7

Call Shell("osk.exe", 1)

keyboard.accdb

تم تعديل فبراير 21 بواسطه Ahmed_J

[eng aoff]

عاشت ايدك استاذ ولكن اعمل على ويندوز 10 وظهر خطأ

[Moosak]

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

تفضل الكود : يعمل عندي على ويندوز 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

 

[eng aoff]

لم يعمل ايضا

[Foksh]

تفضل مشاركتي البسيطة ، 

حيث 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

[kkhalifa1960]

تفضل استاذ @eng aoff محاولتي لفتح وغلق لوحة المفاتيح .

DDOpen&CloseKB.rar

[eng aoff]

جزاكم الله خير الجزاء جميعا وبارك الله فيكم 

[gavan]

الاستاتذة الخبراء (kkhalifa1960 ,  و Foksh )

ابدعتم والله ابدعتم وتحياتي الخالصة لكم