Shows an image after clicking on its thumbnail, like in web applications
Can use Windows PhotoViewer (From Win7)
Or its own window "frmLarge"
Update 2021-01-06: Have FrmLarge v3 including option to use irfanview (i_view32.exe) get it from https://www.irfanview.com/
Can use Windows PhotoViewer (From Win7, that is also available in Win8 and Win10)
Or irfanview (i_view32.exe), needs to have i_view32.exe to be in Resfolder that sits next to Macro workbook.
Or its own window "frmLarge"
Decide on width and height, and which viewer to use in calling "EnLarge" function
UseViewer = 1 to use Windows7 viewer
UseViewer = 2 to use i_view32.exe
UseViewer = 0 to use internal frmLarge
Syntax:
EnLarge FullPath, OrSheetImageControl, LargeTitle, UseViewer, ResFolder, MyWidth, MyHeight
EnLarge(Optional FullPath = "", Optional OrSheetImageControl = "Sheet1!Image1", Optional LargeTitle = "LargerImage", Optional UseViewer = 0, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450)
' Either Fullpath, or image control in certain sheet
' Priority is for Fullpath, if it is missing, then will try the image control
Or irfanview (i_view32.exe), needs to have i_view32.exe to be in Resfolder that sits next to Macro workbook.
Or its own window "frmLarge"
Decide on width and height, and which viewer to use in calling "EnLarge" function
UseViewer = 1 to use Windows7 viewer
UseViewer = 2 to use i_view32.exe
UseViewer = 0 to use internal frmLarge
Syntax:
EnLarge FullPath, OrSheetImageControl, LargeTitle, UseViewer, ResFolder, MyWidth, MyHeight
EnLarge(Optional FullPath = "", Optional OrSheetImageControl = "Sheet1!Image1", Optional LargeTitle = "LargerImage", Optional UseViewer = 0, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450)
' Either Fullpath, or image control in certain sheet
' Priority is for Fullpath, if it is missing, then will try the image control
Optional FullPath = "", Optional OrSheetImageControl = "Sheet1!Image1", Optional LargeTitle = "LargerImage", Optional UseViewer = 0, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450
frmLarge.EnLarge "C:\Folder\Image.jpg", , "Random image", 1, , 1200, 800
Or
frmLarge.EnLarge "C:\Folder\Image.jpg", , "Title of screen", 2, "Tools" , 1200, 800
Or
frmLarge.EnLarge ,"Sheet4!ImgControl33", "Title of screen", 0, , 1200, 800
Or
frmLarge.EnLarge "C:\Folder\Image.jpg", , "Title of screen", 2, "Tools" , 1200, 800
Or
frmLarge.EnLarge ,"Sheet4!ImgControl33", "Title of screen", 0, , 1200, 800
Views 4,472
Downloads 1,750
CodeID
DB ID