نمایش نتایج 1 تا 3 از 3

نام تاپیک: توضیح کد اسکنر

  1. #1

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

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


    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





  2. #2
    کاربر دائمی آواتار najafzade
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    جنگلهای آمازون
    پست
    209

    Unhappy اسکنر

    نقل قول نوشته شده توسط 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





    منظورتون از اسکنر چیه؟

  3. #3
    کاربر دائمی آواتار majjjj
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    شیراز
    پست
    1,158
     
    Screen.MousePointer = 11


    حالت نمایش Pointer مربوط به موس رو نشون میده مقدار 11 رو تغییر بدین متوجه میشین
     
    s% = TWAIN_AcquireToFilename(Me.hWnd, FL)

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

    این هم توضیح داده شد
     
    .Recordset.Fields("Picture").AppendChunk (bPic)


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

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •