Foxtable(狐表)用户栏目专家坐堂 → 【分享】【摄像头拍照】窗口


  共有271762人关注过本帖树形打印复制链接

主题:【分享】【摄像头拍照】窗口

帅哥哟,离线,有人找我吗?
aidimeng
  701楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:7148 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/9/22 8:37:00 [只看该作者]

1111111111111

 回到顶部
帅哥哟,离线,有人找我吗?
mxl810823
  702楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:349 积分:2962 威望:0 精华:0 注册:2018/2/27 17:32:00
摄像头不同,程序出错  发帖心情 Post By:2021/10/8 17:01:00 [只看该作者]

如下程序,电脑自带的摄像头是可以执行的,但是外接一个摄像头就会在msgbox(11111) 和 msgbox(2222)之间出错,提示找不到对象。为什么,要怎么搞
Dim pic As WinForm.PictureBox = e.Form.Controls("PicView")
Dim pic2 As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim cam As WinForm.Control = e.Form.Controls("CamView")
Dim box As WinForm.Control = e.Form.Controls("LineBox")
'预览框尺寸
Dim x As Integer = cam.Left
Dim y As Integer = cam.Top
Dim w As Integer = cam.Width
Dim h As Integer = cam.Height
'截图框尺寸
Dim x1 As Integer = box.Left
Dim y1 As Integer = box.Top
Dim w1 As Integer = box.Width
Dim h1 As Integer = box.Height

'摄像头拍照
_Cap.GrapImg()
pic.Image = _Cap.GetBitmap()
'摄像头分辨率
msgbox(11111)
Dim camw As Integer = pic.Image.Width
Dim camh As Integer = pic.Image.Height
'截取框和预览框比例
msgbox(222)
Dim cw As Double = camw / w
Dim ch As Double = camh / h
'计算截图坐标

msgbox(3333332)
Dim picx As Integer = CInt(CDbl(x1-x) * cw)
Dim picy As Integer = CInt(CDbl(y1-y) * ch)
Dim picw As Integer = CInt(CDbl(w1) * cw)
Dim pich As Integer = CInt(CDbl(h1) * ch)
'截取图片

pic2.Image = Functions.Execute("GetBitmapPart",_Cap.GetBitmap(),picx,picy,picw,pich)
'输入信息
e.Form.Controls("ViewSize").Text = "预览框尺寸:[" & w & "*" & h & "]"
e.Form.Controls("BoxSize").Text = "截图框尺寸:[" & w1 & "*" & h1 & "]"
e.Form.Controls("PicSize").Text = "照片尺寸:[" & picw & "*" & pich & "]"
e.Form.Controls("CamSize").Text = "摄像头分辨率:[" & camw & "*" & camh & "]"
e.Form.Controls("ZoomRate").Text = "缩放比:[" & cw & ":" & ch & "]"

 回到顶部
帅哥哟,离线,有人找我吗?
mscf
  703楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:145 积分:1389 威望:0 精华:0 注册:2012/10/13 15:52:00
  发帖心情 Post By:2021/10/26 23:07:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
andy123
  704楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:2650 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By:2021/10/31 13:21:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
幽灵口风琴
  705楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:65 威望:0 精华:0 注册:2021/11/20 17:01:00
  发帖心情 Post By:2021/11/20 17:02:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  706楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(xdongx)【分享】【摄像头拍照】窗口  发帖心情 Post By:2021/12/4 17:25:00 [只看该作者]

学习学习

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  707楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2021/12/10 13:22:00 [只看该作者]

xx

 回到顶部
帅哥哟,离线,有人找我吗?
xuhw
  708楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:427 威望:0 精华:0 注册:2021/9/7 13:25:00
需要源码  发帖心情 Post By:2021/12/14 10:16:00 [只看该作者]

需要源码

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  709楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1503 积分:10158 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/2/23 10:37:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  710楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3205 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2022/2/24 22:05:00 [只看该作者]

看看

 回到顶部