VB.Net/Development/Late Binding

Материал из VB Эксперт
Перейти к: навигация, поиск

Late Binding Example

<source lang="vbnet"> Imports System.Reflection Module Module1

   Class Book
       Public Sub ShowValues()
           Console.WriteLine("Book")
       End Sub
   End Class
   Class Software
       Public Sub ShowValues()
           Console.WriteLine("Software")
       End Sub
   End Class
   Sub LateBinding(ByVal Obj As Object)
       Obj.ShowValues()
   End Sub
   Sub Main()
       Dim ComputerBook As New Book()
       Dim GameProgram As New Software()
       LateBinding(GameProgram)
       Console.WriteLine()
       LateBinding(ComputerBook)
   End Sub

End Module

      </source>