commondialog打开文件，如何同时显示几个扩展名的文件？

[David017]

commonDialog.Filter = "所有文件|*.*|所有图片文件(*.gif,*.png,*.jpg,*.bmp)|这该怎么写|GIF图形|*.gif|jpg图形|*.jpg"

我想有个选项是选择所有图形，这样子，把*.gif *.jpg *.png等等都显示出来，该怎么写？

谢谢

[David017]

commonDialog.Filter = "所有文件 ¦*.* ¦所有图片文件(*.gif,*.png,*.jpg,*.bmp)¦这该怎么写|GIF图形 ¦*.gif ¦jpg图形 ¦*.jpg"

[zdingyun]

CommonDialog1.Filter = "All Files (*.*)|*.*|bmp (*.bmp)|*.bmp|png (*.png)|*.png |gif (*.gif)|*.gif |jpg (*.jpg)|*.jpg"
CommonDialog1.ShowOpen

[of123]

commonDialog.Filter = "所有文件(*.*)¦*.* ¦所有图片文件(*.gif,*.png,*.jpg,*.bmp)¦*.gif;*.png;*.jpg;*.bmp¦GIF图形¦*.gif|jpg图形 ¦*.jpg"

[cbm6666]

Private Sub Command1_Click()
On Error GoTo errhandler
With CommonDialog1
.CancelError = True
.InitDir = App.Path '予设存档路径
.Filter = "所有文件(*.*)|*.*|所有图片文件(*.gif,*.png,*.jpg,*.bmp)|*.gif;*.png;*.jpg;*.bmp"
.ShowOpen
End With
MsgBox CommonDialog1.FileName
errhandler:
Exit Sub
End Sub

[cbm6666]

Private Sub Command1_Click()
On Error GoTo errhandler
With CommonDialog1
.CancelError = True
.InitDir = App.Path '予设存档路径
.Filter = "所有文件(*.*)|*.*|所有图片文件(*.gif,*.png,*.jpg,*.bmp)|*.gif;*.png;*.jpg;*.bmp|JPG图片(*.jpg)|*.jpg|BMP图片(*.bmp)|*.bmp|PNG图片(*.png)|*.png|GIF图片(*.gif)|*.gif"
.ShowOpen
End With
MsgBox CommonDialog1.FileName
errhandler:
Exit Sub
End Sub