Arraylist to array

[Russ Green]

I am currently working on a small VB.NET utility that accesses the Microstation VBA object model via COM.

I have this code which I am trying to get to work...

The key bits of information are

Dim oEl As MicroStationDGN .Element
Dim oTagEl() As MicroStationDGN .TagElement
Dim oArrayList As New ArrayList

oEl in this case will be a cell that contains tags (don't worry what they are...) and I'm using oArrayList.AddR ange(oEl.GetTag s) to create an ArrayList from the tags that are in oEl (the cell). That works great and Debug.WriteLine (oItem.TagDefin itionName.ToStr ing & " - " & oItem.Value) proves it works.

The problem comes when I try to add the contents of my newly created arraylist to the array of tag elements oTagEl() using oTagEl = CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement()). I get the follwing error:-

An unhandled exception of type 'System.Invalid CastException' occurred in mscorlib.dll
Additional information: At least one element in the source array could not be cast down to the destination array type.

Can anyone see what's going wrong?

TIA

Russ

Imports System
Imports MicroStationDGN

Module modChangeTags
Dim frm As frmEditValues

Public Sub TagValueChange( ByRef oTagEl() As TagElement, ByRef count As Integer)

If oTagEl(count).T agDefinitionNam e = "PROJ_TITLE " Then
If bModifyTags = True Then
oTagEl(count).V alue = frm.txtProjTitl e.Text
oTagEl(count).R ewrite()
Else
frm.txtProjTitl e.Text = CStr(oTagEl(cou nt).Value)
End If
End If

End Sub

Public Sub ModelScan(ByRef sCellName As String)
Dim oScanCriteria As New ElementScanCrit eria
Dim oElEnum As ElementEnumerat or
Dim oEl As Element

bCellFound = False

' Scan only for type 2 Cells
oScanCriteria.E xcludeAllTypes( )
oScanCriteria.I ncludeType(MsdE lementType.msdE lementTypeCellH eader)

oElEnum = oMSTN.ActiveMod elReference.Sca n(oScanCriteria )

While oElEnum.MoveNex t = True
oEl = DirectCast(oElE num.Current, Element)

' Process only the "titleblock " cell
If oEl.AsCellEleme nt.Name = sCellName Then
bCellFound = True

' Process the tags
If oEl.HasAnyTags = True Then
' oTagEl = VB6.CopyArray(o El.GetTags)

' dimension and populate an arraylist
Dim oArrayList As New ArrayList
oArrayList.AddR ange(oEl.GetTag s)

' just check the arraylist has something in it
Dim oItem As TagElement
For Each oItem In oArrayList
Debug.WriteLine (oItem.TagDefin itionName.ToStr ing & " - " & oItem.Value
Next

' add the arraylist contents to oTagEl()
oTagEl = CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement())

' Locate each tag by it's definition
Dim oCount As Integer
For oCount = 0 To UBound(oTagEl)
TagValueChange( oTagEl, oCount)
Next
End If
End If
End While

If bModifyTags = True Then
If bCellFound = True Then
oMSTN.RedrawAll Views()
End If
End If

End Sub

End Module

[Armin Zingler]

"Russ Green" <rg*******@SP AM-stubbsrich.com> schrieb

The problem comes when I try to add the contents of my newly created
arraylist to the array of tag elements oTagEl() using oTagEl =
CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement()). I get
the follwing error:-

An unhandled exception of type 'System.Invalid CastException' occurred
in mscorlib.dll Additional information: At least one element in the
source array could not be cast down to the destination array type.

I dind't have a very close look but I'd do the following:

instead of
oTagEl = CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement())
try
dim a as array
a = oArrayList.ToAr ray(GetType(Tag Element))

Is the line executed without an error?

If yes: After the line above has been executed, examine 'a' in the
watch/locals window. What is the type of the elements?

If no: Restart and stop at "a =...". Exmamine oArrayList(0) and other items.
Do they have the correct type (TagElement)?
--
Armin

[Russ Green]

Thanks.

I'll try this and maybe get back to you.

Russ
"Armin Zingler" <az*******@free net.de> wrote in message
news:40******** *************** @news.freenet.d e...

"Russ Green" <rg*******@SP AM-stubbsrich.com> schrieb

The problem comes when I try to add the contents of my newly created
arraylist to the array of tag elements oTagEl() using oTagEl =
CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement()). I get
the follwing error:-

An unhandled exception of type 'System.Invalid CastException' occurred
in mscorlib.dll Additional information: At least one element in the
source array could not be cast down to the destination array type.

I dind't have a very close look but I'd do the following:

instead of
oTagEl = CType(oArrayLis t.ToArray(GetTy pe(TagElement)) , TagElement())
try
dim a as array
a = oArrayList.ToAr ray(GetType(Tag Element))

Is the line executed without an error?

If yes: After the line above has been executed, examine 'a' in the
watch/locals window. What is the type of the elements?

If no: Restart and stop at "a =...". Exmamine oArrayList(0) and other

items. Do they have the correct type (TagElement)?
--
Armin