بازکردن فایل در vb6

سلام دوستان

من میخواهم یک فایل (به عنوان مثال یک فایل pdf و یا هر فایل دیگری که با برنامه خودش باز می شود) را باز کنم.

لطفا دستور یا تابع آن را برایم بنویسید.

آیا باید از توابع API استفاده کرد.


منتظر راهنمائیهای شما هستم./


با تشکر.

Private Const SW_HIDE = 0

Private Const SW_SHOW = 5

Private Const SW_MINIMIZE = 3

Private Const SW_MAXIMIZE = 6

Private Const SW_NORMAL = 1

Private Const SW_SHOWDEFAULT = 10





Private Declare Function ShellExecuteA Lib "shell32.dll" (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

اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی یک uعدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود

hwnd : هندل پنجره ای که تابع باید تحت آن اجرا شود
lpOperation : نوع عملی که باید روی فایل انجام گیرد ( این اعمال وقتی روی فایل مورد نظر راست کلیک کنید ظاهر می شوند )
lpFile : فایل مورد نظر (فقط نام فایل با پسوند)
lpParameters : پارامتر های دیگری که ممکن است برنامه مورد نظر به آنها احتیاج داشته باشد
lpDirectory : دایراکتوری شامل فایل مورد نظر
nShowCmd : نحوه نمایش برنامه مرتبط
SW_HIDE : مخفی
SW_SHOW : غیر مخفی
SW_MINIMIZE : کمینه
SW_MAXIMIZE : بیشینه
VSW_NORMAL : اندازه عادی
SW_SHOWDEFAULT : اندازه پیش فرض

سلام

میشه یک مثال برای یک فایل مثلا pdf بزنی.

من آرگومانهای تابع را متوجه نمی شوم.

متشکرم.

ShellExecuteA hwnd, "open", "file.pdf", vbnullstring, "c:\dir", SW_NORMAL

مشکلت حل شد؟؟؟؟

از ole استفاده کردم.

سریعتر باز میشه تا shell