كود لفتح صورة فى برنامج خارجى

[User user]

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

تم تعديل أكتوبر 5, 2021 بواسطه eslamali2

[ابو جودي]

1 ساعه مضت, eslamali2 said:

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

اتفضل 

قم بإنشاء موديول جديد وضع بع الكود الاتى 

Function OpenImage(ImagePath As String)
    Dim officena As Long
        officena = Shell("mspaint " & Chr$(34) & ImagePath & Chr$(34), vbMaximizedFocus)
End Function

ويمكنك استدعاء الكود حسب رغبتك من خلال الكود الاتى 

OpenImage "D:\My Phone\DCIM\Camera\officena.jpg"

طبعا مع تغير مسار الصورة  D:\My Phone\DCIM\Camera\officena.jpg  كما تريد حسب موقعها 

[ابو جودي]

وهذا ملف التطبيق

OpenImage.zip

[User user]

الاستاذ @ابا جودى
محتاج احذف الصورة من خلال مسار لها فى تكست مثلا كالتالى  

"D:\My Phone\DCIM\Camera\officena.jpg"

تم تعديل أكتوبر 6, 2021 بواسطه eslamali2

[User user]

في ٥‏/١٠‏/٢٠٢١ at 16:48, ابا جودى said:

اتفضل 

قم بإنشاء موديول جديد وضع بع الكود الاتى 

Function OpenImage(ImagePath As String)
    Dim officena As Long
        officena = Shell("mspaint " & Chr$(34) & ImagePath & Chr$(34), vbMaximizedFocus)
End Function

ويمكنك استدعاء الكود حسب رغبتك من خلال الكود الاتى 

OpenImage "D:\My Phone\DCIM\Camera\officena.jpg"

طبعا مع تغير مسار الصورة  D:\My Phone\DCIM\Camera\officena.jpg  كما تريد حسب موقعها 

لو معنا اكثر من تكست فيهم مسار الصور 
صيغه الكود لكل تكست هتكون ايه 
والمديول هيتم استدعها كيف ؟؟

[User user]

في ٦‏/١٠‏/٢٠٢١ at 22:09, User user said:

الاستاذ @ابا جودى
محتاج احذف الصورة من خلال مسار لها فى تكست مثلا كالتالى  

"D:\My Phone\DCIM\Camera\officena.jpg"

؟؟؟

[ابو جودي]

ممكن مرفق لو تكرمت

[د.كاف يار]

40 دقائق مضت, User user said:

؟؟؟

Kill ImagePath   'مسار الصورة

 

[User user]

4 ساعات مضت, د.كاف يار said:

Kill ImagePath   'مسار الصورة

جزاك الله خيرا