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

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

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


كود لفتح مجلد

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

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

كود فتح صيغة PDF

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

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


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

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

.rar   Open_All _1.rar (الحجم : 2.14 ك ب / التحميلات : 49)
الرد }}}}
تم الشكر بواسطة: 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
الرد }}}}
تم الشكر بواسطة: hamada salah90 , awidan76
#5
شكرااااااااااااا
 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [vb6.0] برنامج Total VB SourceBook 6 - تحميل عبدالله خضر 6 296 30-04-17, 11:41 PM
آخر رد: gadr
  [سؤال] برنامج كريستال ريبورت 8 وادي العوضي 9 3,439 29-04-17, 01:17 PM
آخر رد: ahmed elkazaz
  [مشروع] برنامج راديو , يعمل على الكمبيوتر من خلال النت محمد علي 5 614 28-04-17, 06:48 PM
آخر رد: عبد الرحمن على
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 95 10-04-17, 01:45 PM
آخر رد: Amir_alzubidy
Thumbs Up [vb6.0] مجموعة جميلة من الايقونات والادوات VB_Local 14 1,190 31-03-17, 08:04 PM
آخر رد: zine pef
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 2 عبدالله خضر 11 3,447 29-03-17, 01:42 PM
آخر رد: MicroDoha
  تصدير االبيانات المحددة داخل listview الى برنامج الاكسل haniblack 6 182 28-03-17, 12:55 PM
آخر رد: haniblack
  ارجو المساعدة بخصوص برنامج المصروفات ابو مهدي 3 417 19-07-16, 12:54 PM
آخر رد: ابو مهدي
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 3 عبدالله خضر 14 5,208 25-06-16, 11:38 AM
آخر رد: DonMu
  ارجوا برنامج للتحزيم hisoma 3 553 05-06-16, 09:53 AM
آخر رد: aboezzat84

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


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