Dim pl As WinForm.Panel = e.Form.Controls("Panel2")
Dim pc As WinForm.PictureBox = e.Form.Controls("PictureBox2")
Dim player As Aforge.Controls.VideoSourcePlayer = pl.basecontrol.controls("vp")
addhandler player.newframe, addressof player_newframe
Dim fileName As String = DateTime.Now.ToString("yyyy-MM-dd-HH-mm-ss-ff") & ".jpg"
If filesys.FileExists("c:\temp.jpg") Then
FileSys.CopyFile("c:\temp.jpg",projectpath & filename)
FileSys.DeleteFile("c:\temp.jpg")
'MessageBox.Show("保存成功!")
Else
MessageBox.Show("请重新拍照!")
Return
End If
removehandler player.newframe, addressof player_newframe
看了论坛中Aforge 拍照的代码，上面是拍照的语句，看了半天没看明白，照片的名称是什么啊，temp.jpg吗
哪个值等于temp.jpg啊
加好友 
发短信
Post By：2022/4/28 17:06:00 [显示全部帖子]
