' Visual Basic 2008 9.0 .NET Examples - Partial Methods - New in Visual Basic 2008 - 9.0 : 
Class SomeClass
    Partial Private Sub somePartialMethod1()
    End Sub
    Partial Private Sub somePartialMethod2()
    End Sub
    '
    Private Sub somePartialMethod1()                                       ' (1)
        Console.WriteLine("somePartialMethod1")
    End Sub
    '
    Public Sub TestSomePartialMethod1()
        somePartialMethod1()
    End Sub
    Public Sub TestSomePartialMethod2()
        somePartialMethod2()
    End Sub
End Class
Partial Class SomeClass
    Private Sub somePartialMethod2()                                       ' (2)
        Console.WriteLine("somePartialMethod2")
    End Sub
End Class
Class Example1
    Public Shared Sub Main()
        Dim someObject As New SomeClass
        someObject.TestSomePartialMethod1()
        someObject.TestSomePartialMethod2()
        '
        Console.ReadLine()
    End Sub
End Class
#Region "Some Generated Code"
Partial Class Stock
    Private m_Price As Decimal
    Public Property Price() As Decimal
        Get
            Return m_Price
        End Get
        Set(ByVal value As Decimal)
            onPriceChanging(value)
            m_Price = value
            onPriceChanged()
        End Set
    End Property
    Partial Private Sub onPriceChanging(ByVal value As Decimal)
    End Sub
    Partial Private Sub onPriceChanged()
    End Sub
End Class
#End Region
Partial Class Stock
    Private Sub onPriceChanging(ByVal value As Decimal)
        Console.WriteLine("Doing something when the price is changing to " & _
                          value & ".")
    End Sub
    Private Sub onPriceChanged()
        Console.WriteLine("Doing something when the price changed.")
    End Sub
End Class
Class Example3
    Public Shared Sub Main()
        Dim stock1 As New Stock
        stock1.Price = 10
        '
        Console.ReadLine()
    End Sub
End Class
Partial Class SomeClass
    Partial Private Sub somePartialMethod3()
    End Sub
    '
    Public Sub TestSomePartialMethod3()
        somePartialMethod3()                                               ' (1)
    End Sub
End Class
Class Example2
    Public Shared Sub Main()
        Dim someObject As New SomeClass
        someObject.TestSomePartialMethod3()
        '
        Console.ReadLine()
    End Sub
End Class

' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.