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

[hosein3000]

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

[the king]

با سلام دوستان من یه فایلی درست کردم برای ذخیره نامه ها
فقط ادرسشو تو دیتابیس ذخیره کردم
تا اینجا مشکلی ندارم و عکسو می تونم در 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

[hosein3000]

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]

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

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

[hosein3000]

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

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

[hosein3000]

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

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