another late binding error

[Dean Slindee]

Can someone explain how to remedy the two late binding errors below when
Option Strict On:

Public Function ControlDataRowArrayListPaint(ByRef frm As Form, _

ByRef ctl As Control, _

ByRef dr As DataRow, _

ByRef arrControl As
ArrayList) As Integer

Dim tag As String

Dim int As Integer = 0

For int = 0 To arrControl.Count - 1

tag = arrControl(int).tag 'LATE BINDING ERROR

arrControl(int).Checked = True 'LATE BINDING ERROR

Next

End Function

Each form that calls this function has the following define:

Friend ctlArray As ArrayList = New ArrayList(0)

Thanks,

Dean Slindee

[Ken Tucker [MVP]]

Hi,

Use DirectCast

tag = DirectCast(arrControl(int),Checkbox).tag

DirectCast(arrControl(int),CheckBox).Checked = True

Ken
--------------------

"Dean Slindee" <sl*****@charter.net> wrote in message
news:94******************@fe06.lga...
Can someone explain how to remedy the two late binding errors below when
Option Strict On:

Public Function ControlDataRowArrayListPaint(ByRef frm As Form, _

ByRef ctl As Control, _

ByRef dr As DataRow, _

ByRef arrControl As
ArrayList) As Integer

Dim tag As String

Dim int As Integer = 0

For int = 0 To arrControl.Count - 1

tag = arrControl(int).tag 'LATE BINDING ERROR

arrControl(int).Checked = True 'LATE BINDING ERROR

Next

End Function

Each form that calls this function has the following define:

Friend ctlArray As ArrayList = New ArrayList(0)

Thanks,

Dean Slindee

[Dean Slindee]

Thanks Ken for putting me on the right track

The second line works as stated. The first line should read:
tag = DirectCast(arrControl(int), Control).Tag.ToString

for anyone else reading.

Dean Slindee

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:ei**************@TK2MSFTNGP10.phx.gbl...

Hi,

Use DirectCast

tag = DirectCast(arrControl(int),Checkbox).tag

DirectCast(arrControl(int),CheckBox).Checked = True

Ken
--------------------

"Dean Slindee" <sl*****@charter.net> wrote in message
news:94******************@fe06.lga...
Can someone explain how to remedy the two late binding errors below when
Option Strict On:

Public Function ControlDataRowArrayListPaint(ByRef frm As Form, _

ByRef ctl As Control, _

ByRef dr As DataRow, _

ByRef arrControl As
ArrayList) As Integer

Dim tag As String

Dim int As Integer = 0

For int = 0 To arrControl.Count - 1

tag = arrControl(int).tag 'LATE BINDING ERROR

arrControl(int).Checked = True 'LATE BINDING ERROR

Next

End Function

Each form that calls this function has the following define:

Friend ctlArray As ArrayList = New ArrayList(0)

Thanks,

Dean Slindee