الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو من الخبراء المساعدة العاجلة

مغلق
بدأه ahmedmah في 18 سبتمبر 2004 · 1 رد · 558 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذه اول مشاركاتى ارجو ان يتسع صدركم لها:

لقد قمت بتصميم قاعدة بيانات لمجموعة من الصور وقمت بوضع كود فى حدث الضغط المذدوج على الصورة ليعرضها ببرنامج عرض الصور الاساسى (accdsee) ولكن عند وجود مسافات داخل المسار يعطينى رسالة خطا والمسار مخزن داخل الجدول

وقد قمت باضافة مرجع (Windows Scripting Host Runtime Library v1.0) فهل من طريقة لذلك ولكم الشكر الكود الاتى هو المستعمل معذرة لم اعرف كيفية ارفاقه.

Private Sub img_DblClick(Cancel As Integer)

Dim w As New IWshShell_Class

Dim a As String

("a = ( "D:\access\my projects\img\f21.jpg

w.Run a

Set w = Nothing

End Sub

#2

اخي الكريم جرب هذا الكود 

'put this in 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 Sub Command1_Click()
On Error Resume Next
Dim L As Long, PicFullName As String
PicFullName = "c:\Pic1.jpg"
L = ShellExecute(hWnd, "open", LCase(PicFullName), vbNullString, vbNullString, 1)
End Sub

تم تعديل هذه المشاركة بواسطة ASMSA في 18 سبتمبر 2004 في 20:18

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

التعرف الدقيق آلياً على الصور (دنيا الكمبيوتر إلى أين)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…