有没有人用过capSetVideoFormat阿? capDlgVideoFormat倒是挺好用的,可我不想用对话框。 我用了 Dim BmpFormat As BITMAPINFO Dim s As Long s = capGetVideoFormatSize(lwndC) Call capGetVideoFormat(lwndC, BmpFormat, s) BmpFormat.bmiHeader.biWidth = 160 BmpFormat.bmiHeader.biHeight = 120 Call capSetVideoFormat(lwndC, BmpFormat, s) 程序毫无反应
http://kitty.2y.idv.tw/ftp/pub/ProgramResource/vb/video/vcap_src/
参考:
http://www.steves-digicams.com/digsoftware_cameractrl.html大量的数码相机控制方面的控件
capDlgVideoFormat倒是挺好用的,可我不想用对话框。
我用了
Dim BmpFormat As BITMAPINFO
Dim s As Long
s = capGetVideoFormatSize(lwndC)
Call capGetVideoFormat(lwndC, BmpFormat, s)
BmpFormat.bmiHeader.biWidth = 160
BmpFormat.bmiHeader.biHeight = 120
Call capSetVideoFormat(lwndC, BmpFormat, s)
程序毫无反应
capSetVideoFormat