At the risk of appearing lazy, though I did look, where can I find the
mentioned help files?
Good question! ;o) It's been a while... Let's see... It's called
"Imaging Controls Help" and I suspect it's hiding together with other
VB help files (I installed them all).
Here's a quick and dirty method to invoke it. Type any of its
properties anywhere in your code, for example:
ShowSelectScanner
Highlight this (double-click on it) and them press F1. This invokes
the relevant help file and then you can go to the Index, etc.
Try that, and if it doesn't work, then I'll have a closer look.
I'm trying to test the Kodak IMGSCAN and the properties are not
intuitive to someone who has never worked with scanners before.
You mention the OCX working for you. Do you have any examples, mainly
how you set up the properties, and when. I'm assuming a command button
to set properties, open the scanner, and whatever else is required. In
one test, it appeared that opening the scanner (not one on development
system) popped up a dialogue box that included a command button to start
scanning. All details appriciated.
I just ran through most of the options to see what they do. As I say I
was just fooling around (I ended up writing my own scanner program).
Anyway, after including the OCX, add it to your project. You can then
explore the properties with the usual Right-Click/Properties.
For the rest, I'll include my code below. It's not much... I basically
added a button for each function and also a text box for each display.
These text boxes are populated in Form_Load.
Don.
--- start ---
Private Sub Form_Load()
txtDIC = ImgScan1.DestImageControl
txtFC = ImgScan1.FileType
txtImage = ImgScan1.Image
txtMP = ImgScan1.MultiPage
txtPage = ImgScan1.Page
txtPC = ImgScan1.PageCount
txtPO = ImgScan1.PageOption
txtST = ImgScan1.ScanTo
txtScroll = ImgScan1.Scroll
txtSSBS = ImgScan1.ShowSetupBeforeScan
txtStatus = ImgScan1.StatusCode
txtSSB = ImgScan1.StopScanBox
txtZoom = ImgScan1.Zoom
...
---
Private Sub cmdAbout_Click()
ImgScan1.AboutBox
End Sub
Private Sub cmdScanner_Click()
On Error Resume Next
ImgScan1.ShowSelectScanner
'MsgBox Err.Number & ": " & Err.Description
On Error GoTo 0
End Sub
Private Sub cmdScanNew_Click()
ImgScan1.ShowScanNew
End Sub
Private Sub cmdScanPage_Click()
ImgScan1.ShowScanPage
End Sub
Private Sub cmdScanPrefs_Click()
ImgScan1.ShowScanPreferences
End Sub
Private Sub cmdOpenScan_Click()
ImgScan1.OpenScanner
End Sub
Private Sub cmdResetScan_Click()
ImgScan1.ResetScanner
End Sub
Private Sub cmdCloseScan_Click()
ImgScan1.CloseScanner
End Sub
Private Sub cmdStartScan_Click()
ImgScan1.StartScan
End Sub
Private Sub cmdStopScan_Click()
ImgScan1.StopScan
End Sub
Private Sub cmdAvailTWAIN_Click()
If ImgScan1.ScannerAvailable Then
i = MsgBox("Scanner TWAIN software is available", vbOKOnly +
vbExclamation)
Else
i = MsgBox("Scanner TWAIN software is *NOT* available", vbOKOnly
+ vbCritical)
End If
End Sub
--- end ---
