CommonDialog的问题

[laisiwei]

怎样在保存不同格式的文件时调用不同的代码
如
在用户选择*.bmp时，执行savepicture
在用户选择*.gif时，执行 call savegif

[footballboy]

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

Private Sub savegif()
MsgBox "savegif"
End Sub

[laisiwei]

我想知道的是CommonDialog，而不是Combo1

[zsx108]

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"

Case "GIF"

Call savegif

End Select

[thinkeasy]

Select Case ucase(right(CommonDialog1.FileName,3),3)
Case "BMP"
SavePicture Picture1.Picture, CommonDialog1.FileName

Case "GIF"

Call savegif

End Select

[Azi03]

大哥，我的扩展名只有两个字符呢？？？
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

[footballboy]

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

[zyl910]

FilterIndex 属性


返回或设置“打开”或“另存为”对话框中一个缺省的过滤器。

语法

object.FilterIndex [= number]

FilterIndex 属性语法有下列部分：

部分 描述
object 对象表达式 ，其值是“应用于”列表中的对象。
number 是指定缺省过滤器的数值表达式。


说明

当使用 Filter 属性为“打开”或“另存为”对话框指定过滤器时，该属性指定缺省的过滤器。

对于所定义的第一个过滤器其索引是 1。

数据类型

Integer