• 0
alhaithm

فتح تطبيق من داخل الأكسيس في وندوز 8.1

سؤال

الأخوة الأعزاء

 

بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 8 (32 بيت و 64 بت)

 

فهل من منجد لتعديله للعمل مع وندوز 8.1 (32 بت)

 

Private Sub OpenKey_Click()

On Error GoTo Err_OpenKey_Click
 
' Dim RetVal
' RetVal = Shell("C:\WINDOWS\System32\osk.exe", 1)
 
 
    Dim stAppName As String
 
    stAppName = "C:\WINDOWS\System32\osk.exe"
    Call Shell(stAppName, 1)
 
' Call Shell("osk.exe", 1)
 
Exit_OpenKey_Click:
    Exit Sub
 
Err_OpenKey_Click:
    MsgBox Err.Description
    Resume Exit_OpenKey_Click
    
End Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

هذا مثال للأستاذة / زهرة

 

za-OSK.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السﻻم عليكم

اخوي الهيثم اجابتك موجودة في المنتدي ومن اجابات اﻻخت الفاضلة ام عهود

ابحت بكلمة كود ﻻ يعمل علي ويندوز 8

بخصوص اظهار الكيبورد علي ويندوز 8

-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا أخي 

 

استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه

 

فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .