Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Gain access to a property with reflection
Message
De
05/02/2013 09:44:43
 
 
À
05/02/2013 09:12:43
Information générale
Forum:
ASP.NET
Catégorie:
Autre
Versions des environnements
Environment:
VB 9.0
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01565141
Message ID:
01565147
Vues:
53
I have adjusted for this. If someone has a better approach, you may let me know.
    ' Non visual operations that do specific tasks and redirect to a specific page
    Public Function Operation() As Boolean
        Dim lcMessage As String = ""
        Dim lnOperation As Integer = 1
        Dim loOperation As Operation = New Operation(oProcess)
        Dim loOperationMethodInfo As System.Reflection.MethodInfo = Nothing
        Dim loOperationType As Type = loOperation.GetType()
        Dim loOperationParameter(0) As Object
        Dim loPropertyInfo As System.Reflection.PropertyInfo = Nothing

        ' Get the operation ID
        lnOperation = Val(oProcess.GetProcess("Operation"))

        ' Define the parameter
        loOperationParameter(0) = False

        ' Use reflection to dynamically access the method
        loOperationMethodInfo = loOperationType.GetMethod("Operation" + lnOperation.ToString)

        ' Call the method
        If Not loOperationMethodInfo.Invoke(loOperation, loOperationParameter) Then
            loPropertyInfo = loOperationType.GetProperty("cMessage")
            lcMessage = CType(loPropertyInfo.GetValue(loOperationMethodInfo, Nothing), String)
            Throw New System.Exception(lcMessage)
        End If

        Return True
    End Function
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform