• 0

VB.NET - How do I use pointers to pointers (if even possible)


Question

Hi

I want to use the New function for an object with array of objects as parameters something like this - 

Sub New(varPar () as Object)

End Sub

In my Class I have several objects that can be initialized.

I'm trying to make a the code general so the calling code will put in the varPar array the objects it wants to init and I will use something like this - 

Dim obj1 as <type1>

Dim obj2 as <type2>

.

.

.

dim objN as <typeN>

 

Sub New(varPar () as Object)

 if  varPar is nothing then

      return

end if       

if varPar.Length > 0 then

      obj1 = varPar(0)

if varPar.Length > 1 then

      obj1 = varPar(1)

 etc...      

End Sub

 

I want to do that in a loop like this

Dim obj1 as <type1>

Dim obj2 as <type2>

.

.

.

dim objN as <typeN>

dim varArray() as object = { obj1,obj2,obj3.......objN}

 

Sub New(varPar () as Object)

 if  varPar is nothing then

      return

end if       

for i = 0 to varPar.Lentgh -1 

      varArray(i) = varPar(i)

next

End Sub

 

This will init the varArray but not obj1 obj2 obj3 etc.

Does anyone know how I can achieve this?

It is trivial in C, but in VB I don't know if it is possible or not.

Thanks

3 answers to this question

Recommended Posts

  • 0
  On 05/07/2018 at 11:29, Ophir said:

Hi

I want to use the New function for an object with array of objects as parameters something like this - 

 

<snipped>

 

This will init the varArray but not obj1 obj2 obj3 etc.

Does anyone know how I can achieve this?

It is trivial in C, but in VB I don't know if it is possible or not.

Thanks

Expand  

I'm not sure I fully understand the question. So here are some questions of my own :)

 

The array injected in the constructor always has the same amount of elements as the internal array?

Are you trying to make each element of the internal array point to the corresponding element of the array injected in the constructor?

 

Could you maybe tell us which problem this construction is trying to solve? There might be a more efficient way of doing that in VB.NET.

  • 0
  On 05/07/2018 at 12:10, Raphaël G. said:

I'm not sure I fully understand the question. So here are some questions of my own :)

 

The array injected in the constructor always has the same amount of elements as the internal array?

Are you trying to make each element of the internal array point to the corresponding element of the array injected in the constructor?

 

Could you maybe tell us which problem this construction is trying to solve? There might be a more efficient way of doing that in VB.NET.

Expand  

The Array injected does not have to have the same amount of elements as the internal one.

I want to initialize the class variables obj1 obj2 obj3 etc in a loop instead of one by one while checking the Injected Array length.

 

In C I will put the Address of obj1 obj2 obj3 etc in the Internal Array and do something like this

 

void *varArray[] = { &obj1, &obj2, &obj3......&objN}

 

for(i = 0; i < <Injected Array>.length; i++)

{

        *varArray=varPar;    //By that I actually Initializing obj1, obj2, obj3 etc

}

 

I hope it is clearer now.

 

Do not know why when I submit the square parenthesis are removed.

Edited by Ophir
  • 0
  On 05/07/2018 at 14:35, Ophir said:

The Array injected does not have to have the same amount of elements as the internal one.

I want to initialize the class variables obj1 obj2 obj3 etc in a loop instead of one by one while checking the Injected Array length.

 

In C I will put the Address of obj1 obj2 obj3 etc in the Internal Array and do something like this

 

void *varArray[] = { &obj1, &obj2, &obj3......&objN}

 

for(i = 0; i < <Injected Array>.length; i++)

{

        *varArray=varPar;    //By that I actually Initializing obj1, obj2, obj3 etc

}

 

I hope it is clearer now.

 

Do not know why when I submit the square parenthesis are removed.

Expand  

If I'd convert what you posted here into vb.net, :

 

 

Dim list() As String = {"something", "something2"}


            For Each item In list

                'Then simply call the item

            Next

 

If you want to track each item, I usually make my own classes, for example let's say a standard name/value keypair:

 

Public class NameValueKeyPair

        public name as string

        public value as string

end class

 

Then, in a sub/function:

 

dim NameValueKeyPairList as new list(of NameValueKeyPair)

Dim NameValueKeyPair as new NameValueKeyPair

NameValueKeyPair.name = "name"

NameValueKeyPair.value = "value"

Namevaluekeypairlist.add(namevaluekeypair)

 

Do that in a loop, and then you can loop through the list to find what you need, for example:

 

For each item in NameValueKeyPairList

      If item.name = "name" then

             'Found it!

      End if

Next

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Get Microsoft Office 2021 Professional for Windows, now only $44.97 by Steven Parker Get all these essential Microsoft apps for your Windows PC Today's highlighted deal comes via our Apps + Software section of the Neowin Deals store, where you can score a lifetime license to Microsoft Office 2021 for Windows for only $44.97 (buying link below). This bundle is for families and small businesses who want classic Office apps and email. It includes Word, Excel, PowerPoint, Outlook, Teams, and OneNote. A one-time purchase installed on 1 Windows PC for use at home or work. Lifetime license for MS Word, Excel, PowerPoint, Outlook, Teams, & OneNote One-time purchase installed on 1 Windows PC for use at home or work Instant Delivery & Download – access your software license keys and download links instantly Free customer service – only the best support! Microsoft Office Professional 2021 (for Windows) includes: Microsoft Office Word Microsoft Office Excel Microsoft Office PowerPoint Microsoft Office Outlook Microsoft Office Teams Microsoft Office OneNote Microsoft Office Publisher Microsoft Office Access No faffing about with subscriptions, just classic apps that don't expire.Good to Know ONE-TIME PURCHASE INSTALLED ON 1 DEVICE Redemption deadline: redeem your code within 30 days of purchase Access options: desktop Full versions No subscriptions – no monthly/annual fees Version: 2021 Updates included A lifetime subscription to Microsoft Office 2021 Professional normally costs $219.99, but this deal can be yours for just $49.97, that's a saving of $180. For full terms, specifications, and license info, click the link below. Use MSO5 coupon for an additional $5 off. Expires June 29. Get Microsoft Office Professional 2021 deal for just $44.97, or learn more Although priced in U.S. dollars, this deal is available for digital purchase worldwide. We post these because we earn commission on each sale so as not to rely solely on advertising, which many of our readers block. It all helps toward paying staff reporters, servers and hosting costs. Other ways to support Neowin Whitelist Neowin by not blocking our ads Create a free member account to see fewer ads Make a donation to support our day to day running costs Subscribe to Neowin - for $14 a year, or $28 a year for an ad-free experience Disclosure: Neowin benefits from revenue of each sale made through our branded deals site powered by StackCommerce.
    • This is a common misnomer that Intel refuses to correct, E-Cores the E doesn't stand for efficiency in power (although they are more efficient than performance cores) but are actually "space efficient" which means they occupy much less space for same computational power thus allowing more of them in a footprint.
    • If you have top secret documents from the government or your company, you will not use a user cloud service. Pete Hegseth would like a word. I doubt that security fiasco stops at Signal. Stop being so stupid that you think that your useless information on your PC is as important as you think it is. This is just another crude way of saying it shouldn't matter if have nothing to hide. Not everyone wants to become a product, but you do you. If you cared about the content, you would not use these documents and photos on Android and iPhone phones because the telemetry there is 100,000% worse than on Windows 11. I love the telemetry comment. You cannot prove one way or another if it's better or worse on Windows vs. iOS or Android.
  • Recent Achievements

    • Reacting Well
      Cole Multipass earned a badge
      Reacting Well
    • Reacting Well
      JLP earned a badge
      Reacting Well
    • Week One Done
      Rhydderch earned a badge
      Week One Done
    • Experienced
      dismuter went up a rank
      Experienced
    • One Month Later
      mevinyavin earned a badge
      One Month Later
  • Popular Contributors

    1. 1
      +primortal
      693
    2. 2
      ATLien_0
      273
    3. 3
      Michael Scrip
      218
    4. 4
      +FloatingFatMan
      188
    5. 5
      Steven P.
      146
  • Tell a friend

    Love Neowin? Tell a friend!