Solved

Get Private Variables using Reflection in VB.NET (URGENT)

Posted on 2006-11-09
5
410 Views
Last Modified: 2012-05-05
Hi,

I'm not sure if this is possible but here goes...

I know you can use reflection to get the public properties of the current object/class:

      Me.GetType.getProperties

But I would like to get the private variables that are defined at the top of the class, see simple example below:



Public Class mySimpleClass

    Private _FirstName As String
    Private _LastName As String

    Public ReadOnly Property Fullname() As String
        Get
            Return _FirstName & " " & _LastName
        End Get
    End Property

    Public Sub New()

    End Sub

End Class



I know that example doesn't show much, but basically I know I could access the Property 'FullName' using reflection, however if I want to access the private variables _FirstName and _LastName, how would I go about it? If it's possile at all.
0
Comment
Question by:David_Reid_1985
  • 2
  • 2
5 Comments
 
LVL 4

Expert Comment

by:Xeavn
ID: 17910386
Make them not private?

The whole point of declaring them private means that they can only be accessed and changed inside of the class. If you need to access those variables from outside the class then you want to switch the declaration to Public, or perhaps create a couple more public properties that allow you access to them.
0
 
LVL 62

Accepted Solution

by:
Fernando Soto earned 500 total points
ID: 17911452
Hi David_Reid_1985;

Yes that can be done. The following code assumes that the class mySimpleClass is part of the executing assembly.


        Dim SimpleClass As New mySimpleClass

        Dim myType As Type = GetType(mySimpleClass)
        Dim fieldInfos() As FieldInfo = myType.GetFields(BindingFlags.NonPublic Or _
            BindingFlags.Instance Or BindingFlags.Static)

        For Each fInfo As FieldInfo In fieldInfos
            Dim fieldName As String = fInfo.Name.PadRight(2)
            Dim fieldType As String = fInfo.FieldType.ToString
            Dim fieldValue As String = fInfo.GetValue(SimpleClass)
            Console.WriteLine("Field name = {0} Field value = {1} Field type = {2}", fieldName, fieldValue, fieldType)
        Next


Fernando
0
 

Author Comment

by:David_Reid_1985
ID: 17912674
I want to access them from within that class, so in the dispose function I can loop through all private variables setting them to nothing, rather than having to hard code the names of every variable.

Cheers Fernando I will try you suggestion later on today and let you know.

Thanks
David
0
 

Author Comment

by:David_Reid_1985
ID: 17912694
Just tried it, thanks Fernando worked a treat!
0
 
LVL 62

Expert Comment

by:Fernando Soto
ID: 17913862
No problem, glad I was able to help. ;=)
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now