معاينة الصورة في نافذه المعاينة للويندز

السلام عليكم

أخي العزيز من اجل فعل ما تريد يجب عليك الأستعانة بال API

ShellExecute

و ذلك بالطريقة التالية :

أكتب هذا السطر في منطقة General:

Private Declare 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
Private Const SW_SHOW = 5

و هذا السطر في بوتن مثلا :

ShellExecute hwnd, "open", "c:\xxx.jpg", 0, 0, SW_SHOW

و اذا كان اي استفسار أنا تحت الخدمة

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

و السلام عليكم

شاكرلك أخ crazy-man

الكود شغال والحمدالله

طيب لو أبغى أطبع كل الصور الموجوده في مجلد معين أو بعضا منها على سبيل المثال المجلد

يحوي a1 , a2 , a3 و d1 , d2 ,d3

وأردت طباعة الصور التي تبدء بحرف a كلها بدون ما استعرضها .. بضغطت زر .. كيف يتم ذلك

اخ crazy-man

أبغى اطبق الكود السابق على هذا المثال المرفق

اقتباس

أكتب هذا السطر في منطقة General:

Private Declare 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
Private Const SW_SHOW = 5

و هذا السطر في بوتن مثلا :

ShellExecute hwnd, "open", "c:\xxx.jpg", 0, 0, SW_SHOW

علما بأن الصور تخزن في قاعدة البيانات كمرفق ثنائي

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

في الانتظار .......

PicInDatabase.zip

Up

Up