﻿'Visual Basic 2012 Abstracte Members Abstracte Basis Klassen Class Exercise1Task Public Shared Sub Main() 'Dim object1 As Class_1 = New Class_5 'object1.Command1() 'object1.Command2() 'object1.Command3() 'object1.Command4() 'object1.Command5() 'object1.Command6() 'object1.Command7() '' 'Dim object2 As Class_2 = New Class_2 'object2.Command1() 'object2.Command2() 'object2.Command3() 'object2.Command4() 'object2.Command5() 'object2.Command6() 'object2.Command7() '' 'Dim object3 As Class_3 = New Class_5 'object3.Command1() 'object3.Command2() 'object3.Command3() 'object3.Command4() 'object3.Command5() 'object3.Command6() 'object3.Command7() '' 'Dim object4 As Class_5 = New Class_5 'object4.Command1() 'object4.Command2() 'object4.Command3() 'object4.Command4() 'object4.Command5() 'object4.Command6() 'object4.Command7() '' 'Dim object5 As Class_6 = New Class_6 'object5.Command1(object1) 'object5.Command1(object2) 'object5.Command1(object3) 'object5.Command1(object4) 'object5.Command2(object1) 'object5.Command2(object2) 'object5.Command2(object3) 'object5.Command2(object4) 'object5.Query3().Command1() 'object5.Query3().Command2() 'object5.Query3().Command3() 'object5.Query3().Command4() 'object5.Query3().Command5() 'object5.Query3().Command6() 'object5.Query3().Command7() End Sub End Class 'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden. 'Copyright - De Wolf / vbvoorbeelden - 2003-2012 - Alle rechten voorbehouden.