why in VB.Net I’m getting this error

[piscis]

Could anyone let me know why in VB.Net I’m getting this error on the third line of code below?


ERROR:

Option Strict On disallows implicit conversions from 'System.Object' to 'VBNET.HowTo.Address'.

CODE:
ReadOnly Property CurrentAddress() As Address
Get
Return AddressBook.Items(CurrentAddressIndex - 1)
End Get
End Property

I declare like this:
Public AddressBook As AddressBook
Private _currentAddressIndex As Integer

Thanks

 

[Craig0201]

Because your declaration includes an underscore and your code doesn't. Hence Option Strict is finding an undeclared variable and refusing the compile.

Craig

 

[piscis]

Craig0201:

That did not resolve the problem; the error comes from this line;

Return AddressBook.Items(CurrentAddressIndex - 1)

Any idea?

 

[Craig0201]

Private _currentAddressIndex As Integer doesn't match

Return AddressBook.Items(CurrentAddressIndex - 1)

unless there is more to your code.

Craig

 

[piscis]

Craig:

Here is the code:Let me know what you think?

Public Class frmMain
Inherits System.Windows.Forms.Form

' members...from addressbook
Public AddressBook As AddressBook
Private _currentAddressIndex As Integer


' CurrentAddressIndex - property for the current address...
Property CurrentAddressIndex() As Integer
Get
Return _CurrentAddressIndex
End Get
Set(ByVal Value As Integer)

' set the address...
_currentAddressIndex = Value

' update the display...
PopulateFormFromAddress(CurrentAddress)

' set the label...
lblAddressNumber.Text = "Record Number is: " & CurrentAddressIndex & " of " & AddressBook.Items.Count

End Set
End Property


' CurrentAddress - property for the current address...
ReadOnly Property CurrentAddress() As Address

Get
Return AddressBook.Items(CurrentAddressIndex -

End Get
End Property

 

[Craig0201]

OK.....

So how about the AddressBook collection. What is the return type on the Item property? Might not be set correctly.

Craig

 

[JohnYingling]

Try Strict requires strict typing,
You are returning an object for Address...and that line seems worng with a trailing hyphen/
but Try
Return DirectCast(AddressBook.Items(CurrentAddressIndex), Address)
OR
Return CTyoe(AddressBook.Items(CurrentAddressIndex), Address)

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript