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