视频捕捉/采集

开发平台：

Visual Basic

frmFull.frm：源码内容

							VERSION 5.00
Begin VB.Form frmFull 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "全屏"
   ClientHeight    =   1650
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2280
   LinkTopic       =   "Form1"
   ScaleHeight     =   1650
   ScaleWidth      =   2280
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer timer1 
      Interval        =   10
      Left            =   240
      Top             =   1080
   End
   Begin VB.PictureBox picFull 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1455
      Left            =   0
      ScaleHeight     =   1455
      ScaleWidth      =   2175
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   2175
   End
End
Attribute VB_Name = "frmFull"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strTemp As String   '模块变量，保存临时文件
Private Sub Form_Load()
    Me.BorderStyle = 0  '设置窗体无边框
    picFull.Width = Screen.Width  '设置PictureBox控件为满屏状态
    picFull.Height = Screen.Height
    strTemp = App.Path & "TEMPT" & Format(Now, "yyyymmddhhmmss") & ".tmp" '设置临时文件名
End Sub
Private Sub picFull_DblClick()  '双击图片控件
    timer1.Enabled = False  '禁止时钟控件
    Unload Me
End Sub
Private Sub timer1_Timer()   '时钟控件
    With frmCamera.ezVidCap1
        If .CapSingleFrame Then '获取一个单帧
            picFull.Cls   '清空图片控件
            .SaveDIB strTemp         '保存当前帧到缓冲文件
            picFull.PaintPicture LoadPicture(strTemp), 0, 0, picFull.Width, picFull.Height  '绘制图片到图片控件
            '绘制保存的文件到图片控件
            Kill strTemp  '删除捕获文件
        End If
    End With
End Sub

						