- In the extension bar, click the AdBlock Plus icon
- Click the large blue toggle for this website
- Click refresh
- In the extension bar, click the AdBlock icon
- Under "Pause on this site" click "Always"
- In the extension bar, click on the Adguard icon
- Click on the large green toggle for this website
- In the extension bar, click on the Ad Remover icon
- Click "Disable on This Website"
- In the extension bar, click on the orange lion icon
- Click the toggle on the top right, shifting from "Up" to "Down"
- In the extension bar, click on the Ghostery icon
- Click the "Anti-Tracking" shield so it says "Off"
- Click the "Ad-Blocking" stop sign so it says "Off"
- Refresh the page
- In the extension bar, click on the uBlock Origin icon
- Click on the big, blue power button
- Refresh the page
- In the extension bar, click on the uBlock icon
- Click on the big, blue power button
- Refresh the page
- In the extension bar, click on the UltraBlock icon
- Check the "Disable UltraBlock" checkbox
- Please disable your Ad Blocker
- Disable any DNS blocking tools such as AdGuardDNS or NextDNS
- Disable any privacy or tracking protection extensions such as Firefox Enhanced Tracking Protection or DuckDuckGo Privacy.
If the prompt is still appearing, please disable any tools or services you are using that block internet ads (e.g. DNS Servers, tracking protection or privacy extensions).
Question
Ophir
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
Link to comment
https://www.neowin.net/forum/topic/1367330-vbnet-how-do-i-use-pointers-to-pointers-if-even-possible/Share on other sites
3 answers to this question
Recommended Posts