File: sample.bas

package info (click to toggle)
libreoffice 1%3A3.5.4%2Bdfsg2-0%2Bdeb7u3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 2,691,616 kB
  • sloc: cpp: 4,678,856; java: 395,153; xml: 170,215; ansic: 99,333; perl: 60,572; python: 27,776; sh: 17,789; makefile: 8,738; yacc: 8,219; cs: 6,648; asm: 3,257; objc: 2,349; lex: 2,103; pascal: 890; awk: 758; csh: 247; lisp: 115; php: 104; sed: 9
file content (39 lines) | stat: -rw-r--r-- 436 bytes parent folder | download | duplicates (6) 
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