منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (https://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة (/showthread.php?tid=13755)

طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - hamada salah90 - 08-11-15

السلام عليكم ورحمة الله وبركاته

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

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


كود لفتح مجلد

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

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

كود فتح صيغة PDF

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

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

RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - vb6_coder - 08-11-15

السلام عليكم

.rar   Open_All _1.rar (الحجم : 2.14 ك ب / التحميلات : 129)

RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - hamada salah90 - 09-11-15

شكرا اخي الكريم


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

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

RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - Ahmed_Mansoor - 09-11-15

أهلا أخي الكريم , إنسخ هذا الكود وألصقه في داخل مثالك الذي أرفقته , كود واحد يفتح المجلدات والملفات بأنواعها :

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


RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - hamada salah90 - 10-11-15

شكرااااااااااااا

RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - awidan76 - 19-12-15

حلو وجزاكم الله خير

RE: طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة - MicroDoha - 29-03-17

بارك الله فيك اخي