022 Visual Basic 桥接模式之手机

1.手机软件抽象类及具体类

Public MustInherit Class HandsetSoft
    Public MustOverride Sub Run()
End Class

Public Class HandsetGame
    Inherits HandsetSoft

    Public Overrides Sub Run()
        Console.WriteLine("运行手机游戏")
    End Sub
End Class

Public Class HandsetAddressList
    Inherits HandsetSoft

    Public Overrides Sub Run()
        Console.WriteLine("运行手机通讯录")
    End Sub
End Class

2.手机品牌抽象类及具体类

Public MustInherit Class HandsetBrand
    Protected mySoft As HandsetSoft

    Public Sub SetHandsetSoft(ByVal soft As HandsetSoft)
        Me.mySoft = soft
    End Sub

    Public MustOverride Sub Run()

End Class

Public Class HandsetBrandM
    Inherits HandsetBrand

    Public Overrides Sub Run()
        mySoft.Run()
    End Sub
End Class

Public Class HandsetBrandN
    Inherits HandsetBrand

    Public Overrides Sub Run()
        mySoft.Run()
    End Sub
End Class

3.客户端

Module Module1

    Sub Main()
        Dim ab As HandsetBrand
        ab = New HandsetBrandN
        Console.WriteLine("手机品牌N")
        ab.SetHandsetSoft(New HandsetGame)
        ab.Run()
        ab.SetHandsetSoft(New HandsetAddressList)
        ab.Run()
        Console.WriteLine()

        ab = New HandsetBrandM
        Console.WriteLine("手机品牌M")
        ab.SetHandsetSoft(New HandsetGame)
        ab.Run()
        ab.SetHandsetSoft(New HandsetAddressList)
        ab.Run()
        Console.WriteLine()

        Console.Read()
    End Sub

End Module