win7 下vb无法调用摄像头

换个代码试试

Private Const WS_CHILD = &H40000000

Private Const WS_VISIBLE = &H10000000

Private Const WM_CAP_START = &H400

Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10

Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53

Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52

Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50

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()

'建立采集窗口（不显示窗口，处理后显示到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

尊敬的华硕用户，您好!

1、win7系统“计算机”没有camera摄像头图标，需要安装QQ视频或华硕Lifeframe软件打开视频图像。即先按 Fn+V 开启摄像头，然后打开QQ或Lifeframe软件查看。

2、官网Lifeframe软件win7 64bit版本下载链接如下：

http://dlsvr04.asus.com/pub/ASUS/nb/Apps_for_Win8/LifeFrame3/LifeFrame3_Win7_8_VER3113.zip

3、A450VB此机型摄像头免驱的，系统自驱。如果“设备管理器”---图像设备或USB camera有叹号或问号，一般是系统问题驱动异常，建议您通过：控制面板--windows update更新下系统补丁，并且系统方面最好使用win7纯净版，避免有的ghost版本系统缺失个别驱动或系统文件而不能正常识别使用摄像头。

希望以上信息能够对您有所帮助，谢谢。若以上回复还是没有帮您解决您的问题，欢迎您继续追问，您也可以登录华硕在线即时服务：http://www.asus.com.cn/support/ 进一步向工程师咨询，感谢您对华硕的支持和关注，祝您生活愉快！

---