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

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

Dim frm As New frmCamera
frm.Show

照片在剪切板上

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

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