1,488
社区成员
发帖
与我相关
我的任务
分享
Dim itm As Item
Dim img As ImageFile
Set itm = VideoPreview1.Device.ExecuteCommand(wiaCommandTakePicture)
If Not itm Is Nothing Then
Set img = CommonDialog1.ShowTransfer(itm)
If Not img Is Nothing Then
Set Picture1.Picture = img.FileData.Picture
End If
End If