- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 照像的功能，下次更新时有吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22043)
-- 发布时间：2012/8/1 8:34:00
-- 照像的功能，下次更新时有吗？
如题。
-- 发布时间：2012/8/1 8:50:00
--
一直有的,用下面两行代码
Dim frm As New frmCamera
frm.Show
-- 发布时间：2012/8/1 9:10:00
--
什么时候放上去的，也不说一声。现在有个问题，这个照片保存在哪里，可以连续照像吗？
-- 发布时间：2012/8/1 9:30:00
--
照片在剪切板上
http://www.foxtable.com/help/topics/2069.htm
-- 发布时间：2012/8/1 9:33:00
--
运行代码时，出现这个窗口，如何写代码，可运行截图中的“确定”按钮。不然要用鼠标点个按钮，我想实现自动化，通过代码运行“确定”按钮。
此主题相关图片如下：照片.gif
-- 发布时间：2012/8/1 9:43:00
--
类:Foxtable.Camera
New()
方法:
Capture()
Save(String)
函数:
Equals(Object) AS System.Boolean
GetHashCode() AS System.Int32
GetType() AS System.Type
ToString() AS System.String
属性:
Image AS System.Drawing.Image
-- 发布时间：2012/8/1 9:52:00
--
类:Foxtable.Camera
New()
方法:
Capture()
Save(String)
函数:
Equals(Object) AS System.Boolean
GetHashCode() AS System.Int32
GetType() AS System.Type
ToString() AS System.String
属性:
Image AS System.Drawing.Image
这个应该可以，就是不明白如何使用。
-- 发布时间：2012/8/1 9:52:00
--
Dim c As new camera
For i As Integer=1 To 2
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
c.save("c:\\data\\a" & i & ".jpg")
End If
Next
这个代码老是要按“确定”按钮。
-- 发布时间：2012/8/1 9:54:00
--
我的目的是不用按“确定”按钮，就可以接着照下一张。
-- 发布时间：2012/8/1 10:09:00
--
\'全局代码
Public Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not Clipboard.ContainsImage Then MsgBox("请先照相再保存!", 64, "提示") : Return
Dim Dlg As New Windows.Forms.SaveFileDialog
Dlg.Title = "保存照片"
Dlg.Filter = "照片文件(*.jpg;*.png;*.bmp;*.gif)|*.jpg;*.png;*.bmp;*.gif|所有文件(*.*)|*.*"
If Dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim Img As Image = Clipboard.GetImage
Img.Save(Dlg.FileName, Drawing.Imaging.ImageFormat.Jpeg)
MsgBox("照片保存成功!", 64, "提示")
Clipboard.Clear()
End If
End Sub
\'命令窗口或者按钮代码
Dim frmCam As frmCamera = New frmCamera
Dim BtnSave As New Windows.Forms.Button
BtnSave.Text = "保存"
BtnSave.Name = "BtnSave"
BtnSave.Location = New Point(frmCam.Controls("btnCam").Left + 80, frmCam.Controls("btnCam").Top)
BtnSave.Size = frmCam.Controls("btnCam").Size
BtnSave.Anchor = frmCam.Controls("btnCam").Anchor
AddHandler BtnSave.Click, AddressOf BtnSave_Click
frmCam.Controls.Add(BtnSave)
frmCam.Show()