lyingzhu作者主页 – CUTEPIG BLOG

2022年8月02日2022年9月09日

vb.net連接攝像頭

Cam.vb 代码

Cam 类

Visual Basic

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Cam

    Private Const WM_USER As Integer = &H400
    Private Const WS_CHILD As Integer = &H40000000
    Private Const WS_VISIBLE As Integer = &H10000000
    Private Const WM_CAP_START As Integer = WM_USER
    Private Const WM_CAP_STOP As Integer = WM_CAP_START + 68
    Private Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP_START + 10
    Private Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP_START + 11
    Private Const WM_CAP_SAVEDIB As Integer = WM_CAP_START + 25
    Private Const WM_CAP_GRAB_FRAME As Integer = WM_CAP_START + 60
    Private Const WM_CAP_SEQUENCE As Integer = WM_CAP_START + 62
    Private Const WM_CAP_FILE_SET_CAPTURE_FILEA As Integer = WM_CAP_START + 20



    Private Const WM_CAP_SEQUENCE_NOFILE As Integer = WM_CAP_START + 63
    Private Const WM_CAP_SET_OVERLAY As Integer = WM_CAP_START + 51
    Private Const WM_CAP_SET_PREVIEW As Integer = WM_CAP_START + 50
    Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM As Integer = WM_CAP_START + 6
    Private Const WM_CAP_SET_CALLBACK_ERROR As Integer = WM_CAP_START + 2
    Private Const WM_CAP_SET_CALLBACK_STATUSA As Integer = WM_CAP_START + 3
    Private Const WM_CAP_SET_CALLBACK_FRAME As Integer = WM_CAP_START + 5
    Private Const WM_CAP_SET_SCALE As Integer = WM_CAP_START + 53
    Private Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP_START + 52




    Public Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1

    Public Const WM_CAP_SET_CALLBACK_STATUS = WM_CAP_START + 3
    Public Const WM_CAP_SET_CALLBACK_YIELD = WM_CAP_START + 4
    Public Const WM_CAP_SET_CALLBACK_WAVESTREAM = WM_CAP_START + 7
    Public Const WM_CAP_GET_USER_DATA = WM_CAP_START + 8
    Public Const WM_CAP_SET_USER_DATA = WM_CAP_START + 9

    Public Const WM_CAP_DRIVER_GET_NAME = WM_CAP_START + 12
    Public Const WM_CAP_DRIVER_GET_VERSION = WM_CAP_START + 13
    Public Const WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14

    Public Const WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20
    Public Const WM_CAP_FILE_GET_CAPTURE_FILE = WM_CAP_START + 21
    Public Const WM_CAP_FILE_ALLOCATE = WM_CAP_START + 22
    Public Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
    Public Const WM_CAP_FILE_SET_INFOCHUNK = WM_CAP_START + 24
    Public Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25

    Public Const WM_CAP_EDIT_COPY = WM_CAP_START + 30

    Public Const WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35
    Public Const WM_CAP_GET_AUDIOFORMAT = WM_CAP_START + 36

    Public Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
    Public Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
    Public Const WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43
    Public Const WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
    Public Const WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
    Public Const WM_CAP_DLG_VIDEOCOMPRESSION = WM_CAP_START + 46

    Public Const WM_CAP_GET_STATUS = WM_CAP_START + 54
    Public Const WM_CAP_SET_SCROLL = WM_CAP_START + 55

    Public Const WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61

    Public Const WM_CAP_SET_SEQUENCE_SETUP = WM_CAP_START + 64
    Public Const WM_CAP_GET_SEQUENCE_SETUP = WM_CAP_START + 65
    Public Const WM_CAP_SET_MCI_DEVICE = WM_CAP_START + 66
    Public Const WM_CAP_GET_MCI_DEVICE = WM_CAP_START + 67
    Public Const WM_CAP_ABORT = WM_CAP_START + 69

    Public Const WM_CAP_SINGLE_FRAME_OPEN = WM_CAP_START + 70
    Public Const WM_CAP_SINGLE_FRAME_CLOSE = WM_CAP_START + 71
    Public Const WM_CAP_SINGLE_FRAME = WM_CAP_START + 72

    Public Const WM_CAP_PAL_OPEN = WM_CAP_START + 80
    Public Const WM_CAP_PAL_SAVE = WM_CAP_START + 81
    Public Const WM_CAP_PAL_PASTE = WM_CAP_START + 82
    Public Const WM_CAP_PAL_AUTOCREATE = WM_CAP_START + 83
    Public Const WM_CAP_PAL_MANUALCREATE = WM_CAP_START + 84

    '// Following added post VFW 1.1
    Public Const WM_CAP_SET_CALLBACK_CAPCONTROL = WM_CAP_START + 85

    '// Defines end of the message range
    Public Const WM_CAP_END = WM_CAP_SET_CALLBACK_CAPCONTROL

    Private hWndC As IntPtr
    Private bStat As Boolean = False

    Private mControlPtr As IntPtr
    Private mWidth As Integer
    Private mHeight As Integer
    Private mLeft As Integer
    Private mTop As Integer

    <DllImport("avicap32.dll")> _
    Private Shared Function capCreateCaptureWindowA(ByVal lpszWindowName() As Byte, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal nID As Integer) As IntPtr
    End Function

    <DllImport("avicap32.dll")> _
    Private Shared Function capGetVideoFormat(ByVal hWnd As IntPtr, ByVal psVideoFormat As IntPtr, ByVal wSize As Integer) As Integer
    End Function

    <DllImport("User32.dll")> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
    End Function

    Function capDlgVideoFormat() As Boolean
        capDlgVideoFormat = SendMessage(hWndC, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
    End Function
    Function capDlgVideoSource() As Boolean
        capDlgVideoSource = SendMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
    End Function
    Function capDlgVideoDisplay() As Boolean
        capDlgVideoDisplay = SendMessage(hWndC, WM_CAP_DLG_VIDEODISPLAY, 0, 0)
    End Function
    Function capDlgVideoCompression() As Boolean
        capDlgVideoCompression = SendMessage(hWndC, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)
    End Function

    '接上节

    '///
    '/// 初始化摄像头
    '/// 
    '///控件的句柄
    '///开始显示的左边距
    '///开始显示的上边距
    '///要显示的宽度
    '///要显示的长度
    Public Sub New(ByVal handle As IntPtr, ByVal left As Integer, ByVal top As Integer, ByVal width As Integer, ByVal height As Integer)
        mControlPtr = handle
        mWidth = width
        mHeight = height
        mLeft = left
        mTop = top
    End Sub

    '///
    '/// 开始显示图像
    '/// 
    Public Sub Start()
        If bStat Then
            Return
        End If
        bStat = True
        Dim lpszName(99) As Byte

        hWndC = capCreateCaptureWindowA(lpszName, WS_CHILD Or WS_VISIBLE, mLeft, mTop, mWidth, mHeight, mControlPtr, 0)

        If hWndC.ToInt32() <> 0 Then
            SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
            SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
            SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
            SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0)
            SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)
            SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0)
            SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0)
            SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0)
        End If

        Return
    End Sub

    '///
    '/// 停止显示
    '/// 
    Public Sub [Stop]()
        SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0)
        bStat = False
    End Sub

    '///
    '/// 抓图
    '/// 
    '///要保存bmp文件的路径
    Public Sub GrabImage(ByVal path As String)
        Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(path)
        SendMessage(hWndC, WM_CAP_SAVEDIB, 0, hBmp.ToInt64())
    End Sub

    '///
    '/// 录像
    '/// 
    '///要保存avi文件的路径
    Public Sub Kinescope(ByVal path As String)
        Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(path)
        SendMessage(hWndC, WM_CAP_FILE_SET_CAPTURE_FILEA, 0, hBmp.ToInt64())
        SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0)
    End Sub

    '///
    '/// 停止录像
    '/// 
    Public Sub StopKinescope()
        SendMessage(hWndC, WM_CAP_STOP, 0, 0)
    End Sub
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

Imports System

Imports System.Runtime.InteropServices

Imports System.Drawing

Imports System.Drawing.Imaging

Public Class Cam

Private Const WM_USER As Integer = &H400

Private Const WS_CHILD As Integer = &H40000000

Private Const WS_VISIBLE As Integer = &H10000000

Private Const WM_CAP_START As Integer = WM_USER

Private Const WM_CAP_STOP As Integer = WM_CAP_START + 68

Private Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP_START + 10

Private Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP_START + 11

Private Const WM_CAP_SAVEDIB As Integer = WM_CAP_START + 25

Private Const WM_CAP_GRAB_FRAME As Integer = WM_CAP_START + 60

Private Const WM_CAP_SEQUENCE As Integer = WM_CAP_START + 62

Private Const WM_CAP_FILE_SET_CAPTURE_FILEA As Integer = WM_CAP_START + 20

Private Const WM_CAP_SEQUENCE_NOFILE As Integer = WM_CAP_START + 63

Private Const WM_CAP_SET_OVERLAY As Integer = WM_CAP_START + 51

Private Const WM_CAP_SET_PREVIEW As Integer = WM_CAP_START + 50

Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM As Integer = WM_CAP_START + 6

Private Const WM_CAP_SET_CALLBACK_ERROR As Integer = WM_CAP_START + 2

Private Const WM_CAP_SET_CALLBACK_STATUSA As Integer = WM_CAP_START + 3

Private Const WM_CAP_SET_CALLBACK_FRAME As Integer = WM_CAP_START + 5

Private Const WM_CAP_SET_SCALE As Integer = WM_CAP_START + 53

Private Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP_START + 52

Public Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1

Public Const WM_CAP_SET_CALLBACK_STATUS = WM_CAP_START + 3

Public Const WM_CAP_SET_CALLBACK_YIELD = WM_CAP_START + 4

Public Const WM_CAP_SET_CALLBACK_WAVESTREAM = WM_CAP_START + 7

Public Const WM_CAP_GET_USER_DATA = WM_CAP_START + 8

Public Const WM_CAP_SET_USER_DATA = WM_CAP_START + 9

Public Const WM_CAP_DRIVER_GET_NAME = WM_CAP_START + 12

Public Const WM_CAP_DRIVER_GET_VERSION = WM_CAP_START + 13

Public Const WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14

Public Const WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20

Public Const WM_CAP_FILE_GET_CAPTURE_FILE = WM_CAP_START + 21

Public Const WM_CAP_FILE_ALLOCATE = WM_CAP_START + 22

Public Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23

Public Const WM_CAP_FILE_SET_INFOCHUNK = WM_CAP_START + 24

Public Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25

Public Const WM_CAP_EDIT_COPY = WM_CAP_START + 30

Public Const WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35

Public Const WM_CAP_GET_AUDIOFORMAT = WM_CAP_START + 36

Public Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41

Public Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42

Public Const WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43

Public Const WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44

Public Const WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45

Public Const WM_CAP_DLG_VIDEOCOMPRESSION = WM_CAP_START + 46

Public Const WM_CAP_GET_STATUS = WM_CAP_START + 54

Public Const WM_CAP_SET_SCROLL = WM_CAP_START + 55

Public Const WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61

Public Const WM_CAP_SET_SEQUENCE_SETUP = WM_CAP_START + 64

Public Const WM_CAP_GET_SEQUENCE_SETUP = WM_CAP_START + 65

Public Const WM_CAP_SET_MCI_DEVICE = WM_CAP_START + 66

Public Const WM_CAP_GET_MCI_DEVICE = WM_CAP_START + 67

Public Const WM_CAP_ABORT = WM_CAP_START + 69

Public Const WM_CAP_SINGLE_FRAME_OPEN = WM_CAP_START + 70

Public Const WM_CAP_SINGLE_FRAME_CLOSE = WM_CAP_START + 71

Public Const WM_CAP_SINGLE_FRAME = WM_CAP_START + 72

Public Const WM_CAP_PAL_OPEN = WM_CAP_START + 80

Public Const WM_CAP_PAL_SAVE = WM_CAP_START + 81

Public Const WM_CAP_PAL_PASTE = WM_CAP_START + 82

Public Const WM_CAP_PAL_AUTOCREATE = WM_CAP_START + 83

Public Const WM_CAP_PAL_MANUALCREATE = WM_CAP_START + 84

'// Following added post VFW 1.1

Public Const WM_CAP_SET_CALLBACK_CAPCONTROL = WM_CAP_START + 85

'// Defines end of the message range

Public Const WM_CAP_END = WM_CAP_SET_CALLBACK_CAPCONTROL

Private hWndC As IntPtr

Private bStat As Boolean = False

Private mControlPtr As IntPtr

Private mWidth As Integer

Private mHeight As Integer

Private mLeft As Integer

Private mTop As Integer

<DllImport("avicap32.dll")> _

Private Shared Function capCreateCaptureWindowA(ByVal lpszWindowName() As Byte, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal nID As Integer) As IntPtr

End Function

<DllImport("avicap32.dll")> _

Private Shared Function capGetVideoFormat(ByVal hWnd As IntPtr, ByVal psVideoFormat As IntPtr, ByVal wSize As Integer) As Integer

End Function

<DllImport("User32.dll")> _

Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean

End Function

Function capDlgVideoFormat() As Boolean

capDlgVideoFormat = SendMessage(hWndC, WM_CAP_DLG_VIDEOFORMAT, 0, 0)

End Function

Function capDlgVideoSource() As Boolean

capDlgVideoSource = SendMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE, 0, 0)

End Function

Function capDlgVideoDisplay() As Boolean

capDlgVideoDisplay = SendMessage(hWndC, WM_CAP_DLG_VIDEODISPLAY, 0, 0)

End Function

Function capDlgVideoCompression() As Boolean

capDlgVideoCompression = SendMessage(hWndC, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)

End Function

'接上节

'///

'/// 初始化摄像头

'///

'///控件的句柄

'///开始显示的左边距

'///开始显示的上边距

'///要显示的宽度

'///要显示的长度

Public Sub New(ByVal handle As IntPtr, ByVal left As Integer, ByVal top As Integer, ByVal width As Integer, ByVal height As Integer)

mControlPtr = handle

mWidth = width

mHeight = height

mLeft = left

mTop = top

End Sub

'///

'/// 开始显示图像

'///

Public Sub Start()

If bStat Then

Return

End If

bStat = True

Dim lpszName(99) As Byte

hWndC = capCreateCaptureWindowA(lpszName, WS_CHILD Or WS_VISIBLE, mLeft, mTop, mWidth, mHeight, mControlPtr, 0)

If hWndC.ToInt32() <> 0 Then

SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)

SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0)

SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)

SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0)

SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)

SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0)

SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0)

SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0)

End If

Return

End Sub

'///

'/// 停止显示

'///

Public Sub [Stop]()

SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0)

bStat = False

End Sub

'///

'/// 抓图

'///

'///要保存bmp文件的路径

Public Sub GrabImage(ByVal path As String)

Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(path)

SendMessage(hWndC, WM_CAP_SAVEDIB, 0, hBmp.ToInt64())

End Sub

'///

'/// 录像

'///

'///要保存avi文件的路径

Public Sub Kinescope(ByVal path As String)

Dim hBmp As IntPtr = Marshal.StringToHGlobalAnsi(path)

SendMessage(hWndC, WM_CAP_FILE_SET_CAPTURE_FILEA, 0, hBmp.ToInt64())

SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0)

End Sub

'///

'/// 停止录像

'///

Public Sub StopKinescope()

SendMessage(hWndC, WM_CAP_STOP, 0, 0)

End Sub

End Class

窗体 Form1.vb

Form1 窗体

Visual Basic

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private cccap As Cam
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents picView As System.Windows.Forms.PictureBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.picView = New System.Windows.Forms.PictureBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.Button4 = New System.Windows.Forms.Button
        Me.Button5 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'picView
        '
        Me.picView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.picView.Location = New System.Drawing.Point(16, 16)
        Me.picView.Name = "picView"
        Me.picView.Size = New System.Drawing.Size(640, 480)
        Me.picView.TabIndex = 0
        Me.picView.TabStop = False
        '
        'Button1
        '
        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button1.Location = New System.Drawing.Point(244, 540)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 24)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "start"
        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button2.Location = New System.Drawing.Point(304, 540)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(56, 24)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "stop"
        '
        'Button3
        '
        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button3.Location = New System.Drawing.Point(380, 540)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(56, 24)
        Me.Button3.TabIndex = 1
        Me.Button3.Text = "cap"
        '
        'Button4
        '
        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button4.Location = New System.Drawing.Point(352, 508)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(124, 24)
        Me.Button4.TabIndex = 1
        Me.Button4.Text = "色彩校正"
        '
        'Button5
        '
        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button5.Location = New System.Drawing.Point(164, 512)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(124, 24)
        Me.Button5.TabIndex = 1
        Me.Button5.Text = "画面大小"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 573)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.picView)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button5)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

   Private cccap As Cam
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cccap = New Cam(picView.Handle, 0, 0, picView.Width, picView.Height)
        cccap.Start()
        cccap.capDlgVideoFormat()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        cccap.GrabImage("c:\test.jpg")
        cccap.Stop()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        cccap.Stop()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cccap.capDlgVideoFormat()
    End Sub
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

Public Class Form1

Inherits System.Windows.Forms.Form

Private cccap As Cam

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents picView As System.Windows.Forms.PictureBox

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button4 As System.Windows.Forms.Button

Friend WithEvents Button5 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.picView = New System.Windows.Forms.PictureBox

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.Button5 = New System.Windows.Forms.Button

Me.SuspendLayout()

'picView

Me.picView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.picView.Location = New System.Drawing.Point(16, 16)

Me.picView.Name = "picView"

Me.picView.Size = New System.Drawing.Size(640, 480)

Me.picView.TabIndex = 0

Me.picView.TabStop = False

'Button1

Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)

Me.Button1.Location = New System.Drawing.Point(244, 540)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(56, 24)

Me.Button1.TabIndex = 1

Me.Button1.Text = "start"

'Button2

Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)

Me.Button2.Location = New System.Drawing.Point(304, 540)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(56, 24)

Me.Button2.TabIndex = 1

Me.Button2.Text = "stop"

'Button3

Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)

Me.Button3.Location = New System.Drawing.Point(380, 540)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(56, 24)

Me.Button3.TabIndex = 1

Me.Button3.Text = "cap"

'Button4

Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)

Me.Button4.Location = New System.Drawing.Point(352, 508)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(124, 24)

Me.Button4.TabIndex = 1

Me.Button4.Text = "色彩校正"

'Button5

Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)

Me.Button5.Location = New System.Drawing.Point(164, 512)

Me.Button5.Name = "Button5"

Me.Button5.Size = New System.Drawing.Size(124, 24)

Me.Button5.TabIndex = 1

Me.Button5.Text = "画面大小"

'Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(792, 573)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.picView)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button5)

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private cccap As Cam

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

cccap = New Cam(picView.Handle, 0, 0, picView.Width, picView.Height)

cccap.Start()

cccap.capDlgVideoFormat()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

cccap.GrabImage("c:\test.jpg")

cccap.Stop()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

cccap.Stop()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

cccap.capDlgVideoFormat()

End Sub

End Class

注意要点：视频格式应该要设置为“YUY2”，不然可能会显示不出来。

lyingzhu 0

lyingzhu

不修改数据库，WordPress全站启用https最简单的方法

什么密码，永远无法被黑客攻破？

VScode中配置 C/C++ 环境,超级详细，问题分析全面，绝对好用

群晖使用任务计划实现Let’s Encrypt 泛域名证书自动更新

适合小白的黑群晖安装教程

微软 Cascadia Code 编程字体 – 开源免费支持代码连字显示的开发和命令行专用字体

如何在WordPress主题中自定义Blockquotes样式

网络流量劫持危害有多大？继续解密黑客巧妙神奇的“离线”入侵手段

什么是网络流量劫持？揭秘详解黑客劫持的攻击手段与防御方法

免费内网穿透工具教程 – 利用树莓派和无公网 IP 宽带，实现低成本自建网站

图形化 NGINX 配置文件生成器 – 简单适合新手的建站配置工具

开启NFS协议，蓝光播放机连接访问群晖NAS共享文件夹

群晖升级 DSM7.0 后，无法通过 SMB 连接 NAS 共享文件夹解决方法

DMS 7.0.1 群晖DS918+开启NVME缓存的方法

碰到 WordPress 致命错误，如何一步一步解决

vb.net連接攝像頭

Javascript复制内容到剪贴板，解决navigator.clipboard Cannot read property ‘writeText‘ of undefined

如何申请及配置Google Index API实现谷歌快速收录

网云穿群晖docker使用教程

群晖 NAS 升级 2.5G 网卡方法教程 – 简单操作！低成本让速度飙升 280MB/s 极速！