一、各位大侠。有谁知道扫描控件imgscan,imgeidt,imganntool等 如何使用吗。我想知道其中的属性方法事件各有什么意思。急。
二、扫描多页并放入数据库中。
二、扫描多页并放入数据库中。
解决方案 »
- 请教:有时候部件 MS Internet Controls 是ieframe.dll,有时候是shdocvw.dll,why?
- callbyName能返回数据吗?
- 模块和类模块概念上的问题讨论!!!!
- 关机时,程序被自动关闭,弹出异常报警
- 多谢几位版主的信任,希望大家支持我!
- 请问:如何返回 WebBrowser 网页中一个 select 控件的句柄?
- 英语四级怎样根据准考证号码得知是A卷还是B卷
- 如何在模块中编写一个函数,对数据库进行增,删,修改操作?
- 在form2上建了一个添加按纽和text1 text2 在这二个中各自输入资料,用鼠标点添加按纽把这些资料显示在form1的list1中代码怎么写啊?
- 收发邮的高难问题?请指教!!! --- 20分
- Data Dynamics ActiveBar2
- VB 到底有多少生存能力,VB程序员能拿高薪吗?为什么人家招聘都没有招VB的。
On Error GoTo NoDevice
ImgScan1.StartScan
NoDevice:
If Err.Number = 1117 Then
MsgBox "扫描设备没有找到,请重新安装!", vbOKOnly + vbCritical, "没有寻找到扫描设备"
Exit Sub
Else
MsgBox "系统未知错误,不能继续!", vbOKOnly + vbCritical, "未知错误"
Exit Sub
End If
'
Private Sub SavePicToHdd() ImgAdmin1.DialogTitle = "保存图像文件"
ImgAdmin1.CancelError = True
ImgAdmin1.InitDir = App.Path
' On Error GoTo CancelF
ImgAdmin1.Image = ""
ImgAdmin1.Filter = "图片(*.bmp)|*.bmp|"
' ImgAdmin1.ShowFileDialog SaveDlg
If InStr(1, UCase(ImgAdmin1.Image), UCase(".bmp"), vbTextCompare) Then
ImgEdit1.SaveAs ImgAdmin1.Image, 3, 7, 1, 0, False
scanfilename = ImgAdmin1.Image
Else
If ImgEdit1.Image = "" Then Exit Sub
ImgEdit1.SaveAs App.Path & "\" & strFileName & ".bmp", 3, 7, 1, 0, False
scanfilename = App.Path & "\" & strFileName & ".bmp"
' scanfilename = strFileName & ".bmp"
End If
'添加到listview控件
'
Call AddNewPic
Exit Sub
CancelF:
If Err.Number <> 32755 Then
MsgBox "非法操作,不能继续! ", vbOKOnly + vbQuestion, "未知错误"
Else
ImgAdmin1.Image = ""
End IfEnd Sub
Sub AddNewPic()
Dim Stemp1 As String
' On Error GoTo ErrorNum
Dim itemX As ListItem
Set itemX =form1.lvwPic.ListItems.Add(, scanfilename, strFileName & ".bmp", 1, 1)
' Image1.Picture = LoadPicture(lvwPic.SelectedItem.key)
Stemp1 = Str(录入.lvwPic.ListItems.Count + 1)
strPicDiscribe(录入.lvwPic.ListItems.Count + 1) = "第" & Stemp1 & "张图片"
itemX.SubItems(1) = Stemp1
ErrorNum:
Select Case Err.Number
Case "35620"
MsgBox "这个文件已经被添加了,不能重复添加."
Exit Sub
End Select
End Sub
'******************将图片文件保存到数据库中*************************
Sub savePicToDB(CN As ADODB.Connection)
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
Set rs1 = New ADODB.Recordset
rs1.Open "select * from rs_http", cn1, adOpenKeyset, adLockOptimistic
With stm
.Type = adTypeBinary
.Open
.LoadFromFile dlg.FileName
End With
With rs1
.AddNew
.Fields("tp") = stm.Read
.Update
End With
rs1.Close
Set rs1 = Nothing
End Sub
'将图片或者文件从数据库中读出
Sub GetPicFromDB(CN As ADODB.Connection)
On Error Resume Next
Dim fld As Field
Dim strTemp As String
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
'strTemp = "c:\temp.bmp"
Set rs1 = New ADODB.Recordset
rs1.Open "select * from rs_http where id='" & strid & "'", CN, , , adCmdText
While Not rs1.EOF
'*********将数据库中的文件读到硬盘上*************************
' strTemp = App.Path + "\temp\" + rs1!Name '`临时文件,用来保存读出的图片 With stm
.Type = adTypeBinary
.Open
.Write rs1("tp").value
strTemp = App.Path & "\temp1\" & rs1!Name
.SaveToFile strTemp, adSaveCreateOverWrite
.Close
End With
Set itemX = lvwPic.ListItems.Add(, App.Path & "\temp1\" & rs1!Name, rs1!Name, 1, 1)
itemX.SubItems(1) = rs1!bz
rs1.MoveNext
Wend
Set stm = Nothing
rs1.Close
Set rs1 = Nothing
End Sub