How do I set a FlagsAttribute to a run time created enum
I really need a FlagsAttribute for the enum as it will be use to trigger multiple choice
Thanks for the help
Function BuildEnum(ByVal EnumName As String, ByVal args As Hashtable) As Type
Dim ad As AppDomain
Dim an As New AssemblyName
Dim ab As AssemblyBuilder
Dim mb As ModuleBuilder
Dim eb As EnumBuilder
Dim t As Type
Dim ie As IDictionaryEnumerator = args.GetEnumerator

Try
  ad = AppDomain.CurrentDomain
  an.Name = EnumName
  ab = ad.DefineDynamicAssembly(an, AssemblyBuilderAccess.RunAndSave)
  mb = ab.DefineDynamicModule(EnumName, EnumName & ".dll")
  eb = mb.DefineEnum(EnumName, TypeAttributes.Public, GetType(Integer))

  While ie.MoveNext
   eb.DefineLiteral(ie.Value, CInt(ie.Key))
  End While

  t = eb.CreateType()
  Return t

Catch ex As Exception
  ''do nothing
  Return Nothing

Finally

End Try
End Function

Something like this:

eb.SetCustomAttribute(New
CustomAttributeBuilder(GetType(FlagsAttribute).GetConstructor(Type.EmptyTypes),
New Object() {}))


Mattias

You'r my man thanks a lot :)

CustomAttributeBuilder(GetType(FlagsAttribute).GetConstructor(Type.EmptyType
s),
Show quoteHide quote

Can't modify instance of a class from within the class!
WebBrowser Control Printing
Garbage collection, Unmanaged code and SafeArrays
Problem sending Report as EMail - wrong attach. name "untitled.txt"
creating independant application vb 2005 express edition
Regular Expression Question
Fastest way to load jpg images ?
Single event handler for menu
How to.... Question.....
Access digital camera