Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Gain access to a property with reflection
Message
From
05/02/2013 09:44:43
 
 
To
05/02/2013 09:12:43
General information
Forum:
ASP.NET
Category:
Other
Environment versions
Environment:
VB 9.0
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01565141
Message ID:
01565147
Views:
54
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform