Soyez le premier à donner votre avis sur cette source.
Vue 9 425 fois - Téléchargée 527 fois
''' <sumary> ''' Voici un petit exemple pour illuster le fonctionnement du code. ''' Le code source se trouve dans le ZIP ''' </sumary> ''' <remarks> ''' N'hésitez pas à me faire part de vos remarques ''' </remarks> Public Sub Tester() Dim CB As New VBClassBuilder("TestClass") CB.FreeContent = "'Ajouter ici du contenu libre à votre classe (events, ...)" CB.Add(New Method("New", New List(Of Argument), "Me.Message=""Hello""")) CB.Add(New Field("Message", GetType(String))) CB.Add(New Method("Test", New List(Of Argument), "MsgBox(Me.Message)")) Dim Args As New List(Of Argument) Args.Add(New Argument("Arg0", GetType(String))) CB.Add(New Method("Test2", Args, "Return Arg0", GetType(String))) Dim P As New [Property]("Test3", Nothing, "public", [Property].PropertyType.ReadOnly, Args) P.GetBody = "Return ""Hello2""" CB.Add(P) P = Nothing Args = Nothing Dim DynamicClass = CB.Create(Nothing).[New] CB = Nothing DynamicClass.Test() : MsgBox(DynamicClass.Test2(DynamicClass.Test3(""))) End Sub
9 févr. 2007 à 22:05
http://www.vbfrance.com/code.aspx?ID=41103
16 mai 2006 à 20:15
16 mai 2006 à 10:10
15 mai 2006 à 20:31
Je n'ai aucune idée de la portabilité vers .Net 1 (ou 1.1)
Faudrait tester.
Je pense cepandant que rien n'est impossible à la conversion, bienque, en effet, il est possible que des modifications mineures doivent être apportée.
15 mai 2006 à 14:01
Mais bon ça répond pas à ta question lol
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.