vb.net照相 vbnet drawimage

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

上述代码就可以实现 但是要注意相应的控件是否存在 不存在的 你自己画出来

相关问答

Q1: vbnet打开windows照相机

1.点击打开开始菜单 - 电脑设置，打开电脑设置窗口。如下图所示2.在打开的电脑设置窗口中，点击打开“隐私”项进入下一步操作。如下图所示3.在隐私功能界面中，找到“摄像头”点击打开。如下图所示4.点击将允许应用使用我的摄像头开启，关闭电脑设置窗口完成操作

Q2: Vb.net怎么实现图像的处理

这问题有点笼统，软糖来说说把：

图像处理由System.Drawing命名空间负责。

主要是Bitmap类和Graphics类。

Bitmap表示一个位图，可以是BMP,JPG,PNG等文件。

装载位图

Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")

Graphics表示一张画纸，能够进行绘制操作。

它可以被窗体、控件、位图调用CreateGraphics()方法来创建。

然后调用Graphics.Draw开头的一系列函数来绘制图像和图形，Fill开头的填充图形。

创建画纸并绘制位图

Dim 画纸 As Graphics = Me.CreateGraphics()

画纸.DrawImage(位图, 100, 100, 256, 256)

可以将上面三行放到Form1_Load中测试，把路径改一下，

还可以把Me改为能在上面绘图的控件的名称。

更多内容请看MSDN的System.Drawing命名空间。

如满意，请采纳，谢谢。

Q3: windows8.1下VB.net使用摄像头

这个方法没问题。

win8.1，我用网上的方法，有时也有黑屏现象，但多试几次就好了。有时还会弹出要选择摄像头，选择确认、取消、应用都是黑屏。

Q4: VB.NET中怎么调用摄像头

给你个工程自己看...

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

点按钮保存到c:\1.bmp

Q5: VB.NET 动态创建picturebox后如何用其image属性

能悬赏点财富值么？

'下面初始化16个图片的位置、大小、背景等

        For i = 0 To 15

            Pic(i) = New PictureBox

            Pic(i).Parent = Panel1

            Pic(i).Location = New Point(2 + (i Mod 4) * 100, 2 + (i \ 4) * 100)

            Pic(i).Height = 98

            Pic(i).Width = 98

            Pic(i).BackColor = Color.Green

            Pic(i).Tag = i

            Me.Panel1.Controls.Add(Pic(i))

            AddHandler Pic(i).Click, AddressOf Pict_Click '注册事件

        Next

        '初始化16个图片的显示为背面的照片

        For i = 0 To 15

            Pic(i).Image = Bitmap.FromFile(Application.StartupPath  "/image/Null.jpg")

        Next

关于vb.net照相和vbnet drawimage的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。