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

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

  1. #1
    محروم شده
    تاریخ عضویت
    مرداد 1386
    پست
    70
    تشکر کردن
    26
    13 بار تشکر شده در 9 پست

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

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


    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
    تشکر کردن
    15
    35 بار تشکر شده در 17 پست

    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,144
    تشکر کردن
    106
    439 بار تشکر شده در 303 پست
     
    Screen.MousePointer = 11


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

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

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


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

بوک مارک کردن این تاپیک

بوک مارک کردن این تاپیک

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

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