VB摄像头硬件拍照功能实现 并不是你的问题没人会回答。而是你提问的地方不对，你这个属于硬件编程了，放到软件编程里当然没几个人会回答啦，下面是一个实例，直接点击摄像头上的拍照按钮的。。
VB编写视频会议软件 楼上的不要说vb做不了，关键是你不会这里有个，可以看看form1中加picturePrivate Sub Form_Load()Dim lpszName As String*100Dim lpszVer As String*100'创建视频窗口'读取驱动程序列表capGetDriverDescriptionA 0，lpszName，100，lpszVer，100'创建视频窗口程序lwndC=capCreateCaptureWindowA(lpszName，WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD，-5，-30，Pic.Width，Pic.Height，Pic.hwnd，0)'把捕捉窗口连接到一个捕捉设备If capDriverConnect(lwndC，0)Then' '来使预览模式的缩放有效或者无效capPreviewScale lwndC，True'发送给捕捉窗口来设置在预览模式下帧的显示频率capPreviewRate lwndC，66'发送给捕捉窗口来使预览模式有效或者失效capPreview lwndC，True'调整窗体的在小及显示格式SetWindowPos lwndC，HWND_BOTTOM，0，0，430，350，SWP_NOMOVE Or SWP_NOZORDEREnd IfEnd Submodule中代码：Public Const WS_BORDER=H800000Public Const WS_CAPTION=HC00000Public Const WS_SYSMENU=H80000Public Const WS_CHILD=H40000000Public Const WS_VISIBLE=H10000000Public Const WS_OVERLAPPED=H0&Public Const WS_MINIMIZEBOX=H20000。
VB编写视频会议软件 楼上的不要说vb做不了，关键是你不会 这里有个，可以看看 form1中加picture Private Sub Form_Load()Dim lpszName As String*100 Dim lpszVer As String*100 '创建视频窗口 '。
VB编写视频会议软件 楼上的不要说vb做不了，关键是你不会这里有个，可以看看form1中加picturePrivate Sub Form_Load()Dim lpszName As String*100Dim lpszVer As String*100'创建视频窗口'读取驱动程序列表capGetDriverDescriptionA 0，lpszName，100，lpszVer，100'创建视频窗口程序lwndC=capCreateCaptureWindowA(lpszName，WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD，-5，-30，Pic.Width，Pic.Height，Pic.hwnd，0)'把捕捉窗口连接到一个捕捉设备If capDriverConnect(lwndC，0)Then' '来使预览模式的缩放有效或者无效capPreviewScale lwndC，True'发送给捕捉窗口来设置在预览模式下帧的显示频率capPreviewRate lwndC，66'发送给捕捉窗口来使预览模式有效或者失效capPreview lwndC，True'调整窗体的在小及显示格式SetWindowPos lwndC，HWND_BOTTOM，0，0，430，350，SWP_NOMOVE Or SWP_NOZORDEREnd IfEnd Submodule中代码：Public Const WS_BORDER=H800000Public Const WS_CAPTION=HC00000Public Const WS_SYSMENU=H80000Public Const WS_CHILD=H40000000Public Const WS_VISIBLE=H10000000Public Const WS_OVERLAPPED=H0&Public Const WS_MINIMIZEBOX=H20000Public Const。
