锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net控制摄像头 vba调用摄像头拍照

IT技术摄像头

VB.NET中怎么调用摄像头给vb.net控制摄像头你个工程自己看...
运行后可以看到自己...
点按钮保存到c:\1.bmp
VB.NET怎么调用摄像头啊?求实例,最好配注释啊Private Const WS_CHILD = H40000000
Private Const WS_VISIBLE = H10000000
Private Const WM_CAP_START = H400
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START10
Private Const WM_CAP_SET_SCALE = WM_CAP_START53
Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START52
Private Const WM_CAP_SET_PREVIEW = WM_CAP_START50
Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _
ByVal hWndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Sub Form_Load()
【vb.net控制摄像头 vba调用摄像头拍照】'建立采集窗口（不显示窗口vb.net控制摄像头，处理后显示到PIC控件）
uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, 320, 240, Me.hWnd, 0)
'连接
SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0
'Scale开
SendMessage uwndc, WM_CAP_SET_SCALE, True, 0
'显示刷新MS
SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0
'用予览方式显示(特殊需要 ， 不显示予缆）
SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0
End Sub
上述代码就可以实现 但是要注意相应的控件是否存在 不存在的 vb.net控制摄像头你自己画出来
我想问下vb.net下如何控制多个摄像头？钩子函数 线程 。你可以去网上找找 有本黄皮的书 。那里就有一个9个摄像头控制的程序 。叫.NET实例开发教程
vb.net控制摄像头的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba调用摄像头拍照、vb.net控制摄像头的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何将你的电脑变成一个网络服务器？ 怎么把电脑变成网络服务器

    下一篇：元咖云服务器，元云科技