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