Visual Basic .NET - Read Less - Learn More/Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso/Resources/Code/Ch7-UsingStructures/Module1.vb

Text File | 2001-08-02 | 657b | 31 lines

Structure MyData
    Private memberProperty1 As String

    Public Property Property1() As String
        Get
            Return memberProperty1
        End Get
        Set(ByVal Value As String)
            memberProperty1 = Value
        End Set
    End Property

    Sub ClearProperty1()
        memberProperty1 = ""
    End Sub
End Structure


Module Module1

    Sub Main()
        Dim data As MyData
        data.Property1 = "Test"
        Console.WriteLine("Value: " & data.Property1)
        data.ClearProperty1()
        Console.WriteLine("Value: " & data.Property1)
        Console.ReadLine()
    End Sub

End Module