توضیح کد اسکنر

[LEILAFATHI]

سلام
دوستان فقط اون قسمت هایی که مشخص شده را بگین کافیه





Dim FL As String
Dim Pic_N As String
FL = App.Path & "\temp.bmp"
Pic_N = InputBox("Picture Name:")
On Error GoTo BadScan
Screen.MousePointer = 11
s% = TWAIN_AcquireToFilename(Me.hWnd, FL)
If s% = 0 Then
Picture1.Picture = LoadPicture(FL)
Else
GoTo BadScan
End If
Screen.MousePointer = 0
Open FL For Binary As #1
ReDim bPic(FileLen(FL))
Get #1, , bPic
Close #1
With Adodc1
.Recordset.AddNew
.Recordset.Fields("Name") = Pic_N
.Recordset.Fields("Picture").AppendChunk (bPic)
.Recordset.Update
End With
Screen.MousePointer = 0
MsgBox "ÐÎíÑå ÊÕæíÑ ÏÑ ÈÇä˜ ÇØáÇÚÇÊí ÇäÌÇã ÔÏ"
Kill FL
Exit Sub
BadScan:
MsgBox "ÚãáíÇÊ ÇÓ˜ä ÈÇ ÇíÑÇÏ ãæÇÌå ÔÏ", vbInformation, "íÛÇã ÓíÓÊã"
Screen.MousePointer = 0

[najafzade]

سلام
دوستان فقط اون قسمت هایی که مشخص شده را بگین کافیه





Dim FL As String

Dim Pic_N As String
FL = App.Path & "\temp.bmp"
Pic_N = InputBox("Picture Name:")
On Error GoTo BadScan
Screen.MousePointer = 11
s% = TWAIN_AcquireToFilename(Me.hWnd, FL)
If s% = 0 Then
Picture1.Picture = LoadPicture(FL)
Else
GoTo BadScan
End If
Screen.MousePointer = 0
Open FL For Binary As #1
ReDim bPic(FileLen(FL))
Get #1, , bPic
Close #1
With Adodc1
.Recordset.AddNew
.Recordset.Fields("Name") = Pic_N
.Recordset.Fields("Picture").AppendChunk (bPic)
.Recordset.Update
End With
Screen.MousePointer = 0
MsgBox "ÐÎíÑå ÊÕæíÑ ÏÑ ÈÇä˜ ÇØáÇÚÇÊí ÇäÌÇã ÔÏ"
Kill FL
Exit Sub
BadScan:
MsgBox "ÚãáíÇÊ ÇÓ˜ä ÈÇ ÇíÑÇÏ ãæÇÌå ÔÏ", vbInformation, "íÛÇã ÓíÓÊã"
Screen.MousePointer = 0









منظورتون از اسکنر چیه؟:عصبانی++:

[majjjj]

Screen.MousePointer = 11


حالت نمایش Pointer مربوط به موس رو نشون میده مقدار 11 رو تغییر بدین متوجه میشین


s% = TWAIN_AcquireToFilename(Me.hWnd, FL)

تو این قسمت هندل فرم جاریتون به اضافه مقدار fl که ارگومانهای یک تابع هستند وارد تابعTWAIN_AcquireToFilename میشن و نتیجه در متغیر s ذخیره میشه


Screen.MousePointer = 0

این هم توضیح داده شد


.Recordset.Fields("Picture").AppendChunk (bPic)


فکر کنم این هم برای ذخیره مقداری از نوع دیتا در فیلد تصویر باشه