convert enum to imaging.imagefo rmat

[David A. Osborn]

I currently have a class that has an enumeration of graphics extensions that
it supports ie:

Public Enum GraphicFormats
JPG
JPEG
BMP
TIFF
End Enum
When a user selects a file it checks against this enum to verify it has an
okay extension and if I ever want add more files I can just modify this
enum. At some point though I need to translate a variable of the type
GraphicsFormat to type Imaging.ImageFo rmat in order to pass to a function.
I.E. BMP to Imaging.ImageFo rmat.BMP and JPG or JPEG to
Imaging.ImageFo rmat.JPEG.

I thought Maybe I could do the following when the user loads the vaiable:

Public Property FileFormat() As GraphicFormats
Get
If _FileFormat Is Imaging.ImageFo rmat.Jpeg Then
Return GraphicFormats. JPEG
ElseIf _FileFormat Is Imaging.ImageFo rmat.Bmp Then
Return GraphicFormats. BMP
ElseIf _FileFormat Is Imaging.ImageFo rmat.Tiff Then
Return GraphicFormats. TIFF
End If
End Get
Set(ByVal Value As GraphicFormats)
If Value = GraphicFormats. JPEG Or Value = GraphicFormats. JPG
Then
_FileFormat = Imaging.ImageFo rmat.Jpeg
ElseIf Value = GraphicFormats. BMP Then
_FileFormat = Imaging.ImageFo rmat.Bmp
ElseIf Value = GraphicFormats. TIFF Then
_FileFormat = Imaging.ImageFo rmat.Tiff
End If
End Set
End Property

This way the object would really store in _FileFormat of type
Imaging.ImageFo rmat, but when the user access the variable the get a type of
my enumeration. But this doesn't work because if I access _FileFormat in my
class it doesn't have the value, but just an object of type
Imaging.ImageFo rmat, and if I access Me.FileFormat in my class I get a type
of my enum instead.

Also this method kills my ease of adding new extensions to my class. Maybe
I am going about this completely the wrong way. Any suggestions?

[Cor Ligthert [MVP]]

David,

I have this as almost yours in a program like beneath. You can change that
filterindex of course for the extention and set than in the case more
extentions and test on that. However, this is for me a typical sample of
using a select case (you can set more condition seperated by a comma in a
select case)

http://msdn.microsoft.com/library/de...selectcase.asp

\\\\
Private Sub whatever
)
)
fdlSave.Filter = "Bitmap (*.bmp)|*.bmp|G IF (*.gif)|*.gif|" & _
"JPEG (*.jpg)|*.jpg;* .jpeg|TIF (*.tif)|*.tif|P NG (*.png)|*.png"
fdlSave.FilterI ndex = 3
If fdlSave.ShowDia log() = DialogResult.OK Then
Dim ici As ImageCodecInfo = GetEncoderInfo( fdlSave.FilterI ndex)
newImage.Save(f dlSave.FileName , ici, eps)
End If
End Sub
Private Function Getimageformat( ByVal Filterindex As Integer) As
Imaging.ImageFo rmat
Select Case Filterindex
Case 1
Return Imaging.ImageFo rmat.Bmp
Case 2
Return Imaging.ImageFo rmat.Gif
Case 3
Return Imaging.ImageFo rmat.Jpeg
Case 4
Return Imaging.ImageFo rmat.Tiff
Case 5
Return Imaging.ImageFo rmat.Png
End Select
End Function
///

I hope this helps?

Cor

[David A. Osborn]

Thanks, but not exactly what I'm looking for. I'm using a TreeView control
and not a file dialog box. I'm actually hoping to figure out a way to list
my extensions in the enumeration so that it is the only place I will update
to add new extensions. Is there are way to "map" each enumeration to a type
if Imaging.ImageFo rmat?
"Cor Ligthert [MVP]" <no************ @planet.nl> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

David,

I have this as almost yours in a program like beneath. You can change that
filterindex of course for the extention and set than in the case more
extentions and test on that. However, this is for me a typical sample of
using a select case (you can set more condition seperated by a comma in a
select case)

http://msdn.microsoft.com/library/de...selectcase.asp

\\\\
Private Sub whatever
)
)
fdlSave.Filter = "Bitmap (*.bmp)|*.bmp|G IF (*.gif)|*.gif|" & _
"JPEG (*.jpg)|*.jpg;* .jpeg|TIF (*.tif)|*.tif|P NG (*.png)|*.png"
fdlSave.FilterI ndex = 3
If fdlSave.ShowDia log() = DialogResult.OK Then
Dim ici As ImageCodecInfo = GetEncoderInfo( fdlSave.FilterI ndex)
newImage.Save(f dlSave.FileName , ici, eps)
End If
End Sub
Private Function Getimageformat( ByVal Filterindex As Integer) As
Imaging.ImageFo rmat
Select Case Filterindex
Case 1
Return Imaging.ImageFo rmat.Bmp
Case 2
Return Imaging.ImageFo rmat.Gif
Case 3
Return Imaging.ImageFo rmat.Jpeg
Case 4
Return Imaging.ImageFo rmat.Tiff
Case 5
Return Imaging.ImageFo rmat.Png
End Select
End Function
///

I hope this helps?

Cor

[Cor Ligthert [MVP]]

David,

Any reason that it "must" be an Enum.
In my opinion is setting in the Tag of the treeview an indexnumber much
easier.

Just my opinion.

Cor