VB.Net/Development/Late Binding

Материал из VB Эксперт
Версия от 15:45, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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>