Visual Graph Getting Started - Get the Selected Elements

We usually need to get the selected elements in a graph, here is an example in VB6:

1. Create a new project in VB6, right-click on Toolbox and select Components, and then check Visual Graph ActiveX Control and click <OK>.

2. Click vgctrl in Toolbox, and then draw an instance on Form1, this control will be used to draw.

3. Write the following code in Form_Load event:

Dim d As Object
vgctrl1.Design ""
Set d = vgctrl1.vg.ActiveSheet.AddUnit(Nothing, "circle")
d.SetBounds 10, 10, 40, 40
Set d = vgctrl1.vg.ActiveSheet.AddUnit(Nothing, "circle")
d.SetBounds 60, 10, 40, 40
Set d = vgctrl1.vg.ActiveSheet.AddUnit(Nothing, "circle")
d.SetBounds 110, 10, 40, 40

4. Write the following code in vgctrl1_OnSelectChange event:

Dim g As vgCtl.IGroup
Dim s As String
Set g = vgctrl1.vg.Selection
s = "You have selected " & g.UnitCount & " elements."
If g.UnitCount > 0 Then
s = s & " The first selected element is: " & g.Units(0).Name & "."
End If
Me.Caption = s

5. Run this project, select two circles in Visual Graph Control. The running interface might look like this:

Get Selected Elements