نقل قول نوشته شده توسط 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