Private Sub Command1_Click()
CommonDialog1.Filter = "BMP文件|*.bmp|GIF文件|*.gif"
CommonDialog1.ShowSave
Select Case CommonDialog1.FilterIndex
Case 1 'BMP
SavePicture Picture1.Picture, CommonDialog1.FileName
Case 2 'GIF
Call savegif
End Select
End Sub
大哥,我的扩展名只有两个字符呢???
Select Case ucase(right(CommonDialog1.FileName,len(CommonDialog1.FileName)-InStrRev(CommonDialog1.FileName,"."))
Case "BMP"
SavePicture Picture1.Picture, CommonDialog1.FileName
Case "GIF"
Call savegif
End Select
Temp = (CommonDialog1.FileName) ''文件名
If Len(Temp) > 3 Then Temp=Trim(UCase(Mid(Temp,Len(Temp)-3,3)))
Select Case Temp
Case "BMP"
SavePicture Picture1.Picture, "c:\temp\pic.bmp"
Private Sub Command1_Click()
Select Case Combo1.Text
Case "*.bmp"
SavePicture Picture1.Picture, "c:\temp\pic.bmp"
Case "*.gif"
Call savegif
End Select
End Sub