چگونه اجرای انواع فایلها در VB6 - هفت خط کد انجمن پرسش و پاسخ برنامه نویسی

وبـــلاگ هــفت خــط کــد


آموزش های برنامه نویسی
۵۸ نفر آنلاین
۰ عضو و ۵۸ مهمان در سایت حاضرند

چگونه اجرای انواع فایلها در VB6

+2 امتیاز
49 بازدید
درود بر همگی

دوستان من میخوام در ویژوال بیسیک ابتدا مسیر یک فایل رو وارد کنم

و پرونده های داخل اون مسیر در یک لیست باکس به نمایش در بیاید و هنگامی که روی اون پرونده خودم کلیک کردم با برنامه خودش باز شود

 

برای مثال اگر روی یک پرونده PDF  کلیک کردم با خوده برنامه  ADOBE اجرا شود

 

دوستان عجله دارم خواهشا کمکم کنید.
سوال شده اردیبهشت 9, 1393  بوسیله ی Farhad (امتیاز 51)   5
سوال خوبیه
شوخی نکن اگه سوال خوبی بود           چرا امتیاز ندادی
بیا اینم امتیاز

1 پاسخ

+3 امتیاز
 
بهترین پاسخ

برای لیست کردن از filelistbox استفاده کن

البته از api ها هم میتونی enum کنی

برای باز شدن هم ازدستور

Private Sub File1_DblClick()
Shell "cmd /c " & Chr(34) & File1.Path & "\" & File1.List(File1.ListIndex) & Chr(34)
End Sub

 

البته این کد برای آماتور ها است

برای کد های پیشرفته تر میتونین از

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

 

استفاده کنین که اگه آماتور هستین پیشنهاد نمیکنم

پاسخ داده شده اردیبهشت 11, 1393 بوسیله ی Fire360Boy (امتیاز 3,342)   2 16 42
...