Ⅰ 如何在VB中保存圖片
VB6.0可使用SavePicture 語句來保存窗體或圖像框中經修改的圖片。
1）SavePicture 語句，從對象或控制項（如果有一個與其相關）的 Picture 或 Image 屬性中將圖形保存到文件中。
PrivateSubCommand3_Click()'保存為.jpg圖片
'設置「CancelError」為True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'設置標志
CommonDialog1.Flags=cdlOFNHideReadOnly
'設置過濾器
CommonDialog1.Filter="JPEGFiles"&"(*.jpg)|*.jpg"
'指定預設的過濾器
CommonDialog1.FilterIndex=2
'顯示「打開」對話框
CommonDialog1.ShowSave
'顯示選定文件的名字
'MsgBoxCommonDialog1.fileName
SetPicture2.Picture=Picture1.Image'轉移Picture1所繪圖為Picture2.Picture賦值
DimretAsBoolean
ret=PictureBoxSaveJPG(Picture2,CommonDialog1.fileName)'保存壓縮後的圖片
Ifret=FalseThen
MsgBox"保存失敗"
EndIf
ExitSub
ErrHandler:
'用戶按了「取消」按鈕
ExitSub
EndSub