主题：照像的功能，下次更新时有吗？

如题。

一直有的,用下面两行代码

Dim frm As New frmCamera
frm.Show

什么时候放上去的，也不说一声。现在有个问题，这个照片保存在哪里，可以连续照像吗？ 

照片在剪切板上

 

http://www.foxtable.com/help/topics/2069.htm

运行代码时，出现这个窗口，如何写代码，可运行截图中的“确定”按钮。不然要用鼠标点个按钮，我想实现自动化，通过代码运行“确定”按钮。
此主题相关图片如下：照片.gif

 

类: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

这个应该可以，就是不明白如何使用。

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

 

这个代码老是要按“确定”按钮。

我的目的是不用按“确定”按钮，就可以接着照下一张。

'全局代码
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()