نحوه باز کردن عکس در نمایشگر عکس ویندوز

با سلام دوستان من یه فایلی درست کردم برای ذخیره نامه ها
فقط ادرسشو تو دیتابیس ذخیره کردم
تا اینجا مشکلی ندارم و عکسو می تونم در image بخونم دوباره
حالا میخوام با کلیک روی این image که از دیتابیس سرچ کردم نمایشگر عکس خود ویندوز باز بشه تا هم بشه عکس رو بزرگ دید و هم بشه پرینت کرد
چون اندازه عکس خیلی زیاده و picturebox هم استرچ نمی کنه عکسارو برا همین میخواستم ببینم با چه روشی می تونم با کلیک روی این عکس با خود ویورر ویندوز عکس رو باز کنم
مممنون میشم راهنماییم کنین
گیر کردم

نقل قول:

---

نوشته شده توسط hosein3000

با سلام دوستان من یه فایلی درست کردم برای ذخیره نامه ها
فقط ادرسشو تو دیتابیس ذخیره کردم
تا اینجا مشکلی ندارم و عکسو می تونم در image بخونم دوباره
حالا میخوام با کلیک روی این image که از دیتابیس سرچ کردم نمایشگر عکس خود ویندوز باز بشه تا هم بشه عکس رو بزرگ دید و هم بشه پرینت کرد
چون اندازه عکس خیلی زیاده و picturebox هم استرچ نمی کنه عکسارو برا همین میخواستم ببینم با چه روشی می تونم با کلیک روی این عکس با خود ویورر ویندوز عکس رو باز کنم
مممنون میشم راهنماییم کنین
گیر کردم

---

Private Sub Command1_Click()

    OpenPhotoViewer "E:\My Folder\test.jpg"

End Sub



Private Sub OpenPhotoViewer(ByVal path As String)

    Dim rundll As String, photoviewer As String, args As String

    rundll = Environ("SystemRoot") & "\System32\rundll32.exe"

    photoviewer = Environ("ProgramFiles") & "\Windows Photo Viewer\PhotoViewer.dll"

    args = """" & photoviewer & """, ImageView_Fullscreen " & path

    Shell rundll & " " & args, vbNormalFocus

End Sub

نقل قول:

---

نوشته شده توسط the king

Private Sub Command1_Click()

    OpenPhotoViewer "E:\My Folder\test.jpg"

End Sub



Private Sub OpenPhotoViewer(ByVal path As String)

    Dim rundll As String, photoviewer As String, args As String

    rundll = Environ("SystemRoot") & "\System32\rundll32.exe"

    photoviewer = Environ("ProgramFiles") & "\Windows Photo Viewer\PhotoViewer.dll"

    args = """" & photoviewer & """, ImageView_Fullscreen " & path

    Shell rundll & " " & args, vbNormalFocus

End Sub

---

خیلی ممنونم فقط یه مشکلی هست که ادرس فایل تو دیتابیس هست و با اون ادرس تو ایمیج عکس رو لود کردم فقط نمی تونم با فتو بازش کنم
ادرس فایل رو تو تکس باکسم میزارم ولی نمیدونم چطور بنویسم که ادرس مسیر رو از تکست باکس یا دیتابیس بخونه بدون اینکه ادرس رو دستی وارد کنم

نقل قول:

---

نوشته شده توسط hosein3000

خیلی ممنونم فقط یه مشکلی هست که ادرس فایل تو دیتابیس هست و با اون ادرس تو ایمیج عکس رو لود کردم فقط نمی تونم با فتو بازش کنم
ادرس فایل رو تو تکس باکسم میزارم ولی نمیدونم چطور بنویسم که ادرس مسیر رو از تکست باکس یا دیتابیس بخونه بدون اینکه ادرس رو دستی وارد کنم

---

متوجه مشکل تون نمیشم. در ویرایش کردن "E:\My Folder\test.jpg"مشکل دارید؟
بجای "E:\My Folder\test.jpg" همون YourTextBoxName.Text رو وارد کنید.

نقل قول:

---

نوشته شده توسط the king

متوجه مشکل تون نمیشم. در ویرایش کردن "E:\My Folder\test.jpg"مشکل دارید؟
بجای "E:\My Folder\test.jpg" همون YourTextBoxName.Text رو وارد کنید.

---

نه ادرس من در دیتابیسه و اونو تو textbox فراخوانی کردم میخوام با جستجو و تعویض عکس بشه با کلیک روش عکس رو کامل تو برنامه فتو ویندوز نشون بده
فایل رو ضمیمه کردم
انگار روش ذخیره کردن عکسم هم اشتباهه چون همیشه اخرین عکسی رو که ذخیره می کنم میافته روی اون یکی
به روش باینری هم ذخیره کردم ولی نتونستم دوباره همون عکس رو تو imagebox نشون بدم
چیکار کنم بنظرتون

نقل قول:

---

نوشته شده توسط hosein3000

نه ادرس من در دیتابیسه و اونو تو textbox فراخوانی کردم میخوام با جستجو و تعویض عکس بشه با کلیک روش عکس رو کامل تو برنامه فتو ویندوز نشون بده
فایل رو ضمیمه کردم
انگار روش ذخیره کردن عکسم هم اشتباهه چون همیشه اخرین عکسی رو که ذخیره می کنم میافته روی اون یکی
به روش باینری هم ذخیره کردم ولی نتونستم دوباره همون عکس رو تو imagebox نشون بدم
چیکار کنم بنظرتون

---

خیلی ممنونم این مشکل حل شد
فقط یه سوال دیگه من دیتابیسم رو دستور app.path گذاشتم کنار فایل اجراییم فقط وقتی با common dialog یه عکسی رو از یه جای دیگه به نرم افزار اضافه می کنم دیگه مسیر دیتابیس رو نمیشناسه و خطا میده