+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] طلب كود -فتح ملف مساره موجود في text1.text (/showthread.php?tid=19732)
طلب كود -فتح ملف مساره موجود في text1.text - awidan76 - 20-03-17
اخواني كيف يمكن كتابه كود في زر امر لفتح ملف حيث مسار الملف موجود في صدوق text
لم استطع
Open file path =text11.text
علما ان الملف المراد فتحه سواء pdf او صوره
ولكم جزيل الشكر
او اي كود اخر يعمل نفس الغرض
RE: طلب كود -فتح ملف مساره موجود في text1.text - sendbad100 - 20-03-17
السلام عليكم ورحمة الله وبركاته
تفضل
PHP كود :
Private Sub Command2_Click()
ShellExecute 0, "open", Text1.Text, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
يجب اضافة الكود التالي في اعلى الصفحة الاكواد
PHP كود :
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_SHOWNORMAL = 1
يجب ان يكون المسار مع اسم الملف وامتداده داخل التكست بوكس
والله الموفق
مرفق مثال
RE: طلب كود -فتح ملف مساره موجود في text1.text - awidan76 - 20-03-17
شكرا جزيل
والله ماقصرت اخي العزيز
جلري التجربه
RE: طلب كود -فتح ملف مساره موجود في text1.text - sendbad100 - 20-03-17
العفو
بالتوفيق اخي الكريم
يوجد مثال لتوضيخ الفكرة في المشاركة الاولى
RE: طلب كود -فتح ملف مساره موجود في text1.text - awidan76 - 20-03-17
ماشاء الله عليك اخي السيندباد
وجزاك الله خيرا
تعبتك معي
هذا هو بالضبط المطلوب ساقوم بتعديل برنامجي وسارفقة ليستفيذ الاعضاء منه في في هذه الفترة
RE: طلب كود -فتح ملف مساره موجود في text1.text - sendbad100 - 20-03-17
(20-03-17, 03:40 PM)awidan76 كتب : ساقوم بتعديل برنامجي وسارفقة ليستفيذ الاعضاء منه في في هذه الفترة
الله يعطيك العافية
RE: طلب كود -فتح ملف مساره موجود في text1.text - awidan76 - 26-03-17
كما وعدت
هذا هو المثال
http://vb4arb.com/vb/showthread.php?tid=19796