VB.NET中怎么調(diào)用攝像頭

給你個工程自己看...

10余年的鹽津網(wǎng)站建設經(jīng)驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。成都全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同，自動調(diào)整鹽津建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“鹽津網(wǎng)站設計”,“鹽津網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

運行后可以看到自己...

點按鈕保存到c:\1.bmp

VB.NET怎么調(diào)用攝像頭啊?求實例,最好配注釋啊

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

上述代碼就可以實現(xiàn) 但是要注意相應的控件是否存在 不存在的 你自己畫出來

windows8.1下VB.net使用攝像頭

這個方法沒問題。

win8.1，我用網(wǎng)上的方法，有時也有黑屏現(xiàn)象，但多試幾次就好了。有時還會彈出要選擇攝像頭，選擇確認、取消、應用都是黑屏。

vb.net 只能調(diào)用xp的api嗎？沒有新的api？我想找個攝像頭的apixp的太難用了

所謂 API，全稱叫 Application Programming Interface（應用程序編程接口），是一些預先定義的函數(shù)，目的是提供應用程序與開發(fā)人員基于某軟件或硬件的以訪問一組例程的能力，而又無需訪問源碼，或理解內(nèi)部工作機制的細節(jié)。

通常在 WIndows 編程中稱呼的 API ，一般指的是 Windows API，也就是 WIndows 操作系統(tǒng)提供給我們的函數(shù)，這些函數(shù)被封裝在 C:\Windows\system32\ 下面的一個個 DLL 文件中。

所以調(diào)用什么 API 取決于調(diào)用的是哪個 DLL，跟 XP 不 XP 的沒有一毛錢關系。

VB.net可以調(diào)用windows media player組件，怎么調(diào)用windows照片查看器啊？

windows照片查看器調(diào)用的是PhotoViewer.dll，但沒有提供com接口，vb.net本身已經(jīng)自帶Picturebox控件

VB.NET 攝像頭編程求助大神們幫幫忙

下面是我之前在VB6里測試過的代碼：在窗體里放一個按鈕叫Command1和一個PictureBox叫Picture1。 Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _ Alias "capCreateCaptureWindowA" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hWndParent As Long, _ ByVal nID As Long) As Long Private Const WS_CHILD = H40000000 Private Const WS_VISIBLE = H10000000 Private Const WM_USER = H400 Private Const WM_CAP_START = H400 Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30) Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10) Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52) Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START + 51) Private Const WM_CAP_SET_PREVIEW = (WM_CAP_START + 50) Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11) Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Preview_Handle As Long Private iDevice As Long Private hHwnd As Long Private Sub Command1_Click() Dim bRet As Boolean Dim szTest As String szTest = App.Path "\TEST.bmp" Chr$(0) bRet = capEditCopy(hHwnd) If bRet Then DoEvents If Clipboard.GetFormat(vbCFBitmap) Then Picture1.Picture = Clipboard.GetData(vbCFBitmap) Picture1.Picture = Clipboard.GetData(vbCFBitmap) SavePicture Picture1.Image, szTest DoEvents Clipboard.Clear End If End If End Sub Private Sub Form_Load() '建立捕獲窗口 Preview_Handle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, 0, 0, 320, 240, Me.hWnd, 1) '建立捕獲窗口到捕獲設備的連接 SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0 '設置捕獲的幀頻率為30毫秒一幀 SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 30, 0 '用預覽模式在捕獲窗口開始預覽圖像 SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0 End Sub Private Sub Form_Unload(Cancel As Integer) '斷開到捕獲設備的連接 SendMessage Preview_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0 End Sub Private Function capEditCopy(ByVal hCapWnd As Long) As Boolean capEditCopy = SendMessageAsLong(hCapWnd, WM_CAP_EDIT_COPY, 0, 0) End Function

網(wǎng)站名稱：vb.net調(diào)用照相機 vb調(diào)用攝像頭實現(xiàn)拍照
文章網(wǎng)址：http://chinadenli.net/article40/doopsho.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、自適應網(wǎng)站、網(wǎng)站設計公司、App設計、全網(wǎng)營銷推廣、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)