『壹』 vb.net如何在win10的平板上用攝像頭
1.點擊打開開始菜單 - 電腦設置,打開電腦設置窗口。如下圖所示
2.在打開的電腦設置窗口中,點擊打開「隱私」項進入下一步操作。如下圖所示
3.在隱私功能界面中,找到「攝像頭」點擊打開。如下圖所示
4.點擊將允許應用使用我的攝像頭開啟,關閉電腦設置窗口完成操作。如下圖所示
『貳』 VB.NET中怎麼調用攝像頭
給你個工程自己看...
運行後可以看到自己...
點按鈕保存到c:1.bmp
『叄』 windows8.1下VB.net使用攝像頭
這個方法沒問題。
win8.1,我用網上的方法,有時也有黑屏現象,但多試幾次就好了。有時還會彈出要選擇攝像頭,選擇確認、取消、應用都是黑屏。
『肆』 如何在VB,VC和.NET中使用halcon
HALCON對於機器視覺的學習者、開發者而言並不陌生,稱其為機器視覺領域第一軟體,亦無可厚非。
HALCON對於視覺系統的控制、圖像的處理和分析都能夠較好的實現,尤其是各種圖像處理演算法。但就其本身而言,開發用戶界面並不理想。用戶界面以及對於其他底層的控制,比如和底層電路板、PLC等的控制和通信,可通過VC++、VB等進行開發。方便的是,HALCON恰恰能夠被這些開發工具所調用,它支持C、C++、VB、JAVA等等。
剛開始結合VC++結合HALCON進行學習和開發時,因為軟體方面的薄弱,對如何在VC++中如何調用HALCON感到不知所措,也在網上找了一些資料,資料較少,基本內容相同,或許能用,但始終對於筆者個人而言不太靈光。後來在一位軟體同事的指導下,對其有了較為深刻的了解,其實說到底對軟體工程師而言這是一件很簡單的事,也就是將HALCON的庫導入VC++。
以下,針對初學者一步步介紹,以MFC作為開發工具。
在Visual Studio中新建項目選擇Visual C++下的MFC,其中的MFC應用程序,建立過程不贅述。本文以Visual Studio 2005為例。
打開HALCON安裝目錄(以HALCON7.0為例,後面的版本也相同),如下圖1所示:
將其中的include文件夾整個拷貝至所建MFC項目工作目錄下,如下圖2所示:
同樣,將HALCON的LIB文件拷貝到所建MFC項目工作目錄下,因使用C++進行開發,所以選擇X:Program FilesMVTecHALCONlibi586-nt4下的halconcpp.lib,這里X:為安裝盤符
打開stdafx.h,在文件中空白位置處,加入
#include "include/cpp/HalconCpp.h"
#prama comment(lib,"halconcpp.lib")
下一步,點擊項目下的屬性,如下圖6所示:
點開配置屬性中的C/C++,如下圖7所示:
當點在附加包含目錄右側空白框時,會出現的圖標,點開,如下圖8所示:
點擊新建行,將所建MFC項目工程目錄下的include文件夾的地址輸入,也就是剛才我們拷貝過去的那個文件夾
最後一步,在需要使用HALCON庫的地方,將其頭文件導入,以****Dlg.cpp為例
這樣我們就算成功在VC++/MFC中導入了HALCON庫文件,就可以調用HALCON的函數,使用其強大的演算法。另外,單純執行上述步驟後,按F5啟動調試,應該是不會有任何的ERROR和WARNING的。此方法同樣適用於VB,在此不贅述,VB的開發者可自行嘗試。
『伍』 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_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
上述代碼就可以實現 但是要注意相應的控制項是否存在 不存在的 你自己畫出來