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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : لوحة مفاتيح على الشاشة (/showthread.php?tid=29644)

لوحة مفاتيح على الشاشة - dr.mostashar - 19-05-19

السلام عليكم

كيف أستطيع أستخدام لوحة المفاتيح على الشاشة في برنامجي 

استخدمت الأكواد في هذا المثال 

http://vb4arb.com/vb/showthread.php?tid=15130

لكن للأسف لم يعمل على ويندوز 10

وشكرا لكم

RE: لوحة مفاتيح على الشاشة - Ahmed_Mansoor - 20-05-19

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

أهلا بك أخي الكريم , يمكنك إستخدام لوحة المفاتيح على الشاشة التابعة للوندوز نفسه , ضع زر يظهرها عند الحاجة , جرب أن تضع هذا الكود في داخل كود الزر :

PHP كود :
Shell "osk.exe" 


RE: لوحة مفاتيح على الشاشة - Microformt - 20-05-19

وهذا الكود الكامل

PHP كود :
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare Function Wow64EnableWow64FsRedirection Lib "kernel32.dll" (ByVal Enable As Boolean) As Boolean

Private Sub Command1_Click()
Const SW_SHOWNORMAL = 1
    On Error Resume Next
    Wow64EnableWow64FsRedirection False
    ShellExecute Me.hwnd, "open", "osk.exe", "", App.Path, SW_SHOWNORMAL
    Wow64EnableWow64FsRedirection True
End Sub