Class item not accessible because it's private... but it's not?

[Bmack500]

I have a sub, and a class. The sub is like this:
Sub dothis()
Dim aInfoListX As New infoWrapperClas s
aInfoListX.para ms = ReadConfig()
Dim sqlCMD As New SqlCommand
aInfoListX.sqlC md = sqlCMD

aInfoListX.sqlC onn = New
SqlClient.SqlCo nnection(aInfoL istX.params.sql server)
End Sub

Now, I have a class, with subclasses, as below. However, in the above
sub, it tells me that "aInfoLisX.para ms.sqlserver" is not accessible in
this context because it is private". I'm using VS 2005, vb.net. I don't
quite understand what's going on here..... Any help would be greatly
appreciated!

Public Class infoWrapperClas s
Dim Item As ArrayList
Public Sub New()
Dim _Adapters As System.Manageme nt.ManagementOb jectCollection =
Nothing
Dim _AdapterInfo As
System.Manageme nt.ManagementOb jectCollection = Nothing
Dim _NdisReceiveErr ors As
System.Manageme nt.ManagementOb jectCollection = Nothing
Dim _NdisTransmitEr rors As
System.Manageme nt.ManagementOb jectCollection = Nothing
Dim _NdisMacOptions As
System.Manageme nt.ManagementOb jectCollection = Nothing
Dim _NdisLinkSpeed As
System.Manageme nt.ManagementOb jectCollection = Nothing
Dim bkGnd As New System.Componen tModel.Backgrou ndWorker
Dim wmiObj1 As New System.Manageme nt.ManagementOb ject
Dim myConfigs As New Configs

Item = New ArrayList(13)
Item.Add(_Adapt ers)
Item.Add(_Adapt erInfo)
Item.Add(_NdisR eceiveErrors)
Item.Add(_NdisT ransmitErrors)
Item.Add(_NdisM acOptions)
Item.Add(_NdisL inkSpeed)
Item.Add(bkGnd)
Item.Add(myConf igs)
Item.Add(New ServerInfo)
Item.Add(wmiObj 1)
Item.Add(New SqlClient.SqlCo mmand)
Item.Add(New nicStruct)
Item.Add(New SqlClient.SqlCo nnection)
End Sub
Public Property Adapters() As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(0),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(0) = value
End Set
End Property
Public Property AdapterInfo() As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(1),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(1) = value
End Set
End Property
Public Property NdisReceiveErro rs() As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(2),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(2) = value
End Set
End Property
Public Property NdisTransmitErr ors() As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(3),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(3) = value
End Set
End Property
Public Property NdisMacOptions( ) As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(4),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(4) = value
End Set
End Property
Public Property NdisLinkSpeed() As
System.Manageme nt.ManagementOb jectCollection
Get
Return CType(Item(5),
Management.Mana gementObjectCol lection)
End Get
Set(ByVal value As
System.Manageme nt.ManagementOb jectCollection)
Item(5) = value
End Set
End Property
Public Property bkgndWrkr() As
System.Componen tModel.Backgrou ndWorker
Get
Return CType(Item(6),
System.Componen tModel.Backgrou ndWorker)
End Get
Set(ByVal value As System.Componen tModel.Backgrou ndWorker)
Item(6) = value
End Set
End Property
Public Property params() As configs
Get
Return CType(Item(7), configs)
End Get
Set(ByVal value As configs)
Item(7) = value
End Set
End Property
Public Property svrInfo() As ServerInfo
Get
Return CType(Item(8), ServerInfo)
End Get
Set(ByVal value As ServerInfo)
Item(8) = value
End Set
End Property
Public Property wmiObj() As System.Manageme nt.ManagementOb ject
Get
Return CType(Item(9), Management.Mana gementObject)
End Get
Set(ByVal value As System.Manageme nt.ManagementOb ject)
Item(9) = value
End Set
End Property
Public Property sqlCmd() As SqlClient.SqlCo mmand
Get
Return CType(Item(10), SqlClient.SqlCo mmand)
End Get
Set(ByVal value As SqlClient.SqlCo mmand)
Item(10) = value
End Set
End Property
Public Property nicInfo() As nicStruct
Get
Return CType(Item(11), nicStruct)
End Get
Set(ByVal value As nicStruct)
Item(11) = value
End Set
End Property
Public Property sqlConn() As SqlClient.SqlCo nnection
Get
Return CType(Item(12), SqlClient.SqlCo nnection)
End Get
Set(ByVal value As SqlClient.SqlCo nnection)
Item(12) = value
End Set
End Property
Public Class Configs
Dim logdirectory As String
Dim logfile As String
Dim errLog As String
Dim logfileops As Boolean
Dim logscreenops As Boolean
Dim userid As String
Dim password As String
Dim ldapServer As String
Dim prodSql As String
Dim testsql As String
Dim devsql As String
Dim tempFile As String
Dim log As String
Dim sqlServer As String
End Class
Public Class ServerInfo
Dim oDN As String
Dim oGUID As Guid
Dim oDOMAIN As String
Dim ostrGUID As String
Dim oNAME As String
Dim ipAddress As String
Dim oDNSHOSTNAME As String
Dim oDescription As String
Dim oOS As String
Dim oOSVersion As String
Dim oTZ As Int16
Dim oManagedBy As String
Dim oLastLogon As Date
Dim oSPMajor As Short
Dim oSPMinor As Short
Dim oCreateDate As Date
Dim oError As Boolean
Dim oElapsed As String
Dim isPartial As Boolean
Dim isUpdate As Boolean
Dim strHosts As String
Dim DNSREAD As Boolean
End Class
Public Class nicStruct
Dim CLASSGUID As String 'The Windows CLASSGUID identifier
Dim Subkey As String 'The subkey string to find the nic
values in
Dim Value As String 'The key who's value we need
Dim PNPid As String 'The PNPSHORT adapter identifier
Dim Service As String 'The driver
Dim Duplex As String 'The duplex setting found
Dim Speed As String 'The speed found (Unless set to auto)
Dim settings As String 'The result of the registry query on
the media (speed/duplex) requested
'Dim newreturn As String '?
Dim productName As String 'i.e. "HP NC7781 GIGABIT SERVER
ADAPTER"
Dim infPath As String 'What inf is the nic using?
Dim paramSubkey As String 'The subkey to fetch the
Speed/Duplex given from "settings"
Dim bError As Boolean
Dim strIndex As String
Dim netConnectionID As String 'As viewed in the Network
connections folder
End Class
End Class

[Claes Bergefall]

Dim is equivalent to Private. Change them to Public

/claes

"Bmack500" <br********@gma il.comwrote in message
news:11******** **************@ m79g2000cwm.goo glegroups.com.. .

>I have a sub, and a class. The sub is like this:
Sub dothis()
Dim aInfoListX As New infoWrapperClas s
aInfoListX.para ms = ReadConfig()
Dim sqlCMD As New SqlCommand
aInfoListX.sqlC md = sqlCMD

aInfoListX.sqlC onn = New
SqlClient.SqlCo nnection(aInfoL istX.params.sql server)
End Sub

Now, I have a class, with subclasses, as below. However, in the above
sub, it tells me that "aInfoLisX.para ms.sqlserver" is not accessible in
this context because it is private". I'm using VS 2005, vb.net. I don't
quite understand what's going on here..... Any help would be greatly
appreciated!

<deleted>

>
Public Class Configs
Dim logdirectory As String
Dim logfile As String
Dim errLog As String
Dim logfileops As Boolean
Dim logscreenops As Boolean
Dim userid As String
Dim password As String
Dim ldapServer As String
Dim prodSql As String
Dim testsql As String
Dim devsql As String
Dim tempFile As String
Dim log As String
Dim sqlServer As String
End Class
Public Class ServerInfo
Dim oDN As String
Dim oGUID As Guid
Dim oDOMAIN As String
Dim ostrGUID As String
Dim oNAME As String
Dim ipAddress As String
Dim oDNSHOSTNAME As String
Dim oDescription As String
Dim oOS As String
Dim oOSVersion As String
Dim oTZ As Int16
Dim oManagedBy As String
Dim oLastLogon As Date
Dim oSPMajor As Short
Dim oSPMinor As Short
Dim oCreateDate As Date
Dim oError As Boolean
Dim oElapsed As String
Dim isPartial As Boolean
Dim isUpdate As Boolean
Dim strHosts As String
Dim DNSREAD As Boolean
End Class
Public Class nicStruct
Dim CLASSGUID As String 'The Windows CLASSGUID identifier
Dim Subkey As String 'The subkey string to find the nic
values in
Dim Value As String 'The key who's value we need
Dim PNPid As String 'The PNPSHORT adapter identifier
Dim Service As String 'The driver
Dim Duplex As String 'The duplex setting found
Dim Speed As String 'The speed found (Unless set to auto)
Dim settings As String 'The result of the registry query on
the media (speed/duplex) requested
'Dim newreturn As String '?
Dim productName As String 'i.e. "HP NC7781 GIGABIT SERVER
ADAPTER"
Dim infPath As String 'What inf is the nic using?
Dim paramSubkey As String 'The subkey to fetch the
Speed/Duplex given from "settings"
Dim bError As Boolean
Dim strIndex As String
Dim netConnectionID As String 'As viewed in the Network
connections folder
End Class
End Class

[Phill W.]

Bmack500 wrote:

Sub dothis()
Dim aInfoListX As New infoWrapperClas s

.. . .

aInfoListX.sqlC onn = New
SqlClient.SqlCo nnection(aInfoL istX.params.sql server)
End Sub

it tells me that "aInfoLisX.para ms.sqlserver" is not accessible in
this context because it is private". I'm using VS 2005, vb.net.

Boiling down your code to the relevant bits ...

Public Class infoWrapperClas s

.. . .

Public Property params() As configs
Get
Return CType(Item(7), configs)
End Get

.. . .

Public Class Configs

.. . .

Dim sqlServer As String

I suspect that "Dim" (within a Class) is equivalent to "Private" and not
to "Public", as you are assuming.

Except within a method, where you have no choice, abandon Dim to the
Past and use the "modern" Access Specifiers.

HTH,
Phill W.

[Bmack500]

Ahhh, sometimes being new at something with no formal training
sucks.... gotta go read some more!!!

Thank you very much.

Phill W. wrote:

Bmack500 wrote:

Sub dothis()
Dim aInfoListX As New infoWrapperClas s

. . .

aInfoListX.sqlC onn = New
SqlClient.SqlCo nnection(aInfoL istX.params.sql server)
End Sub

it tells me that "aInfoLisX.para ms.sqlserver" is not accessible in
this context because it is private". I'm using VS 2005, vb.net.

Boiling down your code to the relevant bits ...

Public Class infoWrapperClas s

. . .

Public Property params() As configs
Get
Return CType(Item(7), configs)
End Get

. . .

Public Class Configs

. . .

Dim sqlServer As String

I suspect that "Dim" (within a Class) is equivalent to "Private" and not
to "Public", as you are assuming.

Except within a method, where you have no choice, abandon Dim to the
Past and use the "modern" Access Specifiers.

HTH,
Phill W.