Dear Stoyan, You still can not get results with what I sent. Questions: 1.-How can I tell if an eclipse or a rectangle. if the For Each runs as I can know what kind of object is, because when it does what it does is to remove all control and take all the checks. I like the following code:
For Each node In diagram.Nodes
Dim xxx As Integer = node.Bounds.X
Dim yyy As Integer = node.Bounds.Y
Dim nom As String = node.Tag
Dim www As Integer = node.Bounds.Width
Dim hhh As Integer = node.Bounds.Height
' Dim fff = node.Bounds.Top
If TypeOf node Is ShapeNode Then
'Me.Response.Write("nom, xxx, yyy, www, hhh, fff")
Dim Resul1 As Integer
Resul1 = SqlHelper.ExecuteNonQuery(strConnection, _
"INS_MAPANODO_LOCALIZACION", _
New SqlParameter("@cod_mapa", CType(Request("cod_mapa"), Integer)), _
New SqlParameter("@Tag", CType(nom, String)), _
New SqlParameter("@BoundsX", CType(xxx, String)), _
New SqlParameter("@BoundsY", CType(yyy, String)), _
New SqlParameter("@Width", CType(www, String)), _
New SqlParameter("@Width", CType(www, String)))
End If
|