关于VB调用wia的问题

我用VB调用了Microsoft Windows Image Acquisition 1.01 Type Library，但是完全不知道怎么用，又没有相关的介绍或者例程？
感谢大家无私提供了！

解决方案 »

  1.   

    在MSDN上面转了两天。
    终于找到了支持源代码。
    不管怎么样，拿出来给大家
    一起学习了。
      

  2.   

    '文件ImageFile.vbp
    '============
    Type=Exe
    Form=ImageFile.frm
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={94A0E92D-43C0-494E-AC29-FD45948A5221}#1.0#0; wiaaut.dll
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
    Form=ImageFile2.frm
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
    IconForm="Form1"
    Startup="Form1"
    HelpFile=""
    Command32=""
    Name="ImgFile"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Microsoft Corporation"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1[MS Transaction Server]
    AutoRefresh=1
      

  3.   

    '文件ImageFile.frm
    '=====
    VERSION 5.00
    Object = "{94A0E92D-43C0-494E-AC29-FD45948A5221}#1.0#0"; "wiaaut.dll"
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
    Begin VB.Form Form1 
       Caption         =   "ImageFile UnitTest"
       ClientHeight    =   11880
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   12000
       LinkTopic       =   "Form1"
       ScaleHeight     =   11880
       ScaleWidth      =   12000
       StartUpPosition =   3  'Windows Default
       Begin VB.CommandButton btnThumb 
          Caption         =   "ShowThumbnail"
          Height          =   495
          Left            =   120
          TabIndex        =   17
          Top             =   9000
          Width           =   1335
       End
       Begin VB.CheckBox chkVertical 
          Caption         =   "Vertical"
          Height          =   495
          Left            =   240
          TabIndex        =   16
          Top             =   2880
          Width           =   1095
       End
       Begin VB.CheckBox chkHorizontal 
          Caption         =   "Horizontal"
          Height          =   495
          Left            =   240
          TabIndex        =   15
          Top             =   2520
          Width           =   1095
       End
       Begin VB.CommandButton btnStamp 
          Caption         =   "Stamp"
          Height          =   495
          Left            =   120
          TabIndex        =   14
          Top             =   7200
          Width           =   1335
       End
       Begin VB.CommandButton btnCrop 
          Caption         =   "Crop"
          Height          =   495
          Left            =   120
          TabIndex        =   13
          Top             =   6600
          Width           =   1335
       End
       Begin VB.HScrollBar HScroll1 
          Height          =   375
          Left            =   120
          TabIndex        =   12
          Top             =   6120
          Visible         =   0   'False
          Width           =   1335
       End
       Begin VB.CommandButton btnProperties 
          Caption         =   "Show Properties"
          Height          =   495
          Left            =   120
          TabIndex        =   11
          Top             =   7800
          Width           =   1335
       End
       Begin VB.CommandButton btnSave 
          Caption         =   "Save"
          Height          =   495
          Left            =   120
          TabIndex        =   10
          Top             =   8400
          Width           =   1335
       End
       Begin MSComDlg.CommonDialog CommonDialog2 
          Left            =   600
          Top             =   10080
          _ExtentX        =   847
          _ExtentY        =   847
          _Version        =   393216
       End
       Begin VB.PictureBox Picture2 
          Height          =   1575
          Left            =   120
          ScaleHeight     =   101
          ScaleMode       =   3  'Pixel
          ScaleWidth      =   85
          TabIndex        =   9
          Top             =   4440
          Width           =   1335
       End
       Begin VB.CommandButton btnFlipRotate 
          Caption         =   "FlipRotate"
          Height          =   495
          Left            =   120
          TabIndex        =   8
          Top             =   3840
          Width           =   1335
       End
       Begin VB.Frame Frame2 
          Caption         =   "Flip"
          Height          =   1455
          Left            =   120
          TabIndex        =   7
          Top             =   2280
          Width           =   1335
       End
       Begin VB.Frame Frame1 
          Caption         =   "Rotate"
          Height          =   1455
          Left            =   120
          TabIndex        =   2
          Top             =   720
          Width           =   1335
          Begin VB.OptionButton Option1 
             Caption         =   "270"
             Height          =   195
             Index           =   3
             Left            =   240
             TabIndex        =   6
             Top             =   1080
             Width           =   735
          End
          Begin VB.OptionButton Option1 
             Caption         =   "180"
             Height          =   195
             Index           =   2
             Left            =   240
             TabIndex        =   5
             Top             =   840
             Width           =   735
          End
          Begin VB.OptionButton Option1 
             Caption         =   "90"
             Height          =   195
             Index           =   1
             Left            =   240
             TabIndex        =   4
             Top             =   600
             Width           =   735
          End
          Begin VB.OptionButton Option1 
             Caption         =   "0"
             Height          =   195
             Index           =   0
             Left            =   240
             TabIndex        =   3
             Top             =   360
             Value           =   -1  'True
             Width           =   735
          End
       End
       Begin VB.PictureBox Picture1 
          AutoSize        =   -1  'True
          Height          =   6975
          Left            =   1560
          ScaleHeight     =   461
          ScaleMode       =   3  'Pixel
          ScaleWidth      =   469
          TabIndex        =   1
          Top             =   120
          Width           =   7095
          Begin VB.Shape Selection 
             BorderStyle     =   3  'Dot
             Height          =   2655
             Left            =   720
             Top             =   960
             Visible         =   0   'False
             Width           =   2775
          End
       End
       Begin VB.CommandButton btnLoad 
          Caption         =   "Load"
          Height          =   495
          Left            =   120
          TabIndex        =   0
          Top             =   120
          Width           =   1335
       End
       Begin WIACtl.CommonDialog CommonDialog1 
          Left            =   120
          Top             =   10080
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
      

  4.   

    结果是很成功，只要你的设备支持Wia
      

  5.   

    楼上的师傅们好,你们调试wia ，wia支持控制照相机调焦距么 ？光圈？我最近调试，就是不能用来控制调焦距，只能用wia的UI，拍照片，但不能调焦距，拍的 照片实在太模糊了，郁闷，望赐教~！~
    [email protected]