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