Dim oval As NetronLight.OvalShape
oval = graphControl1.AddShape(1,new Point(100,300))
oval.Text = "Oval"
oval.Height = 33
oval.ShapeColor = Color.AliceBlue

Dim label As NetronLight.TextLabel
label = graphControl1.AddShape(2, new Point(100,33))
label.Text = "This is the class hierarchy of Netron-Light."
label.Width = 350
label.Height =33
Dim con_n As New NetronLight.Connection()
con_n = graphControl1.AddConnection(ent.Connectors(0), oval.Connectors(3))
con_n.from.name = "shang"
con_n.To.name = "xia"

graphControl1.AddConnection(oval.Connectors(0), ent1.Connectors(3))

Dim p0 As new point
p0.x = 100
p0.y = 100

Dim cp0 As new NetronLight.Connector(p0)

Dim p1 As new point
p1.x = 400
p1.y = 100

Dim cp1 As new NetronLight.Connector(p1)

Dim cpp As new NetronLight.Connector(p1)
cpp.AttachConnector(cp1)

Dim p2 As new point
p2.x = 600
p2.y = 200

Dim cp2 As new NetronLight.Connector(p2)

graphControl1.AddConnection(p0, p1)
graphControl1.AddConnection(p1, p2)

AddHandler graphControl1.click, AddressOf Button1_Click

窗口3_BeforeClose

Dim propertyGrid1 As new System.Windows.Forms.PropertyGrid()
propertyGrid1 = e.form.Controls("SplitContainer1").panel2.baseControl.Controls("propertyGrid1")
propertyGrid1.dispose()

窗口3_SplitContainer1_MouseDown

Dim graphcontrol1 As new NetronLight.GraphControl()
graphControl1 = e.form.Controls("SplitContainer1").panel1.baseControl.Controls("graphControl1")

Dim propertyGrid1 As new System.Windows.Forms.PropertyGrid()
propertyGrid1 = e.form.Controls("SplitContainer1").panel2.baseControl.Controls("propertyGrid1")

Dim ent As object
Dim ent1 As object
ent1 = e.sender
messagebox.show(e.x)
ent = ent1
\'For Each ent1 In graphControl1.shapes
\'If ent1.Isselected Then
\'ent = ent1
\'End If
\'Next

propertyGrid1.SelectedObject = ent
\'propertyGrid1.SelectedObject = new someProperties()

\'propertyGrid1.SelectedObject = graphControl1.selectedEntity
\'Dim entity1 As NetronLight.Entity
\'propertyGrid1.SelectedObject = entity1.selectedEntity

自定义函数

全局代码

Default

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim graphControl1 As new NetronLight.GraphControl()
graphControl1 = Forms("窗口3").Controls("SplitContainer1").panel1.baseControl.Controls("graphControl1")

Dim propertyGrid1 As new System.Windows.Forms.PropertyGrid()
propertyGrid1 = Forms("窗口3").Controls("SplitContainer1").panel2.baseControl.Controls("propertyGrid1")
Dim ent As object
Dim ent1 As object
For Each ent1 In graphControl1.shapes
    If ent1.Isselected Then
        ent = ent1
        propertyGrid1.SelectedObject = ent
        ent = Nothing
        ent1 = Nothing
    End If
Next
For Each ent1 In graphControl1.Connections
    If ent1.Isselected Then
        ent = ent1
        propertyGrid1.SelectedObject = ent
        ent = Nothing
        ent1 = Nothing
    End If
Next

ent = Nothing
ent1 = Nothing

End Sub

菜单事件