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

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

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


كود لفتح مجلد

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

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

كود فتح صيغة PDF

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

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


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

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

.rar   Open_All _1.rar (الحجم : 2.14 ك ب / التحميلات : 36)
الرد }}}}
تم الشكر بواسطة: 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)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة بخصوص برنامج المصروفات ابو مهدي 3 176 19-07-16, 12:54 PM
آخر رد: ابو مهدي
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 3 عبدالله خضر 14 4,608 25-06-16, 11:38 AM
آخر رد: DonMu
Thumbs Up [vb6.0] مجموعة جميلة من الايقونات والادوات VB_Local 9 684 25-06-16, 11:17 AM
آخر رد: DonMu
  [سؤال] برنامج كريستال ريبورت 8 وادي العوضي 6 1,909 22-06-16, 07:33 PM
آخر رد: alaa_altunsi
  ارجوا برنامج للتحزيم hisoma 3 383 05-06-16, 09:53 AM
آخر رد: aboezzat84
  مساعدة في تصميم برنامج صغير (طرة وكتبة) starwarr2005 2 185 22-05-16, 01:42 PM
آخر رد: starwarr2005
  [vb6.0] برنامج لقراءة الوزن من الشاحنات وادي العوضي 11 2,019 13-04-16, 11:07 AM
آخر رد: MicroDoha
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 2 عبدالله خضر 10 2,976 13-04-16, 11:05 AM
آخر رد: MicroDoha
Question [كود] مساعدة فى كود برنامج اتصال برودباند mangawy 2 1,829 13-04-16, 11:03 AM
آخر رد: MicroDoha
  أريد عمل منبه صوتي يعمل عند مجيء مواعيدي المكتوبة بعد شهر او اكثر esamoko 2 506 13-04-16, 10:58 AM
آخر رد: MicroDoha

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


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