1*b1cdbd2cSJim Jagielskirem ************************************************************* 2*b1cdbd2cSJim Jagielskirem 3*b1cdbd2cSJim Jagielskirem Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielskirem or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielskirem distributed with this work for additional information 6*b1cdbd2cSJim Jagielskirem regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielskirem to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielskirem "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielskirem with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielskirem 11*b1cdbd2cSJim Jagielskirem http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielskirem 13*b1cdbd2cSJim Jagielskirem Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielskirem software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielskirem "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielskirem KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielskirem specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielskirem under the License. 19*b1cdbd2cSJim Jagielskirem 20*b1cdbd2cSJim Jagielskirem ************************************************************* 21*b1cdbd2cSJim Jagielski' Sample-Programm fuer Sample-Objekte 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim JagielskiSub Main 24*b1cdbd2cSJim Jagielski Dim Sample As SampleObject 25*b1cdbd2cSJim Jagielski Dim Element1 As Object, Element2 As Object 26*b1cdbd2cSJim Jagielski Set Element1 = Sample!Create "Objekt" 27*b1cdbd2cSJim Jagielski Set Element2 = Sample.Create "Objekt" 28*b1cdbd2cSJim Jagielski Element1 = "Element 1" 29*b1cdbd2cSJim Jagielski Element2 = "Element 2" 30*b1cdbd2cSJim Jagielski For i = 0 to 1 31*b1cdbd2cSJim Jagielski Print Sample.Objekt( i ) 32*b1cdbd2cSJim Jagielski Next 33*b1cdbd2cSJim Jagielski 'Test der Event-Methode im Sample-Objekt 34*b1cdbd2cSJim Jagielski Sample.Event "Bang" 35*b1cdbd2cSJim JagielskiEnd Sub 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim JagielskiSub Bang 38*b1cdbd2cSJim Jagielski print "Sample-Callback: BANG!" 39*b1cdbd2cSJim JagielskiEnd Sub 40*b1cdbd2cSJim Jagielski 41*b1cdbd2cSJim Jagielski 42*b1cdbd2cSJim Jagielski 43*b1cdbd2cSJim Jagielski 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim Jagielski 46*b1cdbd2cSJim Jagielski 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim Jagielski 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski 54*b1cdbd2cSJim Jagielski 55*b1cdbd2cSJim Jagielski 56*b1cdbd2cSJim Jagielski 57*b1cdbd2cSJim Jagielski 58*b1cdbd2cSJim Jagielski 59*b1cdbd2cSJim Jagielski 60