MagTek MTMICRImage - Manual (Page 29)

Events
25
LogStatus "Acquiring File: " & ImageFileName & " ..."
'Adding a tiff tag.
MICRImage.AddTag("T32768=This was added by the Demo Program")
'Transmitting current image
Status = MICRImage.TransmitCurrentImage(ImageFileName, StatusMsg)
'Logging status of TransmitCurrentImage
LogStatus "TransmitCurrentImage: " & Status
If Status = "0" Then
bOpStatus = ShellEx(ImageFileName, , , , , Me.hWnd)
If bOpStatus = True Then
LogStatus "Shell Successful"
'setting up the Image Info
txtFileName.Text = ImageFileName
txtIFD.Text = "1"
txtTagNum.Text = "270"
cmdGetTagByNum.Enabled = True
cmdGetAllTags.Enabled = True
Else
LogStatus "Shell Failed"
cmdGetTagByNum.Enabled = False
cmdGetAllTags.Enabled = False
End If
End If
End If
MICRImage.ClearBuffer
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show vbModal
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub