باز کردن فایل مربوط به برنامه در برنامه

[mohammadsamadi1377]

با سلام
میخواستم برنامه ای را بنویسم که ب طور مثال وقتی روی یک فایل با پسوند JPG کلیک میکنم برنامه باز بشه و سپس عکس رو نشون بده
خواهشا کمک کنید
پیشاپیش دستتون درد نکنه:لبخند:

[ho3ein.3ven]

سلام . سورس زیر رو بررسی کنید :

102108

موفق باشید

[soheila2012]

[QUOTE=ho3ein.3ven;1733024]سلام . سورس زیر رو بررسی کنید :

این تمامی فایل ها رو باز میکنه
البته اگه منظور دوستمون دقیقا همین باشه این کد ها رو هم اضافه کن که فرمت خاصی رو بتونه تشخصی بده
اول یه ComboBox بزار و توشو با فرمت های که میخوای پر کن و این کد رو بنویس
Private Sub Combo1_click()
File1.Pattern = Combo1.Text
End Sub

[mohammadsamadi1377]

ب طور مثال : من یه برنامه دارم که یه متن رو "Test" توی درایو c ذخیره میکنه البته با پسوند .VLSM
مثلا : C:\Test.VLSM
حالا میخوام که وقتی Test.VLSM از درایو C باز میکنم اول برنامه ام باز بشه بعد متن درون Test.VLSM رو توی یه TextBox نشون بده
فکرکنم کامل گفتم :متفکر:

اگرکامل نبود بگید بیشتر توضیح بدم

[mohammadsamadi1377]

خود وی بی فایلش رو با پسوند vbp ذخیره میکنه بعد برا باز کردنشون اول VB06.exe باز میشه بعد اطلاعات توی Projeck1.vbp را باز میکنه
حالا من یه چیزی مثل این میخوام
:متفکر:......:متفکر:

[محسن واژدی]

سلام علیکم
از تابع Command پارامترهای ارسال شده به برنامه را دریافت و پردازش میکنیم،

به عنوان مثال دستور زیر را در Form1 کپی و برنامه را کمپایل کنید، سپس یک فایل تصویری از نوع jpeg بر روی فایل کامپایل شده کشیده و رها کنید:
Private Sub Form_Load()
On Error Resume Next
Dim sRecParam$
sRecParam$ = Command
sRecParam$ = Replace$(sRecParam$, """", "")
If sRecParam$ > "" Then
If LCase$(sRecParam$) Like "*.jpg" Then
Picture = LoadPicture(sRecParam$)
Else
MsgBox "Incorrect type...", vbExclamation
End
End If
Else
End
End If
End Sub

بعد از دریافت پارامتر که مسیر تصویر است، تصویر در زمینه فرم بار میشود

موفق باشید

[mohammadsamadi1377]

بازم یه سوال دگ
1.چجوری میتونم به سیستم بگم ازاین به بعد فایل هایی با پسوند .JPG را با برنامه ی من بازکن ؟
نمیخوام دستی باشه. اتومات انجام بده
2.چجوری برا فایلی با پسوند .VLSM آیکن بزارم ؟
مثلا فایل با پسوند .VBP دارای آیکن هستش .
میخوام با اولین اجرا دو کار بالا صورت گیرد برای همیشه
-----------------------------------------------------------------------
Thanks A Lot

[محسن واژدی]

بازم یه سوال دگ
1.چجوری میتونم به سیستم بگم ازاین به بعد فایل هایی با پسوند .JPG را با برنامه ی من بازکن ؟
نمیخوام دستی باشه. اتومات انجام بده
2.چجوری برا فایلی با پسوند .VLSM آیکن بزارم ؟
مثلا فایل با پسوند .VBP دارای آیکن هستش .
میخوام با اولین اجرا دو کار بالا صورت گیرد برای همیشه
-----------------------------------------------------------------------
Thanks A Lot

سلام علیکم
ضمیمه زیر بررسی کنید:
http://barnamenevis.org/attachment.php?attachmentid=69419&d=1304312249

موفق باشید

[mohammadsamadi1377]

سورس مشکل داره لبم هنگ میکنه

[محسن واژدی]

سورس مشکل داره لبم هنگ میکنه
سورس قبلی برای یکی از دوستان نوشته شده بود که نیازمند بازنگری هست، خودتون میتونید تابع ConnectExtsToMe را ویرایش و سفارشی کنید، به عنوان مثال گزینه توضیحات پسوند جدید را به تابع اضافه کنید و از این دست
چون بعد از ثبت پسوند جدید، برای مشاهده تغییرات سیستم بروز میشود، explorer یک یا دوثانیه مکث میکنه، وگرنه میتوانید دو دستور:
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)
Call SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)

را از تابع ConnectExtsToMe حذف کنید، که در اینصورت برای مشاهده بهتر تغییرات باید کاربر را log-off یا explorer را یکمرتبه بسته و باز کنید

موفق باشید