VB下摄像头截图保存为.jpg格式

Question

我现在的做法是使用API函数将图像保存到剪贴板，然后利用Picture的SavePicture方法将图像保存，但是这样保存的是.bmp格式的，我想存为.jpg格式的，或者更小的也行，因为要进行传输，请各位高手帮帮忙呀~~~~

Answer 1

下面这个代码仅限于 Windows2000系统, XP 别试了.  
XP转为jpg的代码如下,需要的话请自行下载. '窗体上添加 Command1 ，Imgedit1  
'在添加部件里可以找到Kodak(第一个),它是调用Imgedit.ocx  Option Explicit  
Private Sub Form_Load()  
 ImgEdit1.Image = "c:\fw.bmp" '先让ImgEdit随便显示一幅图片，不然后面的语句执行时会发生错误  
 ImgEdit1.Display  
 ImgEdit1.Refresh  
End Sub  Private Sub Command1_Click()  
 If (ImgEdit1.IsCliPBoardDataAvailable And ImgEdit1.ImageDisplayed) Then  
 '从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标  
 ImgEdit1.ClipboardPaste 0, 0  
 ImgEdit1.CompletePaste  
 End If  
 '保存图片为jpg格式  
 ImgEdit1.SaveAs "c:\tt.jpg", wiFileTypeJPG, , 6  
 MsgBox "保存Jpg图片完成"  
End Sub 
'*********************************************************XP 请下载:【CBM666 的GDI BMP转为JPG】
http://download.csdn.net/source/375029

Answer 2

我有保存为JPG图片的源码，纯VB的。