زر لفتح Character Map

اكتب في الامر التالي قي زر الامر عند الحدث click

    Dim stAppName As String
    stAppName = "C:\Windows\system32\charmap.exe"

    Call Shell(stAppName, vbNormalFocus)

بالتوفيق ان شاء الله

شكرا اخي الكريم .. الطريقة شغالة

لكن توجد مشكلة في المسار اذ ان الكود يعتبره افتراضيا في الc

ماذا اذا كان النظام في بارتشن اخر او داخل فولدر اسمه مثلا winxp كما الحالة في بعض الاجهزة

بمعنى هل هناك طريقة ادق تعين المسار الحالي في الجهاز .. وليس افتراضيا

مع التقدير ..

حسب علمي لاتوجد طريقة دينميكيه لايجاد الملف التنفيذي المطلوب في لحال اختلاف مسار من جهاز لاخر

لذلك توجد طريقتين:

1- اما توحيد مسار الملف التنفيذي في كل جهاز اي ان تدخل على كل جهاز و تضع برنامج Character Map في مسار محدد "c:\my files\Character Map.exe"

2- او ان تغير المسار في ملف الاكسس حسب الجهاز

الاخت zahrah المميزة

شكرا على الاضافة الرائعة ......... تحياتي

مشكورة اخت زهرة

اياد دهشان كتب:

حسب علمي لاتوجد طريقة دينميكيه لايجاد الملف التنفيذي المطلوب في لحال اختلاف مسار من جهاز لاخر

لذلك توجد طريقتين:

1- اما توحيد مسار الملف التنفيذي في كل جهاز اي ان تدخل على كل جهاز و تضع برنامج Character Map في مسار محدد "c:\my files\Character Map.exe"

2- او ان تغير المسار في ملف الاكسس حسب الجهاز

شكرا على المتابعة

zahrah كتب:

تفضل اخي الكريم

ضع هذا الكود تحت زر امر

Private Sub MAP_Click()
Dim stAppName As String
stAppName = Shell("charmap.exe", 1)
End Sub

انسى الآن اين موجود نظام الويندوز فسواء كان على اي بارتشن سيعمل الكود بدون اي مشاكل حتى لو وضعت النظام على كوكب الزهره :)

لا تنسانا من التقييم بارك الله بك

بالتوفيق

اجابة شاملة

+1