blob: d0e416871af08b740b9a5ae5d591b17657cd2c01 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
' Sample-Programm fuer Sample-Objekte
Sub Main
Dim Sample As SampleObject
Dim Element1 As Object, Element2 As Object
Set Element1 = Sample!Create "Objekt"
Set Element2 = Sample.Create "Objekt"
Element1 = "Element 1"
Element2 = "Element 2"
For i = 0 to 1
Print Sample.Objekt( i )
Next
'Test der Event-Methode im Sample-Objekt
Sample.Event "Bang"
End Sub
Sub Bang
print "Sample-Callback: BANG!"
End Sub
|
