DBPix Sample Source Code: frmZoomMainImg Back to sample
Option Explicit
Private Sub Form_Current()
Dim ImgPath As String
ImgPath = GetImgFolder & "\images\main\" & Me!Id & ".jpg"
If Dir(ImgPath) <> vbNullString Then
DBPixZoom.ImageViewFile ImgPath
Else
DBPixZoom.ImageViewBlob (Null)
End If
End Sub
Back to sample
|