Specifications

COM+ reference
Gallagher & Robertson Glink: API reference manual 11
Private Sub DumpField(fld As Glink.GlinkField)
Dim t As String
If TypeOf fld Is Glink.GlinkField Then
t = fld.getString
If fld.isProtected Then
List1.AddItem ("Protected Field : " + t)
Else
List1.AddItem ("Variable Field: " + t)
End If
List1.AddItem ("X: " + Str(fld.getStart.X))
List1.AddItem ("Y: " + Str(fld.getStart.Y))
List1.AddItem ("L: " + Str(fld.getLength))
List1.AddItem ("A: " + Hex(fld.getAttribute))
End If
End Sub
Private Sub Command6_Click()
Dim I, n As Integer
Dim t As String
Dim flds As GlinkFields
Dim fld As GlinkField
Dim f As GlinkField
Set flds = glapi.getFields
If TypeOf flds Is Glink.GlinkFields Then
I = 0
n = flds.getCount
List1.AddItem ("Number of Field = " + Str(n))
While I < n
Set fld = flds.Item(I + 1)
If TypeOf fld Is Glink.GlinkField Then
List1.AddItem ("Field text = " +
fld.getString)
DumpField fld
End If
I = I + 1
Wend
End If
End Sub
If the WithEvents keyword was used when declaring your object variable, then
your GlinkApi object name will be displayed in the Object list. In the above
example it would be called "glapi". Select it and the Procedure will be filled with
the available Glink.GlinkApi event, OnGlinkEvent. Selecting this Event will
generate the function which will be called when Glink signals an event, the
parameters indicate which event occured.