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
--------------------

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