تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة
#1
Lightbulb 
السلام عليكم ورحمة الله وبركاته

أحبابي في الله

اريد مجموعة من الأكواد الخاصة والمتشابهه ب open


كود لفتح مجلد

كود لفتح فيديو

كود لفتح بنامج بصيغة exe

كود فتح صيغة PDF

وبارك الله لكم جميعا

مرفق مثال لإضافة الأكواد فيه


الملفات المرفقة
.zip   Open_All.zip (الحجم : 1.91 ك ب / التحميلات : 101)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة: حامد محمد
#2
السلام عليكم

.rar   Open_All _1.rar (الحجم : 2.14 ك ب / التحميلات : 124)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , hamada salah90 , حامد محمد
#3
شكرا اخي الكريم


ولكني كنت لا اقصد CommonDialog1

ولكن اريد كود واحد لفتح برنامج واحد فقط بعينه مثل Calculator.exe
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#4
أهلا أخي الكريم , إنسخ هذا الكود وألصقه في داخل مثالك الذي أرفقته , كود واحد يفتح المجلدات والملفات بأنواعها :

كود :
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

Private Sub OpenAll(Optional InitialDirectory As String)

      ShellExecute 0, "open", InitialDirectory, _
        vbNullString, vbNullString, SW_SHOWNORMAL

End Sub


Private Sub Command1_Click()

OpenAll "C:\File.exe"

End Sub

Private Sub Command2_Click()

OpenAll "C:\Windows"

End Sub

Private Sub Command3_Click()

OpenAll "C:\File.pdf"

End Sub

Private Sub Command4_Click()

OpenAll "C:\File.avi"

End Sub
الرد }}}
#5
شكرااااااااااااا
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , awidan76
#6
حلو وجزاكم الله خير
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#7
بارك الله فيك اخي
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج مفكرة تنبيه صوتي aboezzat84 0 154 07-01-24, 02:25 PM
آخر رد: aboezzat84
  [vb6.0] أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ hamada salah90 7 1,000 26-03-23, 03:05 PM
آخر رد: sanyor77
  طلب برنامج فيصل الحطامي 1 560 01-03-23, 09:29 AM
آخر رد: مصمم هاوي
  [سؤال] مساعدة فى Loop لـ برنامج الاجازات aboezzat84 0 370 26-02-23, 08:26 PM
آخر رد: aboezzat84
Star [vb6.0] برنامج Total VB SourceBook 6 - تحميل عبدالله خضر 9 14,404 19-01-23, 02:32 PM
آخر رد: مبرمج جديد
  [سؤال] هل هنالك برنامج طباعة شيكات اردنية ؟؟ princeofislam 6 7,149 15-11-22, 06:49 PM
آخر رد: esamsamir777
  بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات hannileo 0 551 03-07-22, 12:19 PM
آخر رد: hannileo
  [vb6.0] طلب : أريد كود للبحث في كومبوبوكس وتظهر النتيجة في ليستبوكس أسفله hamada salah90 0 871 20-08-21, 11:18 PM
آخر رد: hamada salah90
  [vb6.0] أريد تخصيص وظيفه لازرار لوحة المفاتيح مثلا F2 يتم فتح نافذه معينه hamada salah90 2 1,185 29-07-21, 07:50 PM
آخر رد: hamada salah90
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 3 عبدالله خضر 17 13,507 04-07-21, 03:00 PM
آخر رد: عبدالله خضر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم